通过

Word) (HeaderFooter.Index 属性

  • 项目

返回代表指定的页眉或页脚中的文档或节的 WdHeaderFooterIndex 。 此为只读属性。

语法

表达式。指数

expression 是必需的。 一个代表“HeaderFooter”对象的变量。

示例

如果指定的变量引用第一个页眉，则本示例将一个图形添至活动文档中的第一个页眉。

Sub ChangeFirstPageFooter() 
 Dim hdrFirstPage As HeaderFooter 
 
 Set hdrFirstPage = ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage) 
 
 If hdrFirstPage.Index = wdHeaderFooterFirstPage Then 
 With hdrFirstPage.Shapes.AddShape(Type:=msoShapeHeart, _ 
 Left:=36, Top:=36, Width:=36, Height:=36) 
 .Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0) 
 End With 
 End If 
 
End Sub

另请参阅

HeaderFooter 对象

支持和反馈

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