[cadil]

Не могу добиться вставки текста 'TEST!' после закладки 'Контроль' в документ C:\TestDoc.doc (см. код).

Код:

var
Form1: TForm1;
MSWord, WordApplication1:OLEvariant;
Bookmark1, R, vst: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
MsWord := CreateOleObject('Word.Application');
MsWord.Visible := True;
MSWord.Documents.Open('C:\TestDoc.doc');
try
MSWord.Activate;
except
  ShowMessage('Ошибки при активации документа!');
end;
Bookmark1 := 'Контроль';
if MSWord.WordDocument1.Bookmarks.Exists(Bookmark1) then
begin
  R := MSWord.WordDocument1.Bookmarks.Item(Bookmark1).Range;
  R.InsertAfter('TEST!');
   R.Font.Color := clRed;
   Button1.Visible := False;
end;
//vst:= 'TEST!';
//MSWord.WordDocument1.Bookmarks ('Контроль').Range.Text :=  vst;
end;
end.

Программа запускается. После нажатия на Button1 открывается документ TestDoc.doc и выводится сообщение: Method 'WordDocument1' not supported by automation object.
Как запустить программу? Спасибо!