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

Невозможно справиться с этим с помощью настройки в Word; похоже, что настройка всегда возвращается на «ссылку на предыдущую». Вместо этого вам нужно будет использовать макрос, чтобы найти обходной путь для того, что вы хотите. Это относительно простая задача — создать макрос, который создает новый разрыв раздела и разъединяет верхние и нижние колонтитулы.

Sub AddNewSection()

Selection.InsertBreak Type:=wdSectionBreakNextPage     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader     Selection.HeaderFooter.LinkToPrevious = False

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter     Selection.HeaderFooter.LinkToPrevious = False     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub

Макрос вставляет разрыв раздела, а затем отключает параметр «ссылка на предыдущий» для нового раздела. Вы можете легко добавить этот макрос в свою ссылку: / wordribbon-Adding_Tools_to_the_Quick_Access_Toolbar [Панель быстрого доступа] `или определить сочетание клавиш для его запуска. Макрос добавляет разрыв раздела «следующая страница»; если вам нужен другой тип разрыва раздела, все, что вам нужно сделать, это заменить wdSectionBreakNextPage одной из других констант для разрывов разделов: wdSectionBreakContinuous (непрерывный разрыв раздела), wdSectionBreakEvenPage (разрыв раздела четной страницы) или wdSectionBreakOddPage (нечетный- разрыв раздела страницы).

Если вместо этого вы просто хотите изменить всю «ссылку на предыдущую»

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

Sub UnlinkAllHeadersFooters()

Dim s As Section     On Error Resume Next

For Each s In ActiveDocument.Sections         s.Headers(wdHeaderFooterEvenPages).LinkToPrevious = False         s.Headers(wdHeaderFooterFirstPage).LinkToPrevious = False         s.Headers(wdHeaderFooterPrimary).LinkToPrevious = False         s.Footers(wdHeaderFooterEvenPages).LinkToPrevious = False         s.Footers(wdHeaderFooterFirstPage).LinkToPrevious = False         s.Footers(wdHeaderFooterPrimary).LinkToPrevious = False     Next s End Sub

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13401) относится к Microsoft Word 2007, 2010 и 2013.