GetCrossReferenceItems Method
Applies To
Document object.
Description
Returns an array of items that can be cross-referenced based on the specified cross-reference type. The array corresponds to the items listed in the For which box in the Cross-reference dialog box (Insert menu).
Note An item returned by this method can be used as the ReferenceWhich argument for the InsertCrossReference method.
Syntax
expression.GetCrossReferenceItems(ReferenceType)
expression Required. An expression that returns a Document object.
ReferenceType Required Variant. The type of item you want to insert a cross-reference to. Can be one of the following WdReferenceType constants: wdRefTypeBookmark, wdRefTypeEndnote, wdRefTypeFootnote, wdRefTypeHeading, or wdRefTypeNumberedItem.
See Also
InsertCrossReference method.
Example
This example displays the name of the first bookmark in the active document that can be cross-referenced.
If ActiveDocument.Bookmarks.Count >= 1 Then
myBookmarks = ActiveDocument.GetCrossReferenceItems(wdRefTypeBookmark)
MsgBox myBookmarks(1)
End If
This example uses the GetCrossReferenceItems method to retrieve a list of headings that can be cross-referenced and then inserts a cross-reference to the page that includes the heading "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