Alberto在他的文档中广泛使用书签。他希望能够打印出文档中所有书签的列表以及每个书签可能包含的任何文本。

在其他一些单词提示中，有各种宏可以打印文档中的书签列表。但是，这些宏并没有实际打印书签的内容。

该宏实际上将打印内容：

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:=.Name         Selection.TypeParagraph         Selection.TypeText Text:=.Range.Text         Selection.TypeParagraph         Selection.TypeParagraph     Next B     Selection.InsertBreak Type:=wdColumnBreak End Sub

此处的关键是打印每个书签的.Range.Text属性。当然，如果书签不包含一定范围的文本（也许它标记了文档中的单个位置），则该特定书签将不会打印任何内容。

还有一些第三方实用程序可能有助于管理书签（包括将其打印出来）。一种这样的实用程序称为Word实用程序，您可以在这里找到它：

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

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（12228）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

打印带有内容的书签列表。