Макрос для для замены слов в файле word из файла-словаря Excel

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Aslin
Сообщения: 15
Зарегистрирован: 22 янв 2018, 10:02

26 янв 2018, 08:08

Каким образом я заставляю его менять обратно на исходное слово? Я не запускаю макрос повторно
Aslin
Сообщения: 15
Зарегистрирован: 22 янв 2018, 10:02

26 янв 2018, 08:13

Спасибо за ответы, решила просто заменить на другие синонимы
Aslin
Сообщения: 15
Зарегистрирован: 22 янв 2018, 10:02

26 янв 2018, 08:34

Здравствуйте, не могу не задать этот вопрос, уж очень мне стало интересно это дело, а как написать команду, чтобы макрос завершил поиск слов как дойдет до последнего слова в тексте? Необходимо ввести оператор if? Или как - то по - другому?
pashulka
Сообщения: 831
Зарегистрирован: 24 ноя 2004, 03:46
Контактная информация:

26 янв 2018, 15:41

Aslin писал(а):Каким образом я заставляю его менять обратно на исходное слово? Я не запускаю макрос повторно

Макрос осуществляет замену так - в активном документе - текст из ячейки A1 меняется на текст из ячейки B1, затем, тоже самое происходит с ячейками A2 и B2 и далее до последней заполненной. Поэтому, когда Вы задаёте взаимоисключающие замены не стоит удивляться тому, что вторая замена возвращает всё на круги своя.

P.S. Чтобы двойной замены не происходило, можно попробовать(сам не проверял, ибо Word не моё) заменять только те слова, которые не выделены цветом.
Aslin
Сообщения: 15
Зарегистрирован: 22 янв 2018, 10:02

26 янв 2018, 15:44

Хорошо, спасибо
pashulka
Сообщения: 831
Зарегистрирован: 24 ноя 2004, 03:46
Контактная информация:

26 янв 2018, 15:48

Aslin писал(а):Здравствуйте, не могу не задать этот вопрос, уж очень мне стало интересно это дело, а как написать команду, чтобы макрос завершил поиск слов как дойдет до последнего слова в тексте? Необходимо ввести оператор if? Или как - то по - другому?

Макрос не перебирает слова в тексте.
Но формально, если оставить в словаре одну единственную замену, то поиск/замена будет произведена один раз во всём документе, т.е. от начала и до конца, правда это действие(перебор) осуществляет не макрос, а сам Word.
Ответить