removing all bookmarks at one time

[Deborahp]

Is there a way to remove all bookmarks at the same time?

[Rudi]

Hi Deborah,

Try the macros at this link. They have been confirmed to work fine!

Link: http://support.microsoft.com/kb/184041

[HansV]

For most situations, this simple macro will do:

Code: Select all

Sub RemoveBookmarks()
  Dim bmk As Bookmark
  For Each bmk In ActiveDocument.Bookmarks
    bmk.Delete
  Next bmk
End Sub

[Sundog]

Hans, my Word 2010 document has an Attachment with separate page numbering (that I learned how to do from the Lounge with PAGEREF arithmetic). After I remove all bookmarks, I need to insert a bookmark just prior to the last section break in the document, so the Attachment page numbering works. What code should I append to the RemoveBookmarks macro to accomplish this?

Something like: go to end of document, search up for section break, insert bookmark Att just ahead of section break.

[HansV]

Does this do what you want?

Code: Select all

    Dim lngPos As Long
    Dim rng As Range
    lngPos = ActiveDocument.Sections(ActiveDocument.Sections.Count - 1).Range.End - 1
    Set rng = ActiveDocument.Range(lngPos, lngPos)
    ActiveDocument.Bookmarks.Add Name:="Att", Range:=rng

[Sundog]

Will try and report. Thanks.

[Sundog]

Works as advertised. Thanks again!