1 Тема от eiecoone

  • eiecoone
  • рядовой
  • Неактивен
  • Зарегистрирован: 26.11.2015
  • Сообщений: 3

Тема: Автоматизация процесса замены слов на поле

Вот собственно в чем вопрос:
Исходный текст:

Однако громадные возможности компьютеров оказали влияние не только на технические аспекты этого вида деятельности.

Измененный текст:

Однако громадные {eq возможности} компьютеров оказали {eq влияние} не только {eq на} технические аспекты {eq этого} вида деятельности.

Как я это делаю:
в ручную выполняю макрос: 

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "eq заменяемое слово", PreserveFormatting:=False

Задача: автоматизировать макросом процесс замены слов в тексте на поле вида {eq "каждое третье слово в тексте"}.
Должно получиться, что в макросе выполняется 1)Поиск в тексте каждого третьего слова 2) Замена этого слова на поле вида {eq "слово"}.
Визуально, в тексте не видно поля {eq любое слово} выглядит это так:
Автоматизация процесса замены слов на поле
На деле это выглядит вот так:
Автоматизация процесса замены слов на поле

2 Ответ от eiecoone

  • eiecoone
  • рядовой
  • Неактивен
  • Зарегистрирован: 26.11.2015
  • Сообщений: 3

Re: Автоматизация процесса замены слов на поле

Сори, ссылки битые дал на картинки.

Визуально, в тексте не видно поля {eq любое слово} выглядит это так:
Автоматизация процесса замены слов на поле
На деле это выглядит вот так:
Автоматизация процесса замены слов на поле

3 Ответ от eiecoone

  • eiecoone
  • рядовой
  • Неактивен
  • Зарегистрирован: 26.11.2015
  • Сообщений: 3

Re: Автоматизация процесса замены слов на поле

Или такой вариант:
Макрос, должен уметь:
-определять границу каждой второй пары слов;
-иметь свою базу слов, для каждого третьего слова (для вашего примера: возможности; влияние; на; этого);
-вставлять после каждого второго слова, Поле EQ (Текст из базы макроса).

Помогите, пожалуйста.