Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 12.11.2011, 14:16
Kolibri Kolibri вне форума
Прохожий
 
Регистрация: 27.09.2011
Сообщения: 2
Репутация: 10
Печаль заполнение шаблона Word через Delphi

Помогите пожалуйста!!! Прочитала уже все статьи, но не получается!
Имеется программа в делфи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;
Админ: Пользуемся тегами для оформления кода!

но выходит ошибка. . .
Изображения
Тип файла: jpg 1.JPG (21.8 Кбайт, 6 просмотров)
Тип файла: jpg 2.JPG (20.7 Кбайт, 3 просмотров)

Последний раз редактировалось Admin, 12.11.2011 в 14:22.
Ответить с цитированием
  #2  
Старый 12.11.2011, 18:16
Аватар для ~TB~
~TB~ ~TB~ вне форума
Начинающий
 
Регистрация: 17.02.2006
Адрес: Казахстан
Сообщения: 172
Версия Delphi: XE
Репутация: 1500
По умолчанию

Как-то так:
Код:
  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  
Старый 13.11.2011, 10:20
Kolibri Kolibri вне форума
Прохожий
 
Регистрация: 27.09.2011
Сообщения: 2
Репутация: 10
По умолчанию

Спасибо большое,будем пробовать!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:00.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025