Question

Sections (Section) HeadersFooters (HeaderFooter) 多种对象

由 HeaderFooter 对象所组成的集合，该集合中的对象代表了指定的文档某一节中的页眉或页脚。

使用 HeadersFooters 集合

使用 Headers 或 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 集合。

用 Headers (index) 或 Footers (index) 可返回单独的 HeaderFooter 对象，其中index 是 WdHeaderFooterIndex 常量（wdHeaderFooterEvenPages、wdHeaderFooterFirstPage 或 wdHeaderFooterPrimary）之一。下列示例更改活动文档第一节的基本页眉和基本页脚中的文字。

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

也可使用 Selection 对象的 HeaderFooter 属性返回单独的 HeaderFooter 对象。

说明

使用 PageSetup 对象的 DifferentFirstPageHeaderFooter 属性可指定不同的首页。下列示例在活动文档首页的页脚中插入文字。

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

使用 PageSetup 对象的 OddAndEvenPagesHeaderFooter 属性可为奇数页和偶数页设置不同的页眉和页脚。如果 OddAndEvenPagesHeaderFooter 属性值为 True，则使用 wdHeaderFooterPrimary 可返回奇数页的页眉或页脚，使用 wdHeaderFooterEvenPages 可返回偶数页的页眉或页脚。

用 PageNumbers 对象的 Add 方法可在页眉或页脚中添加页码。下列示例在活动文档第一节的基本页脚中添加页码。

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