有些人绝对喜欢书签。它们确实派上用场，但是如果其他人在文档中设置了书签，则从它们中获取文档后可能就不需要它们了。如果设置了很多书签（请记住，我们正在谈论的是_really_喜欢书签的人），那么一次将其全部删除可能会非常乏味。

如果您遇到这种情况，则希望保留以下宏。它检查活动文档（正在查看的文档）并删除其中的所有书签。

Sub RemoveAllBookmarks()

Dim b As Bookmark

For Each b In ActiveDocument.Bookmarks         b.Delete     Next b End Sub

您应该注意，这只是删除书签，而不是删除书签引用的任何文本。还要注意，它会删除文档中的所有书签，包括可能由Word本身创建的所有书签。

（Word为各种目的创建了自己的隐藏书签，例如目录中的链接。）如果要跳过对Word可能已创建的任何书签的删除，则可以稍微修改一下宏：

Sub RemoveUserBookmarks()

Dim b As Bookmark

For Each b In ActiveDocument.Bookmarks         If Left(b.Name,1) <> "_" Then b.Delete     Next b End Sub

注意：

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

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

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

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

删除所有书签。