Klasse Bookmarks (Word VBA)

Eine Auflistung von Bookmark -Objekten, die die Textmarken in der angegebenen Auswahl, im Bereich oder im Dokument darstellen.

Um eine Bookmarks -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim bkms as Bookmarks
Set bkms = ActiveDocument.Bookmarks

Die folgenden Prozeduren können zum Festlegen der Bookmarks Klassenvariablen verwendet werden : Document.Bookmarks, Range.Bookmarks und Selection.Bookmarks.

For Each

Hier ist ein Beispiel für die Verarbeitung der Bookmarks -Elemente in einer Sammlung

Dim bkm As Bookmark
For Each bkm In ActiveDocument.Bookmarks
	
Next bkm

Add

Gibt ein Bookmark -Objekt zurück, das eine Textmarke darstellt, die einem Bereich hinzugefügt wurde.

Add (Name, Range)

Sub BMark() 
 ' Select some text in the active document prior 
 ' to execution. 
 ActiveDocument.Bookmarks.Add _ 
 Name:="myplace", Range:=Selection.Range 
End Sub

Arguments

Ein benanntes Argument

Name (String) - Der Name der Textmarke.

Optional arguments

Das folgendes Argument ist optional

Range (Range) - Der Textbereich, der durch die Textmarke markiert wird.

Count

Gibt die Anzahl der in der Bookmarks-Auflistung enthaltenen Elemente zurück.

Dim lngCount As Long
lngCount = ActiveDocument.Bookmarks.Count

DefaultSorting

Gibt die Sortieroption der im Dialogfeld Textmarke (Menü Einfügen) angezeigten Textmarkennamen zurück oder legt sie fest. Mögliche Rückgabewerte sind wdSortByLocation - Sortiert nach Position im Dokument, wdSortByName - Sortiert nach Textmarkenname.

Diese Eigenschaft wirkt sich nicht auf die Reihenfolge von Bookmark -Objekten in der Bookmarks -Auflistung aus.

ActiveDocument.Bookmarks.DefaultSorting = wdSortByLocation 
Dialogs(wdDialogInsertBookmark).Show

Exists

Ermittelt, ob die angegebene Textmarke vorhanden ist.

Exists (Name)

Name: Ein Name der Textmarke, der nicht mehr als 40 Zeichen oder mehr als ein Wort enthalten kann.

If ActiveDocument.Bookmarks.Exists("start") = True Then 
 ActiveDocument.Bookmarks("start").Delete 
End If

Item

Gibt ein einzelnes Bookmark -Objekt in einer Auflistung zurück.

Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

Sub BookmarkItem() 
 If ActiveDocument.Bookmarks.Exists("temp") = True Then 
 ActiveDocument.Bookmarks.Item("temp").Select 
 End If 
End Sub

ShowHidden

True, wenn die Bookmarks-Auflistung ausgeblendete Textmarken enthält.

Mit der ShowHidden-Eigenschaft wird auch gesteuert, ob ausgeblendete Textmarken im Dialogfeld Textmarke (Menü Einfügen) aufgeführt werden sollen.

ActiveDocument.Bookmarks.ShowHidden = True 
Dialogs(wdDialogInsertBookmark).Show