GetCrossReferenceItems 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