Замена тэгов в шаблоне Word на данные из Excel (поиск всех однотипных тэгов) - VBA

Узнай цену своей работы

Формулировка задачи:

Прошу помощи по следующей проблеме: есть шаблон договора Word, в данном шаблоне расставлены тэги типа <название фирмы>, <ФИО директора>, <расчетный счет руб.> и проч. Один тэг может встретиться в разных частях документа несколько раз. Есть шаблон Excel, в котором в "столбце А" данные тэги сопоставлены со значениями "столбец B". После запуска макроса и замены тэгов на значения (поиск в документе Word тэгов из "столбца A" и замена их на значения "стоблец B") получается готовый документ. Текст макроса Excel:
Проблема в том, что данный макрос ищет только первое вхождение тэга в шаблоне и заменяет его на значение, остальные тэги данного типа игнорируются. Что нужно изменить (какой цикл задать) чтобы макрос искал все вхождения тэгов данного типа в шаблоне документа и заменял их на соответствующие значения?

Решение задачи: «Замена тэгов в шаблоне Word на данные из Excel (поиск всех однотипных тэгов)»

textual
Листинг программы
ActiveDocument.Content.Find.Execute "2", ReplaceWith:="5", Replace:=2

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.818 из 5
Похожие ответы