for I := 1 to wordApplication.ActiveDocument.BookMarks.Count do
begin
Index := I;
BookMark := wordApplication.ActiveDocument.BookMarks.Item(Index);
BookMark.Select ;
end;
for I := 1 to wordApplication.ActiveDocument.BookMarks.Count do
begin
Index := I;
BookMark := wordApplication.ActiveDocument.BookMarks.Item(Index);
if BookMark.Name = 'One' then
BookMark.Select ;
end;