Для начала расскажу для чего она нужна…. Есть текст в формате *.doc. В нем есть текст в 300 страниц. Текст написан двумя шрифтами в перемешку…. (предположим Arial и Times) Нужно к примеру заменить букву:

Arial «а» на Courier «о»
Arial «о» на Courier «а»
Arial «з» на Courier «и»
Arial «и» на Courier «р»

исключительно если это написано шрифтом Arial (если Times, то не изменять!!!)

В word-е это делается простой командой «Правка\найти-заменить» указываешь букву «а» и шрифт Ариал. Заменить: указываешь «о» и шрифт Courier… но это заёб…..

Нужна очень простая программа в обращении… чтобы любой чайник легко его инсталлировал и юзал…. Ну типа загрузил файл…. Нажал конвертировать…… ждешь…. (желательно не долго) результат сохранил….

Знаю! Как программиста вас мучает вопрос, зачем такая хрень нужна?! Дело в том, что эта программа пишется для конвертации абхазского текста, который был написан на Ариал_абхаз в новый шрифт…. На котором изменилась раскладка букв на клаве….

По всем вопросам стучитесь: 326865381

Пытаюсь... но макрос всем не отдашь.... нужна скомпилированная прога... :(

Sub Макрос1()

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

Selection.Find.Font.Name = "Arial"
Selection.Find.Text = "а"

Selection.Find.Replacement.Font.Name = "Courier New"
Selection.Find.Replacement.Text = "о"

Selection.Find.Forward = True
Selection.Find.Wrap = wdFindContinue
Selection.Find.Format = True
Selection.Find.MatchCase = False
Selection.Find.MatchWholeWord = False
Selection.Find.MatchWildcards = False
Selection.Find.MatchSoundsLike = False
Selection.Find.MatchAllWordForms = False



Selection.Find.Execute Replace:=wdReplaceAll
End Sub

belugin DjayПытаюсь... но макрос всем не отдашь....

1. Почему?
2. Можно его преобразовать в файл VBS

Допустим у тя есть файл в ворде.... как его с помощю VBS переконвертировать!?

Спасибо ребята за помощь! Нашелся смельчак который напишет нужный софт! Счастливо!