GetCrossReferenceItems 方法

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

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

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

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

示例

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

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