Método Range.InsertCrossReference (Word)
Insere uma referência cruzada para um título, indicador, nota de rodapé ou nota de fim, ou para um item para o qual um nome de legenda esteja definido (por exemplo, uma equação, figura ou índice).
Sintaxe
expression. InsertCrossReference( _ReferenceType_ , _ReferenceKind_ , _ReferenceItem_ , _InsertAsHyperlink_ , _IncludePosition_ , _SeparateNumbers_ , _SeparatorString_ )
expressão Obrigatório. Uma variável que representa um objeto Range.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Referencetype | Obrigatório | Variant | O tipo de item para o qual uma referência cruzada deve ser inserido. Pode ser qualquer constante WdReferenceType ou WdCaptionLabelID ou um rótulo de legenda definido pelo usuário. |
| Referencekind | Obrigatório | WdReferenceKind | As informações a serem incluídas na referência cruzada. |
| ReferenceItem | Obrigatório | Variant | Se ReferenceType for wdRefTypeBookmark, este argumento especificará um nome de indicador. Todos os outros valores ReferenceType, este argumento especificará o nome ou número do item na opção tipo de referência na caixa de diálogo de referência cruzada. Use o método GetCrossReferenceItems para retornar uma lista de nomes de itens que podem ser usados com este argumento. |
| InsertAsHyperlink | Opcional | Variant | True para inserir a referência cruzada como um hiperlink para o item referenciado. |
| IncludePosition | Opcional | Variant | True para inserir "acima" ou "abaixo", dependendo do local do item referência em relação a referência cruzada. |
| SeparateNumbers | Opcional | Variant | True para usar um separador para separar os números do texto associado. (Use apenas se o parâmetro ReferenceType é definido como wdRefTypeNumberedItem e o parâmetro de ReferenceKind é definido como wdNumberFullContext.) |
| SeparatorString | Opcional | Variant | Especifica a cadeia de caracteres a ser usado como um separador se o parâmetro SeparateNumbers estiver definido como True. |
Comentários
Se você especificar wdPageNumber como o valor de ReferenceKind, você pode precisar repaginar o documento para ver as informações de referência cruzada corretas.
Exemplo
Este exemplo insere no início do documento ativo uma referência cruzada à página que inclui o primeiro indicador do documento.
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
myBookmarks = ActiveDocument _
.GetCrossReferenceItems(wdRefTypeBookmark)
With myRange
.InsertBefore "Page "
.Collapse Direction:=wdCollapseEnd
.InsertCrossReference ReferenceType:=wdRefTypeBookmark, _
ReferenceKind:=wdPageNumber, ReferenceItem:=myBookmarks(1)
End With
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.