[cadil]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

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]

НУ КАК ТО ТАК

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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."
Какой модуль еще нужно завести? Сейчас у меня -

Код:

1 2 3

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

[pesi]

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

Код:

1 2 3

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

[pesi]

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

[cadil]

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

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

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

[pesi]

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

Код:

1 2	Left:=1112; Top:=570;

сделай

Код:

1 2	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

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