Пример макроса для конвертации WORD документов в стандартную кодировку

Convert.bas

Этот макрос приводится как пример для конвертации файлов в формате MS WORD с одной кодировки в другую. В этом примере документ в формате MS WORD 97/2000, набранный на русской клавиатуре с использованием нестандартного шрифта Arial Az Cyr (или же Arial Az Lat) конвертируется в новый Азербайджанский юникодовский стандарт.

Чтобы пробовать этот макрос, вы должны импортировать файл CONVERT.BAS в MS WORD установленный на вашем компьютере. Это делается переходом на Visual Basic Editor через главное меню (<Tools> --> <Macro> --> <Visual Basic Editor>) или Alt+F11, далее командой <File> --> <Import File...>. Лучше всего импортируйте в NORMAL темплейт. Можно пользоваться альтернативными путями, даже COPY/PASTE.

Описание макроса:

Переменная <Target> содержит юникодовские коды букв Азербайджанского латинского алфавита в алфавитном порядке (сначала заглавные буквы, затем строчные), а <Source> содержит корреспондирующие коды в кодировке Arial Az Cyr (или же Arial Az Lat).

Этот макрос переводит только выделенный текст в активном на WORD-е документе (т.е. если хотите весь текст, то до запуска макроса дать команду SELECT ALL)

После выделения текста запустите макрос <Convert> через главное меню: <Tools> --> <Macro> --> <Macros..> --> <Convert> --> <Run>, или же альтернативными путями. Для удобства можно добавить кнопку или пункт меню для автоматического запуска данного макроса.

Модифицируя данный пример можете создавать собственные макросы для конвертации собственных WORD файлов. Меняя коды только в переменной Source, можете сконвертировать и другие документы набранные с исползованием других нестандартных кодировок.

Желаем Вам Успехов!