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) 或 頁尾 (Index) ，其中 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 可以傳回偶數頁首或頁尾。

使用 [ 新增 方法與 PageNumbers 物件新增至頁首或頁尾的頁碼。 下列範例會將頁碼新增至使用中文件內第一節中的第一頁頁尾。

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

請參閱

Word 物件模型參考資料

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。