A macro to add, delete, and find hidden and non-hidden bookmarks in Word

Method 1: Code to Strip All Bookmarks from a Document
Sub StripAllBookmarks()
Dim stBookmark As Bookmark
ActiveDocument.Bookmarks.ShowHidden = True
If ActiveDocument.Bookmarks.Count >= 1 Then
For Each stBookmark In ActiveDocument.Bookmarks
stBookmark.Delete
Next stBookmark
End If
End Sub


Method 2: Code to Strip Only Hidden Bookmarks from a Document

Sub StripHiddenBookmarks()
Dim stBookmark As Bookmark
ActiveDocument.Bookmarks.ShowHidden = True
If ActiveDocument.Bookmarks.Count >= 1 Then
For Each stBookmark In ActiveDocument.Bookmarks
If Left(stBookmark, 1) = "_" Then
stBookmark.Delete
End If
Next stBookmark
End If
End Sub



Method 3: Code to Add a Hidden Bookmark
The following code adds a bookmark named "_HiddenBookmark1" to a document at the location of the insertion point or selection.

Sub AddHiddenBookmark
ActiveDocument.Bookmarks.Add Name:="_HiddenBookmark1"
End Sub