Question

全部显示

应用于 HeaderFooter 对象的 Index 属性。

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

WdHeaderFooterIndex 可以是下列 WdHeaderFooterIndex 常量之一：

wdHeaderFooterEvenPages 返回所有偶数页上的页眉或页脚。

wdHeaderFooterFirstPage 返回文档或节中的第一个页眉或页脚。

wdHeaderFooterPrimary 返回文档或节中除第一页外所有页的页眉或页脚。

expression.Index

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

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

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

expression.Index

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

示例

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