Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.11.2011, 11:35   #1
GROSS777
Пользователь
 
Регистрация: 27.05.2010
Сообщений: 18
По умолчанию Вывод данных из Access в Word

Всем привет, у меня возникла такая задача: нужно заполнить вордовский документ данными из БД.

Делаю вот так:
Код:
procedure TfEditor.Button4Click(Sender: TObject);
var Shablon:OleVariant;
begin
  Shablon:=ExtractFileDir(ParamStr(0))+'\Шаблоны\pril7.doc';
  
  WordApplication1.Connect;
  WordApplication1.Visible:=true;
  WordApplication1.Documents.Add(Shablon,EmptyParam, EmptyParam,EmptyParam);
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);

 WordGotoBookmark('fam');
 WordInsertText(' ' + fDM.TRab.FieldByName('fam').AsString);
end;
при компиляции пишет ошибки
[Error] editor.pas(120): Undeclared identifier: 'WordGotoBookmark'
[Error] editor.pas(121): Undeclared identifier: 'WordInsertText'

В чем может быть дело?
GROSS777 вне форума Ответить с цитированием
Старый 22.11.2011, 13:32   #2
GROSS777
Пользователь
 
Регистрация: 27.05.2010
Сообщений: 18
По умолчанию

Решил вопрос вот так)

Код:
Shablon:=ExtractFileDir(ParamStr(0))+'\Шаблоны\pril7.doc';
  WordApplication1.Connect;
  WordApplication1.Visible:=true;
  WordApplication1.Documents.Add(Shablon,EmptyParam, EmptyParam,EmptyParam);
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);

  bm:='fam';
  WordApplication1.ActiveDocument.Bookmarks.Item(bm).Select;
  WordApplication1.Selection.InsertAfter(' ' + fDM.TRab.FieldByName('fam').AsString);
Только появилась проблема, текст в ворде надо чтобы печатался с заменой (как при нажатой клавише Insert), а у меня со смещением печатается. Как быть?

Последний раз редактировалось GROSS777; 22.11.2011 в 14:19.
GROSS777 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
экспорт данных из access в существующие файлы word и excel Margaret Microsoft Office Access 4 10.12.2010 15:44
бд ввод и вывод данных из базы Access kosikator БД в Delphi 4 24.02.2010 19:41
Открытие файла MS Word из базы данных Access. v_skull БД в Delphi 0 17.05.2009 17:08
Передача данных Access Word (пояснение) Dryuks Microsoft Office Access 1 28.01.2008 06:06