Método Document.GetCrossReferenceItems (Word)

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

Sintaxe

expression. GetCrossReferenceItems( _ReferenceType_ )

Expressão Uma expressão que representa um objeto Document .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Referencetype	Obrigatório	Variant	O tipo do item para o qual você deseja inserir uma referência cruzada. Pode ser qualquer constante WdReferenceType.

Comentários

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.

Exemplo

Este exemplo exibe o nome do primeiro indicador do documento ativo que pode ser referenciado por uma referência cruzada.

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

Este exemplo usa o método GetCrossReferenceItems para recuperar uma lista de títulos que podem ser referenciados e, em seguida, insere uma referência cruzada para a página que inclui o título "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

Confira também

Objeto Document

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.