Word) (HeadersFooters 对象

一套 HeaderFooter 对象表示的页眉或页脚中的文档的指定部分。

备注

使用 页眉 或 页脚 属性可返回 HeadersFooters 集合。 下面的示例显示活动文档的第一节的主页脚中的文本。

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

注意

[!注释] 您不能添加到 HeadersFooters 集合的 HeaderFooter 对象。

使用页眉 (索引) 或页脚 (索引) ，其中 index 是 wdHeaderFooterEvenPages、wdHeaderFooterFirstPage 或 wdHeaderFooterPrimary) 的 WdHeaderFooterIndex (常量之一，可返回单个 HeaderFooter 对象。 下面的示例更改主页眉和活动文档第一节的主页脚的文字。

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

您还可以通过使用 HeaderFooter 返回一个 HeaderFooter 对象 与 选定 对象的属性。

使用 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 返回偶数页眉或页脚。

使用 添加 要将页码添加到页眉或页脚的 PageNumbers 对象的方法。 下面的示例将页码添加到首页页脚位于活动文档第一节。

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

另请参阅

Word 对象模型参考

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。