Die Chancen stehen gut, dass Sie bereits wissen, wie man Lesezeichen verwendet. (Andere WordTips beschreiben, wie sie definiert und bearbeitet werden.) Wenn Sie Makros erstellen, müssen Sie möglicherweise die Namen der in einem Dokument definierten Lesezeichen abrufen.

Mit VBA können Sie Lesezeichennamen abrufen, indem Sie die Eigenschaft Name mit Mitgliedern der Lesezeichensammlung verwenden. Die Syntax der Anweisung lautet wie folgt:

x = ActiveDocument.Bookmarks(y).Name

Dabei ist y der Versatzzeiger auf den gewünschten Lesezeichennamen. Nach dem Ausführen der Anweisung enthält x den Namen des durch den Zeiger angegebenen Lesezeichens. Um diese Funktion nützlich zu machen, sollten Sie wirklich alle Lesezeichennamen in ein Array einlesen, das Sie dann bearbeiten können. Das folgende Codefragment führt den Trick aus:

Dim Bmk() As String Dim x As Integer, J As Integer

x = ActiveDocument.Bookmarks.Count ReDim Bmk(x)

For j = 1 to x     Bmk(j) = ActiveDocument.Bookmarks(j).Name Next j

Beachten Sie, dass dieses Codefragment die ReDim-Anweisung verwendet, mit der Sie die Anzahl der Elemente in einem Array dynamisch ändern können. Der Grund für diesen Ansatz ist recht einfach: Das Bmk-Array muss so viele Elemente enthalten, wie definierte Lesezeichen vorhanden sind. Sie können jedoch nicht genau wissen, wie viele es sind, bevor Sie die dritte Zeile dieses Codes ausführen. VBA erfordert, dass alle Bemaßungen (unter Verwendung von Dim) durchgeführt werden, bevor ein tatsächlicher Programmcode ausgeführt wird. Somit besteht das erste Dim für Bmk darin, VBA zu erfüllen, und das ReDim von Bmk wird durchgeführt, um das Array auf die erforderliche Größe einzustellen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (11969) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier: