Question

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

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

expression.GetCrossReferenceItems(ReferenceType)

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

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

可以是下列 WdReferenceType 常量之一：

wdRefTypeBookmark

wdRefTypeEndnote

wdRefTypeFootnote

wdRefTypeHeading

wdRefTypeNumberedItem.

示例

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

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