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

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

  1. Нажмите Ctrl + Home, чтобы перейти в начало документа.

  2. Выберите «Верхний и нижний колонтитулы» в меню «Вид», чтобы увидеть диалоговое окно «Верхний и нижний колонтитулы». В диалоговом окне «Верхний и нижний колонтитулы» должен отображаться верхний колонтитул для первого раздела вашего документа.

  3. Нажмите кнопку «Показать далее». Это отображает заголовок для второго раздела документа.

  4. Внесите изменения в заголовок, чтобы он выглядел так, как вы хотите.

  5. Нажмите кнопку «Показать далее». Это отображает заголовок для следующего (третьего) раздела документа.

  6. Щелкните ссылку на предыдущий. Вы увидите диалоговое окно с вопросом, хотите ли вы удалить этот заголовок и ссылку на предыдущий раздел. Щелкните Да.

  7. Повторяйте шаги с 5 по 6, пока не проработаете все заголовки в документе.

  8. Закройте диалоговое окно «Верхний и нижний колонтитулы».

Если в вашем документе довольно много заголовков, выполнение этих шагов может занять некоторое время. Вам также нужно будет выполнить их для всех нижних колонтитулов в документе. (Единственное предостережение: вы должны переключиться на отображение нижних колонтитулов либо до, либо после шага 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 If End Sub

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

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

_Примечание: _

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

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (219) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Quickly_Formatting_Footers_in_Documents_with_Many_Sections [Быстрое форматирование нижних колонтитулов в документах с большим количеством разделов].