word 批量删除书签

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

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