How to find out whether a selection or range contains any bookmark

[Reinhart Vollmer]

Hi,

I have to find out whether there is a bookmark within a certain
selection or range of my word document and - if there is a bookmark in
the selection/range - which name it has.

I could iterate the bookmarks-list and check each and every bookmark.
But that's seems far too much trouble. Is there a simple way to find out
a bookmark within a selection/range?

Thanks for any idea!

Reinhart.

 

[Jezebel]

Dim pBookMark as Word.Bookmark
For each pBookMark in Selection.Bookmarks
...

 

[Reinhart Vollmer]

Thank you so much,

but I found a solution myself in the meantime, that is (Delphi-Code for Word 97, 2000, 2002):

i := WordApplication.Selection.BookmarkID;
if i > 0 then
begin
sName := WordApplication.Activedocument.Bookmarks.Item(i).Name;
...
end;

Thanks again,
Reinhart.