![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Помогите пожалуйста!!! Прочитала уже все статьи, но не получается!
Имеется программа в делфи7, соединенная с БД Аксесс через ADO, на форме DBGrid и кнопка, необходимо по нажатию кнопки сформировать отчёт в ворд.Грид соединен с модулем. Шаблон ворд уже сделала, пробовала и с закладками и с метками## . Пока что остановилась на этом: Код:
procedure TfSot.BitBtn7Click(Sender: TObject); //ворд var WordApp, doc :Variant; begin WordApplication1.Connect; try WordApp:=CreateOleObject('Word.Application'); doc:=WordApp.Documents.open('1.doc'); WordApp.Selection.GoTo(-1,,,'im');//переход к закладке WordApp.Selection.TypeText(fDM.TSotrudnik.FieldByName('имя').AsString);//вставляем то, что нам надо .Text except end; end; но выходит ошибка. . . Последний раз редактировалось Admin, 12.11.2011 в 14:22. |