If ActiveDocument.Bookmarks.Exists("Text1") Then 
  IsBookmarkAvailable = True 
Else 
  IsBookmarkAvailable = False 
End If