Объект HeadersFooters (Word)

Коллекция объектов HeaderFooter , представляющих колонтитулы в указанном разделе документа.

Замечания

Используйте свойство Headers or Footers , чтобы вернуть коллекцию HeadersFooters . В следующем примере отображается текст из основного нижнего колонтитула в первом разделе активного документа.

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary) 
 If .Range.Text <> vbCr Then 
 MsgBox .Range.Text 
 Else 
 MsgBox "Footer is empty" 
 End If 
End With

Примечание.

Нельзя добавлять объекты HeaderFooter в коллекцию HeadersFooters .

Используйте заголовки (Индекс) или Нижние колонтитулы (Индекс), где index является одной из констант WdHeaderFooterIndex (wdHeaderFooterEvenPages, wdHeaderFooterFirstPage или wdHeaderFooterPrimary), чтобы вернуть один объект HeaderFooter . В следующем примере изменяется текст как основного заголовка, так и основного нижнего колонтитула первого раздела активного документа.

With ActiveDocument.Sections(1) 
 .Headers(wdHeaderFooterPrimary).Range.Text = "Header text" 
 .Footers(wdHeaderFooterPrimary).Range.Text = "Footer text" 
End With

Вы также можете вернуть один объект HeaderFooter с помощью свойства HeaderFooter с объектом Selection .

Используйте свойство DifferentFirstPageHeaderFooter с объектом PageSetup , чтобы указать другую первую страницу. В следующем примере текст вставляется в первый нижний колонтитул в активном документе.

With ActiveDocument 
 .PageSetup.DifferentFirstPageHeaderFooter = True 
 .Sections(1).Footers(wdHeaderFooterFirstPage) _ 
 .Range.InsertBefore _ 
 "Written by Kate Edson" 
End With

Используйте свойство OddAndEvenPagesHeaderFooter с объектом PageSetup , чтобы указать разные нечетные и четные колонтитулы страницы. Если свойство OddAndEvenPagesHeaderFooter имеет значение True, можно вернуть нечетный верхний или нижний колонтитул с помощью wdHeaderFooterPrimary, а четный верхний или нижний колонтитул — с помощью wdHeaderFooterEvenPages.

Используйте метод Add с объектом PageNumbers , чтобы добавить номер страницы в верхний или нижний колонтитул. В следующем примере номера страниц добавляются в первый нижний колонтитул в первом разделе активного документа.

With ActiveDocument.Sections(1) 
 .PageSetup.DifferentFirstPageHeaderFooter = True 
 .Footers(wdHeaderFooterPrimary).PageNumbers.Add _ 
 FirstPage:=True 
End With

См. также

Справочник по объектной модели Word

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

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