Sub EraseBmks()
Dim bm As Bookmark
For Each bm In ActiveDocument.Bookmarks
bm.delete
Next
End Sub