Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
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.