应用于 HeaderFooter 对象的 Index 属性。
该属性返回一个 WdHeaderFooterIndex 常量,该常量代表文档或节中指定的页眉或页脚。只读。
WdHeaderFooterIndex 可以是下列 WdHeaderFooterIndex 常量之一: |
wdHeaderFooterEvenPages 返回所有偶数页上的页眉或页脚。 |
wdHeaderFooterFirstPage 返回文档或节中的第一个页眉或页脚。 |
wdHeaderFooterPrimary 返回文档或节中除第一页外所有页的页眉或页脚。 |
expression.Index
expression 必需。该表达式返回一个 HeaderFooter 对象。
返回一个 Long 类型的数值,该数值代表集合中项目的位置。只读。
expression.Index
expression 必需。该表达式返回上述“应用于”列表中的一个对象。
本示例返回选定域在 Fields 集合中的位置。
num = Selection.Fields(1).Index
如果指定的变量引用第一个页面页眉,则本示例将一个图形添至活动文档中的第一个页面页眉。
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
本示例在活动文档中添加文档变量,然后返回指定变量在 Variables 集合中的位置。
Set myVar = ActiveDocument.Variables.Add(Name:="Name", _
Value:="Joe")
num = myVar.Index
本示例返回第一个窗口在 Windows 集合中的编号。如果在 Windows 集合中有至少两个窗口,则宏将激活下一个窗口,复制第一个单词,然后切换回原来窗口,并在此插入“剪贴板”的内容。
Set myWindow = Windows(1)
winNum = myWindow.Index
If Windows.Count >= 2 Then
myWindow.Next.Activate
ActiveDocument.Words(1).Copy
Windows(winNum).Activate
Selection.Range.Paste
End If