Alberto verwendet in seinen Dokumenten häufig Lesezeichen. Er möchte in der Lage sein, eine Liste aller Lesezeichen in einem Dokument zusammen mit jedem Text auszudrucken, den jedes Lesezeichen enthalten kann.

In anderen Ausgaben von WordTips gab es verschiedene Makros, mit denen eine Liste von Lesezeichen in einem Dokument gedruckt werden kann. Diese Makros haben jedoch den Inhalt der Lesezeichen nicht gedruckt.

Dieses Makro druckt tatsächlich den Inhalt:

Sub PrintBookMarks()

Dim B As Bookmark

Selection.TypeParagraph     Selection.InsertBreak Type:=wdColumnBreak     Selection.TypeText Text:="Bookmark list for "

Selection.TypeText Text:=ActiveDocument.Name     Selection.TypeParagraph     For Each B In ActiveDocument.Bookmarks         Selection.TypeText Text:=B.Name         Selection.TypeParagraph         Selection.TypeText Text:=B.Range.Text         Selection.TypeParagraph         Selection.TypeParagraph     Next B  Selection.InsertBreak Type:=wdColumnBreak End Sub

Der Schlüssel hier ist das Drucken der .Range.Text-Eigenschaft jedes Lesezeichens. Wenn ein Lesezeichen keinen Textbereich enthält (möglicherweise markiert es eine einzelne Stelle in einem Dokument), wird für dieses bestimmte Lesezeichen natürlich nichts gedruckt.

Es gibt auch einige Dienstprogramme von Drittanbietern, die beim Verwalten Ihrer Lesezeichen (einschließlich des Ausdrucks) hilfreich sein können. Ein solches Dienstprogramm heißt Word uTIlities und ist hier zu finden:

http://insight.trueinsight.za.com/word/word-utilities

_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 (3823) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier: