快速删除word书签

快速删除word书签

在文档中按alt + F11 键进入 VBA 编辑框
在当前的 Project 中的 Microsoft Word 对象的ThisDocument中
选中 Project —> Microsoft Word 对象 —> ThisDocument ，并双击。

然后在 新建 DOCX 文档（2）- ThisDocument（代码）框中输入

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

最后按 F5 ，即可清空文档中所有的书签。