[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 на ней. Я немного повозился с присланным исходником, но положительного результата не добился.

[pesi]

не, все там, просто открой исходник и выстави параметры форрмы
было

Код:

Left:=1112;
Top:=570;

сделай

Код:

Left:=100;
Top:=100;

у меня экран просто широкоформатный

[pesi]

выложил исправленный Вложение 927

[cadil]

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

выложил исправленный Вложение 918

Безумно благодарен помощь! Открыл проект с папки ворд2 и все сразу заработало. Теперь буду адаптировать это решение применительно к своей задаче.
Удач!!!

[PhoeniX]

offtop: ни фига се мониторчик у тебя... какое же у тя разрешение, если 1112x570 - примерно середина??

[pesi]

DJ PhoeniX, велик ли мониторчик, всего 1440x900

[PhoeniX]

Фига... у мну дома 1280х1024... а этот блин широченный... ептить... Ты что на нём смотришь?

[cadil]

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

Безумно благодарен помощь! Открыл проект с папки ворд2 и все сразу заработало. Теперь буду адаптировать это решение применительно к своей задаче.
Удач!!!

Я, оказывается, рано обрадовался. Нормально функционирует только проект от pesi. Как только меняю слово в закладке или пишу это же слово (Контроль) в этом же документе 1.doc и затираю старую запись - программа перестает функционировать: "Запрашиваемый номер семейства не существует. Process stopped."
Пробовал работать с закладками на английском - не получается.
Похоже, что-то с настройками редактора Delphi.
Что посоветуете?

[pesi]

скинь свой 1.doc

[cadil]

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

скинь свой 1.doc

Скинул. Извини - без линка.