Document.GetCrossReferenceItems-Methode (Word)
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. |
Hinweise
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
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.