[Дитёныш]

Часто в ранних работах ВП использована неверная кодировка символов, вот код макроса для OpenOffice, который исправляет кодировку:

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

sub ReplaceKOBSymbols
rem ----------------------------------------------------------------------
Dim I As Long
Dim Doc As Object
Dim Replace As Object
Dim Cnt as Long
Cnt =65
Dim wrongChars(Cnt-1) As String
Dim validChars(Cnt-1) As String
rem × - Ч / Ü-Ь
wrongChars() = Array(_
"À", "Á", "Â", "Ã", "Ä", _
"Å", "¸", "Æ", "Ç", "È", _
"É", "Ê", "Ë", "Ì", "Í", _
"Î", "Ï", "Ð", "Ñ", "Ò", _
"Ó", "Ô", "Õ", "Ö", "×", _
"Ø", "Ù", "Ú", "Û", "Ü", _
"Ý", "Þ", "ß",           _
"à", "á", "â", "ã", "ä", _
"å", "¸", "æ", "ç", "è", _
"é", "ê", "ë", "ì", "í", _
"î", "ï", "ð", "ñ", "ò", _
"ó", "ô", "õ", "ö", "÷", _
"ø", "ù", "ú", "û", "ü", _
"ý", "þ", "ÿ"            _
)

validChars() = Array(_
"А", "Б", "В", "Г", "Д", _
"Е", "Ё", "Ж", "З", "И", _
"Й", "К", "Л", "М", "Н", _
"О", "П", "Р", "С", "Т", _
"У", "Ф", "Х", "Ц", "Ч", _
"Ш", "Щ", "Ъ", "Ы", "Ь", _
"Э", "Ю", "Я",           _
"а", "б", "в", "г", "д", _
"е", "ё", "ж", "з", "и", _
"й", "к", "л", "м", "н", _
"о", "п", "р", "с", "т", _
"у", "ф", "х", "ц", "ч", _
"ш", "щ", "ъ", "ы", "ь", _
"э", "ю", "я"            _
)

Doc = StarDesktop.CurrentComponent
Replace = Doc.createReplaceDescriptor
Replace.SearchCaseSensitive = True
For I = 0 To Cnt
	Replace.SearchString = wrongChars(I)
	Replace.ReplaceString = validChars(I)
	Doc.replaceAll(Replace)
Next I
rem ----------------------------------------------------------------------

end sub

А сам макрос для OpenOffice прикрепляю к сообщению.

P.S. Кто работает c MS Word может на остове приведенного кода элементарно написать свой макрос, у меня Word банально не установлен(не нужен).
P.S.S. Не забывайте о том, что кнопку вызова макроса можно, при необходимости, поместить на панели быстрого доступа.