// процедура поиска закладок и перехода по ней

procedure WordGotoBookmark(rBookmark: string);
var
  Whatr: OLEVariant;
  // OleEnum;
  // OLEVariant;
  // What :TWordDocument;
  Which: OLEVariant;
  Count: OLEVariant;
  Name: OLEVariant;
begin
  Whatr := wdGoToBookmark;
  Which := unAssigned;
  Count := unAssigned;
  Name := rBookmark;
  Form1.WrdApp.Selection.GoTo_(Whatr, Which, Count, Name);
end;