Word VBA教程: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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号