Замена тэгов в шаблоне Word на данные из Excel (поиск всех однотипных тэгов) - VBA
Формулировка задачи:
Прошу помощи по следующей проблеме: есть шаблон договора Word, в данном шаблоне расставлены тэги типа <название фирмы>, <ФИО директора>, <расчетный счет руб.> и проч. Один тэг может встретиться в разных частях документа несколько раз.
Есть шаблон Excel, в котором в "столбце А" данные тэги сопоставлены со значениями "столбец B". После запуска макроса и замены тэгов на значения (поиск в документе Word тэгов из "столбца A" и замена их на значения "стоблец B") получается готовый документ.
Текст макроса Excel:
Проблема в том, что данный макрос ищет только первое вхождение тэга в шаблоне и заменяет его на значение, остальные тэги данного типа игнорируются. Что нужно изменить (какой цикл задать) чтобы макрос искал все вхождения тэгов данного типа в шаблоне документа и заменял их на соответствующие значения?
Решение задачи: «Замена тэгов в шаблоне Word на данные из Excel (поиск всех однотипных тэгов)»
textual
Листинг программы
ActiveDocument.Content.Find.Execute "2", ReplaceWith:="5", Replace:=2
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д