delete all bookmarks in file

[Tony Logan]

Can a macro delete all bookmarks in a file? I want to be able to delete all
of them without knowing in advance how many there are, since the number will
vary from file to file.

I'm using Word XP.

 

[Jonathan West]

Can a macro delete all bookmarks in a file? I want to be able to delete
all
of them without knowing in advance how many there are, since the number
will
vary from file to file.

I'm using Word XP.

This will do the needful

Dim n as Long
For n = 1 to ActiveDocument.Bookmarks.Count
ActiveDocument.Bookmarks(1).Delete
Next n

 

[Vince]

Ha ha! Typo!

Dim n as Long
For n = 1 to ActiveDocument.Bookmarks.Count
ActiveDocument.Bookmarks(n).Delete
Next n

 

[Jonathan West]

Ha ha! Typo!

Dim n as Long
For n = 1 to ActiveDocument.Bookmarks.Count
ActiveDocument.Bookmarks(n).Delete
Next n

No typo. You try it my way and then your way, and see which works.

 

[Jezebel]

Vince, you should have tried it first, before proving so gleeefully to the
world that you're an obnoxious fuckwit.

 

[Vince]

Oops! I take that back. Sorry!

No typo. You try it my way and then your way, and see which works.


--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup

 

[Jonas]

when I use this method for deleting all bookmarks, for some reason the var n
only goes up to half of the ActiveDocument.Bookmarks.Count total and then
exits the loop. If I try to force the loop to calculate over half, it shows
the Bookmarks(n) to be invalid. anybody have any clues?

Thanks alot,
J.

 

[Greg Maxey]

Jonas,

Try this:

Sub DeleteBookmarks()
Dim n As Long
For n = ActiveDocument.Bookmarks.Count To 1 Step -1
ActiveDocument.Bookmarks(n).Delete
Next n

End Sub

 

[Jonas]

Thanks for your reply.

But I dont think this is going to work for me because Im controlling Word
from a non-microsoft language through com-handles.

 

[Vince]

Should be (1).Delete and NOT (n).Delete. I thought it was a typo back then
until Jonathan corrected me.

****************************************
Dim n as Long
For n = 1 to ActiveDocument.Bookmarks.Count
ActiveDocument.Bookmarks(1).Delete
Next n
****************************************