Re: Передача данных в Word
От: Romkin  
Дата: 28.01.02 12:43
Оценка:
Здравствуйте Самохин Владимир Петрович, Вы писали:

СВП>Требуется вставить данные в существующий документ Microsoft Word, в определенное место. Режим поиск-вставка. Возможно ли это.


Ключ к этому — функция GetActiveOleObject('Word.Application'); находится в ComObj.pas. Если Word запущен — даст ссылку на интерфейс. Примерный код

var
Wrd: Variant;
Doc : Variant;
Basic: Variant;

Wrd := GetActiveOleObject('Word.Application'); //or CreateOleObject... — если надо запустить.
Doc := Wrd.ActiveDocument; //Текущий документ
Doc.PrintOut; //Печать текущего документа
BAsic := Wrd.WordBasic // Интерфейс к VBA
Basic.FileOpen('aaa.doc'); //Открытие документа через VBA
и тд
Другие способы доступа описаны в разделе Developing COM-based Applications -> Create automation controller справки
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.