If you want to delete the bookmarks, but retain anything that they contain,
use:

Dim i As Long
With ActiveDocument
For i = .Bookmarks.Count To 1 Step -1
.Bookmarks(i).Delete
Next i
End With

If you want to delete the bookmarks and their contents, then use:

Dim i As Long
With ActiveDocument
For i = .Bookmarks.Count To 1 Step -1
.Bookmarks(i).Range.Delete
Next i
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Deane-Denver" wrote in message
...
I need to Delete All Bookmarks at once in a word document - it is not a
template