[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.
Как запустить программу? Спасибо!

[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;

[cadil]

Попробовал. Не получается ... - "Запрашиваемый номер семейства не существует. Process stopped."
Какой модуль еще нужно завести? Сейчас у меня -

Код:

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ExtDlgs, JPEG, ComCtrls, MPlayer, Buttons, ComObj,
OleServer, Word2000, Menus, ShellAPI, IniFiles, Math;

[pesi]

не знаю вот мой

Код:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, comobj;

[pesi]

скинул исходник вот word.rar

[cadil]

Сообщение от pesi

скинул исходник вот Вложение 917

Спасибо за выполненную работу. К сожалению, в исходнике нет формы (или она не видна). Пожалуйста - этот же исходник с формой и хотя бы с кнопкой4 на ней. Я немного повозился с присланным исходником, но положительного результата не добился.