GetCrossReferenceItems Method
TOC
Collapse the table of content
Expand the table of content

Document.GetCrossReferenceItems Method (Word)

Office 2013 and later
GitHub-Mark-64px

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

Returns an array of items that can be cross-referenced based on the specified cross-reference type.

expression .GetCrossReferenceItems(ReferenceType)

expression An expression that represents a Document object.

Parameters

Name

Required/Optional

Data Type

Description

ReferenceType

Required

Variant

The type of item you want to insert a cross-reference to. Can be any WdReferenceType constant.

The array that this method returns corresponds to the items listed in the For which box in the Cross-reference dialog box. The value returned by this method can be used as the value of the ReferenceWhich argument for the InsertCrossReference method of the Range or Selection object.

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
Show:
© 2016 Microsoft