mikhail73

REM  *****  BASIC  *****
' Макрос LibreOffice для конвертации старой русской орфографии в современную русскую орфографию.
' Макрос является переводом с JavaScript https://ru.wikisource.org/wiki/MediaWiki:Gadget-Deyatificator.js
' Перевод сделан с версии от 27 июня 2015
Sub Deyatificator
Dim oRD as Object
oRD = thisComponent.createReplaceDescriptor
oRD.SearchRegularExpression = True
oRD.SearchCaseSensitive = True
Repl = Array( _

mikhail73

REM  *****  BASIC  *****
' rev. 31 mikh
' url макроса https://gist.github.com/mikhail73/ce80bbab28ae2bfde7d7
' Тестировался на LibreOffice 4.2 на более ранних версиях могут быть проблемы
' с регулярными выражениями.
'
' Этот макрос изначльно написан для MS Word http://simposium.ru/ru/node/7
' Участниками форума Инфа-Ресурс он был сконверирован для OpenOffice Writer
' http://community.i-rs.ru/index.php?topic=21745.0
'

mikhail73

@echo off
:: имя виртуальной машины и ее адрес в сети.
set vm-name=debian.home
set vbox-dir=C:\Program Files\Oracle\VirtualBox\
set putty-dir=C:\Program Files (x86)\PuTTY\
set fz-dir=C:\Program Files (x86)\FileZilla FTP Client\

:vm
tasklist /fi "windowtitle eq %vm-name%*"|find /i "virtualbox"
if not errorlevel 1 goto pu

mikhail73

REM  *****  BASIC  *****

Sub FromOldOrtho1
' rev. 12 mikh Новые версии на основе массива развиваются отдельно https://gist.github.com/mikhail73/ce80bbab28ae2bfde7d7
' Этот макрос изначльно написан для MS Word http://simposium.ru/ru/node/7
' Участниками форума Инфа-Ресурс он был сконверирован для OpenOffice Writer http://community.i-rs.ru/index.php?topic=21745.0
' Начиная с версии 10 с пометкой mikh идут версии улучшеные мной. Я не программист и не изменяю общую структуру макроса, а только добавляю слова и исправляю мелкие недочеты. 
' Для того чтобы сравнить работу разных версий макроса обработайте один и тот же текст разными версиями и сохраните результаты в текстовых файлах, например результат1.txt и результат2.txt, после чего эти файлы можно сравнивать при помощи программ winmerge или KDiff3.
Dim oRD as Object
Dim Repl(37,1) as String