![]() |
|
|
Регистрация | << Правила форума >> | 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. |
#2
|
||||
|
||||
![]() Как-то так:
Код:
WordApp.WordBasic.FileOpen(ExtractFileDir(Application.ExeName) + '\' + ReportFileTemplate); WordApp.WordBasic.EditBookmark('MyBookmark', 0, 0, 0, 1); WordApp.WordBasic.Insert(MyData); 00110001 00101100 00110110 00110001 00111000 00110000 00110011 00110011 00111001 00111000 00111000 00110111 00110100 00111001 00111000 00111001 00110100 00111000 00110100 00111000 00110010 00110000 00110100 00110101 00111000 00110110 00111000 00110011 00110100 00110011 00110110 00110101 00110110 Последний раз редактировалось ~TB~, 12.11.2011 в 18:19. |
#3
|
|||
|
|||
![]() Спасибо большое,будем пробовать!
|