Замена слов на Поле {eq} в Word

Question

Здравствуйте! Хотел бы узнать, как можно реализовать такую задачу в VBA: необходимо заменить каждое третье слово в тексте на поле {eq "каждое третье слово"}

Answer 1

Мне непонятна цель, вашей задачи.

Думайте сами, пишите макрос.

Ваш будущий макрос, должен уметь:

-определять границу каждой второй пары слов;

-иметь свою базу слов, для каждого третьего слова (для вашего примера: возможности; влияние; на; этого);

-вставлять после каждого второго слова, Поле EQ \L(Ваш текст из базы макроса).

Answer 2

Исходный текст:

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

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

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

Как я это делаю:

в ручную выполняю макрос: 

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _

        "eq заменяемое слово", PreserveFormatting:=False

Задача: автоматизировать макросом процесс замены слов в тексте на поле вида {eq "каждое третье слово в тексте"}.

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

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

На деле это выглядит вот так:

Answer 3

Да, я понимаю, что поле Eq предназначено для создания и вставки уравнений, но мне необходимо заменить текст и выдать его как уравнение. Пример: Однако громадные {eq возможности} компьютеров оказали {eq влияние} не только {eq на} технические аспекты {eq этого} вида деятельности.

Замену провожу командой:

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _

        "eq возможности", PreserveFormatting:=False

Вопрос в том, как мне автоматизировать этот процесс, заменяю каждое третье слово в предложении на поле вида {eq "каждое третье слово"}

В правильно заданном вопросе, на 99,9% содержится ответ.

Перефразируйте Ваш вопрос, что бы он стал понятным не только Вам, но и другим Пользователям нашего Сообщества. Приведите корректные примеры того, что Вы ожидаете от применения Поля Eq, например:

Answer 4

Да, я понимаю, что поле Eq предназначено для создания и вставки уравнений, но мне необходимо заменить текст и выдать его как уравнение. Пример: Однако громадные {eq возможности} компьютеров оказали {eq влияние} не только {eq на} технические аспекты {eq этого} вида деятельности.

Замену провожу командой:

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _

        "eq возможности", PreserveFormatting:=False

Вопрос в том, как мне автоматизировать этот процесс, заменяю каждое третье слово в предложении на поле вида {eq "каждое третье слово"}

Answer 5

Для поиска решения Вашего вопроса, обратитесь к нашей Библиотеке TechNet, начав со статьи "Изменения в Office 2013". Поле eq предназначено для создания и вставки уравнений.