Быстрое форматирование нижних колонтитулов в документах с большим количеством разделов

У Джейка есть документ, который автоматически создается программой, отличной от Word. В документе много страниц, но каждая страница создается как отдельный раздел. Джейк ищет способ быстро отформатировать документ так, чтобы верхние и нижние колонтитулы были одинаковыми, начиная со второго раздела документа. (Первая страница, которая также является отдельным разделом, содержит титульный лист.)

Вы можете внести необходимые изменения вручную, выполнив следующие действия:

1. Нажмите Ctrl + Home , чтобы перейти к началу документа.
2. Отобразите вкладку «Вставка» на ленте.
3. В группе «Верхний и нижний колонтитулы» щелкните либо «Верхний колонтитул», либо «Нижний колонтитул», в зависимости от того, какой из них вы хотите изменить. Word отображает раскрывающийся список параметров.
4. Щелкните «Изменить верхний колонтитул» или «Изменить нижний колонтитул», в зависимости от того, какой инструмент был выбран на шаге 3. Word отображает верхний или нижний колонтитул вместе с вкладкой «Дизайн» на ленте. .
5. Щелкните инструмент “Далее”. Word отображает верхний или нижний колонтитул для второго раздела документа.
6. Внесите изменения в верхний или нижний колонтитул, чтобы он выглядел так, как вы хотите.
7. Нажмите Инструмент Next. Это отобразит заголовок для следующего (третьего) раздела документа.
8. Щелкните инструмент “Ссылка на предыдущий”. Вы увидите диалоговое окно с вопросом, хотите ли вы удалить этот заголовок и ссылку на предыдущий раздел. Нажмите “Да”.
9. Повторяйте шаги 7 и 8, пока не проработаете все заголовки в документе.
10. На вкладке «Дизайн» ленты нажмите «Закрыть верхний и нижний колонтитулы». .

Если в вашем документе довольно много заголовков, выполнение этих шагов может занять некоторое время. Вам также необходимо выполнить их для всех нижних колонтитулов в документе. (Единственное предостережение заключается в том, что вы должны переключиться на отображение нижних колонтитулов до или после шага 3.) Если вам регулярно приходится делать это с большим количеством документов, этот процесс становится еще более утомительным.

Решением для скуки является создание макроса, который внесет необходимые изменения за вас. Рассмотрим следующий макрос:

 Sub MakeSame () Dim J As Integer Dim K As Integer If ActiveDocument.Sections.Count> 2 Then For J = 3 To ActiveDocument.Sections.Count For K = 1 To  ActiveDocument.Sections (J) .Headers.Count ActiveDocument.Sections (J) .Headers (K) .LinkToPrevious = True Next K For K = 1 To ActiveDocument.Sections (J) .Footers.Count ActiveDocument.Sections (J) .Footers  (K) .LinkToPrevious = True Next K Next J End IfEnd Sub 

Макрос проверяет, есть ли в документе по крайней мере три раздела. Если есть, то он начинает вносить изменения, начиная с третьего раздела. Он проходит через все верхние и нижние колонтитулы для каждого раздела, следя за тем, чтобы они были такими же, как в предыдущем разделе.

После того, как вы закончите запуск этого макроса, просто отредактируйте верхний или нижний колонтитул для второго раздела и убедитесь, что он настроен так, как вы хотите.