Word批量删除所有书签

Word中的书签功能可快速、准确定位文档中特定的位置，经常用于模板定制、文档产出等。

可一直以来，书签功能存在一个不便的操作，即无法批量删除，只能单个删除，操作极不友好。

解决方案

我用代码暂时还改变不了世界，但可以提高工作效率。使用两VBA代码，即可完成遍历、删除。

ALT+F11,打开VBA编辑器，在ThisDocument页面写下语句，F5执行即可。

Sub DelBookmarks()
Dim MyBk As Bookmark
For Each MyBk In ActiveDocument.Bookmarks
    MyBk.Delete
Next
End Sub