Стив спросил, есть ли в Word способ настроить общие верхние или нижние колонтитулы в одном или нескольких отдельных файлах, а затем включить их в шаблон документа.

Традиционный способ справиться с подобной ситуацией — использовать поле INCLUDETEXT. Это поле извлекает информацию из файла и включает ее вместо самого поля. Чтобы использовать это поле, выполните следующие действия:

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

  2. Сохраните документ. В этом случае мы предполагаем, что вы назвали документ MyHeader.docx.

  3. В файле шаблона отобразите область верхнего или нижнего колонтитула и убедитесь, что точка вставки находится в верхнем или нижнем колонтитуле.

  4. Нажмите Ctrl + F9. Word вставляет набор фигурных скобок, и точка вставки находится между ними.

  5. Введите код поля INCLUDETEXT и имя документа в скобки поля, как показано здесь:

  6. Нажмите Shift + F9, чтобы обновить поле. Word заменяет код поля содержимым MyHeader.docx.

  7. Сохраните свой шаблон.

Помните, что Word сохраняет код поля в файле шаблона, поэтому всякий раз, когда вы создаете документ на основе шаблона, содержимое MyHeader.docx извлекается и включается в заголовок нового документа. Точно так же ваш новый документ включает поле INCLUDETEXT (как и шаблон), и всякий раз, когда вы обновляете поле в новом документе, Word послушно извлекает MyHeader.docx для замены поля.

Если вы хотите полностью избавиться от поля INCLUDETEXT в документе, созданном на основе шаблона (что сделало бы включенный текст снимком того, что содержалось в MyHeader.docx на тот момент), вам нужно проявить немного больше творчества. . Вы можете включить макрос AutoNew в свой шаблон, который выберет поле INCLUDETEXT, обновит его, а затем отключит его. Следующее поможет:

Sub AutoNew()

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then         ActiveWindow.Panes(2).Close     End If     If ActiveWindow.ActivePane.View.Type = wdNormalView Or _       ActiveWindow.ActivePane.View.Type = wdOutlineView Then         ActiveWindow.ActivePane.View.Type = wdPrintView     End If     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader     Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend     Selection.Fields.Update     Selection.Fields.Unlink     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (10394) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Pulling_Headers_and_Footers_from_Other_Files [Извлечение заголовков и нижних колонтитулов из других файлов].