bookmarkid error

[Smallweed]

When I run the following I get a "requested member of the collection does not
exist" error:

If Selection.BookmarkID <> 0 Then
MsgBox ActiveDocument.Bookmarks(Selection.BookmarkID).Name
End If

It's because the id of the bookmark enclosing my cursor happens to be 13 and
yet the ActiveDocument.Bookmarks.Count is only 11.

How can this be??

 

[Stefan Blom]

Not sure why you are getting an error message, but note that you can use the
following code to return the name of the first bookmark in the selection:

Dim MyBookmark As Bookmark
If Selection.Bookmarks.Count > 0 Then
Set MyBookmark = Selection.Bookmarks(1)
MsgBox MyBookmark.Name
End If