Range.InsertCrossReference (Word)
Inserta una referencia cruzada en un título, un marcador, una nota al pie o al final, o bien en un elemento para el que se ha definido un rótulo de título; por ejemplo, una ecuación, una figura o una tabla.
Si especifica wdPageNumber como para el valor de ReferenceKind, es posible que tenga que repaginar el documento para ver la información de referencias cruzadas correcta.
InsertCrossReference (ReferenceType, ReferenceKind, ReferenceItem, InsertAsHyperlink, IncludePosition, SeparateNumbers, SeparatorString)
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
Arguments
Estos son los argumentos con nombre :
ReferenceType - WdCaptionLabelID
Posibles valores de retorno son wdCaptionEquation - Tenida, wdCaptionFigure - Averiguar, wdCaptionTable - Table.
ReferenceKind (WdReferenceKind) - Información que debe incluirse en la referencia cruzada.
Aquí puede ver valores posibles para
ReferenceItem (Long) - Si ReferenceType es wdRefTypeBookmark, este argumento especifica un nombre de marcador.
Optional arguments
Los siguientes argumentos son opcionales
InsertAsHyperlink (Boolean) - True para insertar la referencia cruzada como hipervínculo respecto al elemento referenciado.
IncludePosition (Boolean) - True para insertar "más adelante" o "siguiente", según la ubicación del elemento de referencia respecto a la referencia cruzada.
SeparateNumbers (WdReferenceKind) - True para utilizar un separador que separe los números del texto asociado.
Aquí puede ver valores posibles para
SeparatorString (String) - Especifica la cadena que se utilizará como separador si el parámetro SeparateNumbers está establecido en true.