Método Document.GetCrossReferenceItems (Word)

Devuelve una matriz de elementos a los que pueden aplicarse referencias cruzadas en función del tipo de referencia cruzada especificada.

Sintaxis

expresión. GetCrossReferenceItems( _ReferenceType_ )

Expresión Expresión que representa un objeto Document .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
ReferenceType	Obligatorio	Variant	Tipo de elemento para el que desea insertar una referencia cruzada. Puede ser cualquier constante WdReferenceType.

Comentarios

La matriz que devuelve este método corresponde a los elementos que aparecen en el cuadro para que en el cuadro de diálogo referencia cruzada. El valor devuelto por este método puede usarse como el valor del argumento ReferenceWhich para el método InsertCrossReference del objeto Range o Selection.

Ejemplo:

En este ejemplo se muestra el nombre del primer marcador del documento activo al que se le puede aplicar una referencia cruzada.

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

En este ejemplo se utiliza el método GetCrossReferenceItems para recuperar una lista de títulos a los que se les puede aplicar y, a continuación, se inserta una referencia cruzada a la página que incluya el 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

Consulte también

Objeto Document

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.