Замена текста в колонтитуле макросом - VBA

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

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

Здравствуйте! В ходе разработки проектов возникла необхоидмость создавать большое количество пояснительных записок. Иными словами - создание большого количества документов word по шаблону. Макрос ищет нужную комбинацию символов и заменяет его на заданное значение или текст из ячейки в экселе. Однако возникла проблема: дело в том, что в проекте используется колонтитул для описания проекта (таблица). В этой таблице так же есть значения, которые должны меняться, однако макрос этого не делает. Подскажите пожалуйста, что необходимо добавить в макрос?

Решение задачи: «Замена текста в колонтитуле макросом»

textual
Листинг программы
WA.ActiveWindow.ActivePane.View.SeekView = 9  ' активировать непервый нижний колонтитул
With WA.Selection.Find
' ...
End With
WA.ActiveWindow.ActivePane.View.SeekView = 9  ' активировать непервый верхний колонтитул
With WA.Selection.Find
' ...
End With
WA.ActiveWindow.ActivePane.View.SeekView = 0 ' вернуться в тело документа

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


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

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

12   голосов , оценка 3.833 из 5