Word提供了非常强大的书签功能，可让您将名称分配给文档中各个位置或文本选择。当您更多地使用Word时，尤其是在较长的文档中，定期打印书签列表会很有帮助。不幸的是，Word不能像其他文档相关信息一样提供自动的书签打印方法。

打印书签列表的最快方法是将列表插入文档中，然后再打印。以下VBA宏将书签列表插入到插入点：

Sub BkMarkList()

Dim J as Integer

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

Selection.TypeText Text:=ActiveDocument.Name     Selection.TypeParagraph     For J = 1 To ActiveDocument.Bookmarks.Count         Selection.TypeText Text:=Chr(9)

Selection.TypeText Text:=ActiveDocument.Bookmarks(J).Name         Selection.TypeParagraph     Next J     Selection.InsertBreak Type:=wdColumnBreak End Sub

运行宏时，将插入一个指示文件名的标题，然后是文件中的每个书签。这些将按字母顺序。书签列表在其前后都有一个分栏符。然后，您可以打印出包含书签列表的单个页面。完成打印后，可以删除书签列表。

注意：

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

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

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

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

打印书签列表。