Свойство HeaderFooter.LinkToPrevious (Word)

Статья
04/07/2023

Значение true , если указанный верхний или нижний колонтитул связан с соответствующим верхним или нижним колонтитулов в предыдущем разделе. Для чтения и записи, Boolean.

Синтаксис

выражение. LinkToPrevious

Выражение Выражение, возвращающее объект HeaderFooter.

Замечания

Если колонтитул связан, его содержимое будет таким же, как и в предыдущем колонтитуле. Так как свойство LinkToPrevious по умолчанию имеет значение True , вы можете добавить колонтитулы и номера страниц во весь документ, работая с верхними, нижними колонтитулами и номерами страниц в первом разделе. Например, в следующем примере номера страниц добавляются в заголовок на всех страницах во всех разделах активного документа.

ActiveDocument.Sections(1) _ 
 .Headers(wdHeaderFooterPrimary).PageNumbers.Add

Свойство LinkToPrevious применяется к каждому колонтитулов по отдельности. Например, свойство LinkToPrevious может иметь значение True для четного заголовка страницы, а значение False для четного нижнего колонтитула.

Пример

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

Documents.Add 
With Selection 
 For j = 1 to 4 
 .TypeParagraph 
 .InsertBreak 
 .TypeParagraph 
 Next j 
End With 
With ActiveDocument 
 .Paragraphs(5).Range.InsertBreak Type:=wdSectionBreakNextPage 
 .PageSetup.OddAndEvenPagesHeaderFooter = True 
End With 
With ActiveDocument.Sections(2) 
 With .Headers(wdHeaderFooterPrimary) 
 .LinkToPrevious = False 
 .Range.InsertBefore "Section 2 Odd Header" 
 End With 
 With .Headers(wdHeaderFooterEvenPages) 
 .LinkToPrevious = False 
 .Range.InsertBefore "Section 2 Even Header" 
 End With 
End With 
With ActiveDocument.Sections(1) 
 .Headers(wdHeaderFooterPrimary) _ 
 .Range.InsertBefore "Section 1 Odd Header" 
 .Headers(wdHeaderFooterEvenPages) _ 
 .Range.InsertBefore "Section 1 Even Header" 
End With

См. также

Объект HeaderFooter

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через