Check the existence of a certain bookmark

[andreas]

Dear Experts:

I would like to check whether...
.... a bookmark with the bookmark name 'Version' exists in the current
document.
If 'YES' the macro is to continue, if 'NO' a MsgBox is to say, that
the Bookmark 'Version' is missing and the subroutine is to exit.

Help is much appreciated. Thank you very much in advance.

Regards, Andreas

 

[Tony Jollans]

One way ...

Dim R As Word.Range
On Error Resume Next
Set R = ActiveDocument.Bookmarks("yourbookmarkname").Range
On Error GoTo 0
If R Is Nothing Then
MsgBox "Not found"
Exit Sub
End If
' more code if the bookmark exists

 

[Harold Druss]

Dear Experts:

I would like to check whether...
... a bookmark with the bookmark name 'Version' exists in the current
document.
If 'YES' the macro is to continue, if 'NO' a MsgBox is to say, that
the Bookmark 'Version' is missing and the subroutine is to exit.

Help is much appreciated. Thank you very much in advance.

Regards, Andreas

Another solution

If ActiveDocument.Bookmarks.Exists("Harry") Then
'do something
Else
MsgBox "Bookmark does not exist"
End If

 

[andreas]

One way ...

Dim R As Word.Range
On Error Resume Next
Set R = ActiveDocument.Bookmarks("yourbookmarkname").Range
On Error GoTo 0
If R Is Nothing Then
    MsgBox "Not found"
    Exit Sub
End If
' more code if the bookmark exists

--
Enjoy,
Tony

 www.WordArticles.com

Hi Tony,

thank you very much for your great support.

Regards, Andreas

 

[andreas]

Another solution

If ActiveDocument.Bookmarks.Exists("Harry") Then
    'do something
Else
    MsgBox "Bookmark does not exist"
End If

Hi Harold,

thank you very much for your great help. It works.

Regards, Andreas