Word VBA教程:GetCrossReferenceItems方法

返回一个项目数组,根据指定的交叉引用类型能对该数组中的项目进行交叉引用。该数组对应于“插入”菜单的“交叉引用”对话框“引用哪一个...”框中列出的项。

注意   该方法返回的项目可用作InsertCrossReference方法的 ReferenceWhich参数。

expression.GetCrossReferenceItems(ReferenceType)

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

ReferenceType   Variant 类型,必需。需要进行交叉引用的项目类型。WdReferenceType。

   可以是下列 WdReferenceType 常量之一:

    wdRefTypeBookmark

    wdRefTypeEndnote

    wdRefTypeFootnote

    wdRefTypeHeading

    wdRefTypeNumberedItem.

VBA示例

本示例显示活动文档中第一个可以进行交叉引用的书签名称。


If ActiveDocument.Bookmarks.Count >= 1 Then
    myBookmarks = ActiveDocument.GetCrossReferenceItems( _
        wdRefTypeBookmark)
    MsgBox myBookmarks(1)
End If

本示例首先用 GetCrossReferenceItems方法检索可以进行交叉引用的标题的列表,然后在包含标题“Introduction”页中插入一条交叉引用。


myHeadings = _
    ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading)
For i = 1 To Ubound(myHeadings)
    If Instr(LCase$(myHeadings(i)), "introduction") Then
        Selection.InsertCrossReference _
            ReferenceType:=wdRefTypeHeading, _
            ReferenceKind:=wdPageNumber, ReferenceItem:=i
        Selection.InsertParagraphAfter
    End If
Next i

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号