Document.GetCrossReferenceItems (Word)

Retorna uma matriz de itens que pode ser baseada em referência cruzada no tipo de referência cruzada especificada.

A matriz que esse método retorna corresponde aos itens listados na caixa para o qual na caixa de diálogo de referência cruzada. O valor retornado por esse método pode ser usado como o valor do argumento ReferenceWhich para o método InsertCrossReference do objeto Range ou Selection.

GetCrossReferenceItems (ReferenceType)

ReferenceType: O tipo do item para o qual você deseja inserir uma referência cruzada. Pode ser qualquer constante WdReferenceType .

If ActiveDocument.Bookmarks.Count >= 1 Then 
 myBookmarks = ActiveDocument.GetCrossReferenceItems( _ 
 wdRefTypeBookmark) 
 MsgBox myBookmarks(1) 
End If