[pesi]

НУ КАК ТО ТАК

Код:

procedure TForm1.Button4Click(Sender: TObject);
var
MSWord, ran:OLEvariant;
begin
MsWord := CreateOleObject('Word.Application');
MsWord.Visible := True;
MSWord.Documents.Open('C:\TestDoc.doc');
try
 MSWord.Activate;
   try
      MSWord.ActiveDocument.Bookmarks.item('Контроль');
       ran:=MSWord.ActiveDocument.Bookmarks.item('Контроль').range;
       ran.insertafter(' www.delphisources.ru ');
       ran.Font.Color := clRed;
       Button1.Enabled := False;
      except
      ShowMessage('Ошибка при поиске не нашлось нужной вкладки!');
      end;
    except
  ShowMessage('Ошибки при активации документа!');
end;
end;