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
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.