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

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

Невозможно указать значение по умолчанию для параметра «Ссылка на предыдущий» в самом Word. Однако вы можете изменить способ добавления разрывов в документ. Если вы сделаете это с помощью макроса, то макрос может легко отключить параметр «Ссылка на предыдущий» для нового, добавленного раздела. Вот быстрый способ сделать это:

Sub AddBreak()

Dim iSec As Integer

Selection.InsertBreak Type:=wdSectionBreakNextPage

iSec = Selection.Information(wdActiveEndSectionNumber)

With ActiveDocument.Sections(iSec)

.Headers(wdHeaderFooterPrimary).LinkToPrevious = False         .Headers(wdHeaderFooterEvenPages).LinkToPrevious = False         .Headers(wdHeaderFooterFirstPage).LinkToPrevious = False         .Footers(wdHeaderFooterPrimary).LinkToPrevious = False         .Footers(wdHeaderFooterEvenPages).LinkToPrevious = False         .Footers(wdHeaderFooterFirstPage).LinkToPrevious = False     End With End Sub

Метод .InsertBreak фактически вставляет разрыв. В данном случае это разрыв следующей страницы. Вы можете указать различные типы разрывов, просто изменив перечисление wdSectionBreakNextPage на один из следующих типов разрывов:

wdSectionBreakContinuous wdSectionBreakEvenPage * wdSectionBreakOddPage

Затем макрос устанавливает iSec равным порядковому номеру текущего раздела.

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

При желании вы можете изменить свойство LinkToPrevious для всех верхних и нижних колонтитулов во всех разделах документа одновременно:

Sub ChangeAll()

Dim s As Section

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 — самая популярная программа для обработки текстов в мире.) Этот совет (13502) относится к Microsoft Word 2007, 2010, 2013 и 2016.