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.
Jezebel schrieb:
> Dim pBookMark as Word.Bookmark
> For each pBookMark in Selection.Bookmarks
[quoted text clipped - 13 lines]
>>
>>Reinhart.