Советы по Delphi

         

Создание документов Word


Я обнаружил, что следующий код работает хорошо в связке Delphi -> Word 97 (с использованием поля "Закладки" в Word):

..
..
..


implementation

uses
OleAuto;
..
..
..
var

V : Variant ;
..
..
..

V := 0; // не забудьте инициализировать переменную
..
..
.. другие функции


if V = 0 thenbeginV := CreateOLEObject('Word.Application');V.WordBasic.AppShow;end;
// данный пример показывает технологию заполнения полей// некой закладки в "стандартном письме" с помощью запроса,// выполненного прежде в модуле данных pnm_data (OK,// надо было бы использовать блок with...!)V.WordBasic.Fileopen('Имя вашего документа Word');V.WordBasic.EditBookmark('Заголовок',0,0,0,1);V.WordBasic.Insert(Title);V.WordBasic.EditBookmark('Имя',0,0,0,1);V.WordBasic.Insert(FirstName + ' ');V.WordBasic.EditBookmark('Фамилия',0,0,0,1);V.WordBasic.Insert(pnm_data.ContactsQuery1Fam_Name.AsString + ' ');V.WordBasic.EditBookmark('Адрес1',0,0,0,1);V.WordBasic.Insert(pnm_data.ContactsQuery1Address1.AsString + ' ');V.WordBasic.EditBookmark('Адрес2',0,0,0,1);V.WordBasic.Insert(pnm_data.ContactsQuery1Address2.AsString + ' ');V.WordBasic.EditBookmark('Адрес3',0,0,0,1);V.WordBasic.Insert(pnm_data.ContactsQuery1Address3.AsString + ' ');V.WordBasic.EditBookmark('Заголовок1',0,0,0,1);V.WordBasic.Insert(Title);V.WordBasic.EditBookmark('Фамилия1',0,0,0,1);V.WordBasic.Insert(pnm_data.ContactsQuery1Fam_Name.AsString + ' ');
(Вы могли бы также использовать команду V.WordBasic.PrintDefault,если вы хотите напечатать ваш документ... и множество других команд,типа сохранения, смены шрифта и т.д.)
....другое

[000192]



Содержание раздела







Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий