Método Selection.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 Selection.

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 caixa 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.
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 uma frase contendo duas referências cruzadas: uma referência cruzada para texto de título e outra para a página onde o texto do título aparece.

With Selection 
 .Collapse Direction:=wdCollapseStart 
 .InsertBefore "For more information, see " 
 .Collapse Direction:=wdCollapseEnd 
 .InsertCrossReference ReferenceType:=wdRefTypeHeading, _ 
 ReferenceKind:=wdContentText, ReferenceItem:=1 
 .InsertAfter " on page " 
 .Collapse Direction:=wdCollapseEnd 
 .InsertCrossReference ReferenceType:=wdRefTypeHeading, _ 
 ReferenceKind:=wdPageNumber, ReferenceItem:=1 
 .InsertAfter "." 
End With

Confira também

Objeto Selection

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.