Советы по 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]
