Тема: Автоматизация процесса замены слов на поле
Вот собственно в чем вопрос:
Исходный текст:
Однако громадные возможности компьютеров оказали влияние не только на технические аспекты этого вида деятельности.
Измененный текст:
Однако громадные {eq возможности} компьютеров оказали {eq влияние} не только {eq на} технические аспекты {eq этого} вида деятельности.Как я это делаю:
в ручную выполняю макрос:
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"eq заменяемое слово", PreserveFormatting:=FalseЗадача: автоматизировать макросом процесс замены слов в тексте на поле вида {eq "каждое третье слово в тексте"}.
Должно получиться, что в макросе выполняется 1)Поиск в тексте каждого третьего слова 2) Замена этого слова на поле вида {eq "слово"}.
Визуально, в тексте не видно поля {eq любое слово} выглядит это так:
На деле это выглядит вот так:
