Hi Perhaps something like this: NameBookmark := 'BookmarkA'; i := wdDoc.Bookmarks.Count; found:= False; if i > 0 then begin x:= 1; repeat WordBookmark := wdDoc.Bookmarks.Item(x); WordBookmark.Select(); // I'm not sure. It should work. If Format(wdDoc.Bookmarks.Item()) = NameBookmark then found := true; // x := x +1; until (x > i) or (found = True); end; if found = true then WordBookmark.Range.Text := 'Test'; As always: without testing it [;)]. bye André