HeadersFooters 集合对象

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