word 批量删除书签

打开word    按住alt+F11 进入vba 界面

Sub test()

Dim MyBk As Bookmark

For Each MyBk In ActiveDocument.Bookmarks

    MyBk.Delete

Next

End Sub