Hi Macropod:
Don't you have to work backwards up the Bookmarks collection?
For oBkMk = .Bookmarks.count to 1 step -1
oBkMk.Delete
Next
I always found if you went forwards, the collection re-numbers and you get
only every second one.
Cheers
Hi Edmon,
As Bob (Cyber Taz) says, there's no command for deleting all bookmarks in once
go - they need to be deleted one at a time. Here's a
macro to do the job:
Sub KillBkMrks()
Dim oBkMk As Bookmark
With ActiveDocument
.Bookmarks.ShowHidden = True
For Each oBkMk In .Bookmarks
oBkMk.Delete
Next
.Bookmarks.ShowHidden = False
End With
End Sub
Be warned, though, you'll destroy any cross-references etc by deleting the
bookmarks to which they refer.
This email is my business email -- Please do not email me about forum
matters unless you intend to pay!
--
John McGhie, Microsoft MVP (Word, Mac Word), Consultant Technical Writer,
McGhie Information Engineering Pty Ltd
Sydney, Australia. | Ph: +61 (0)4 1209 1410
+61 4 1209 1410, mailto:
[email protected]