![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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);Последний раз редактировалось ~TB~, 12.11.2011 в 18:19. |
|
#3
|
|||
|
|||
|
Спасибо большое,будем пробовать!
|