Word VBA教程:Index属性

应用于 HeaderFooter对象的 Index属性。

该属性返回一个WdHeaderFooterIndex 常量,该常量代表文档或节中指定的页眉或页脚。只读。

WdHeaderFooterIndex 可以是下列 WdHeaderFooterIndex 常量之一:
wdHeaderFooterEvenPages 返回所有偶数页上的页眉或页脚。
wdHeaderFooterFirstPage 返回文档或节中的第一个页眉或页脚。
wdHeaderFooterPrimary 返回文档或节中除第一页外所有页的页眉或页脚。

expression.Index

expression   必需。该表达式返回一个HeaderFooter对象。

应用于“应用于”列表中所有其他对象的 Index属性。

返回一个 Long 类型的数值,该数值代表集合中项目的位置。只读。

expression.Index

expression   必需。该表达式返回上述“应用于”列表中的一个对象。

VBA示例

当应用于 Field对象时。

本示例返回选定域在 Fields集合中的位置。


num = Selection.Fields(1).Index

当应用于 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

当应用于 Variable对象时。

本示例在活动文档中添加文档变量,然后返回指定变量在 Variables集合中的位置。


Set myVar = ActiveDocument.Variables.Add(Name:="Name", _
    Value:="Joe")
num = myVar.Index

当应用于 Window对象时。

本示例返回第一个窗口在 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

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号