Document.GetCrossReferenceItems-Methode (Word)

  • Artikel

Gibt ein Array von Elementen zurück, auf die auf der Basis des angegebenen Querverweistyps verwiesen werden kann.

Syntax

Ausdruck. GetCrossReferenceItems( _ReferenceType_ )

Ausdruck Ein Ausdruck, der ein Document-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
ReferenceType Erforderlich Variant Der Elementtyp, für den Sie einen Querverweis einfügen möchten. Kann eine beliebige WdReferenceType-Konstante sein.

HinwBemerkungeneise

Das von dieser Methode zurückgegebene Array entspricht den im Feld Für welche des Dialogfelds Querverweis aufgeführten Elementen. Der von dieser Methode zurückgegebene Wert kann als Wert des ReferenceWhich-Arguments für die InsertCrossReference-Methode des Range - oder Selection-Objekts verwendet werden.

Beispiel

In diesem Beispiel wird im aktiven Dokument der Name der ersten Textmarke angezeigt, zu der ein Querverweis erstellt werden kann.

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

In diesem Beispiel wird die GetCrossReferenceItems-Methode zum Abrufen einer Liste von Überschriften verwendet, zu der ein Querverweis erstellt werden kann. Anschließend wird ein Querverweis auf die Seite eingefügt, die die Überschrift "Introduction" enthält.

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

Siehe auch

Document-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.