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

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

Вернуться   Форум программистов > C/C++ программирование > C++ Builder
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 29.06.2016, 11:22   #1
dimok5
Пользователь
 
Регистрация: 10.10.2010
Сообщений: 51
По умолчанию Построчный вывод - таблица в dbgrid. Каждую строку таблицы нужно экспортировать в документ ворд

Добрый день.
Имеется таблица в dbgrid. Каждую строку таблицы нужно экспортировать в документ ворд(2 строки на одну страницу - шапка таблицы и строка таблицы).

Пока получается лишь открыть документ, но с выводом проблемы...
Код:
if(!fStart)
 {
  try
  {
   vVarApp=CreateOleObject("Word.Application");
   fStart=true;
  }
  catch(...)
  {
    MessageBox(0, "ошибка при открытии Word",
                 "ошибка", MB_OK);
  return;
  }
 }
 

 vVarApp.OlePropertySet("Visible",true);
vVarDoc=vVarApp.OlePropertyGet("Documents");
vVarDoc.OleProcedure("Open", "e:\\g.doc");
vVarDoc=vVarDoc.OleFunction("Item", 1);
vVarDoc.OleProcedure("Activate");

Последний раз редактировалось dimok5; 29.06.2016 в 11:25.
dimok5 вне форума Ответить с цитированием
Старый 29.06.2016, 16:09   #2
dimok5
Пользователь
 
Регистрация: 10.10.2010
Сообщений: 51
По умолчанию

Немного разобрался, но всё равно не пойму как зациклить вывод строк до конца таблицы.


Код:
 vVarApp.OlePropertySet("Visible",true);
vVarDoc=vVarApp.OlePropertyGet("Documents");
vVarDoc.OleProcedure("Open", "e:\\q.doc");
vVarDoc=vVarDoc.OleFunction("Item", 1);
vVarDoc.OleProcedure("Activate");


vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Find").OleProcedure("Execute",
 "x1", false,  false,
false,false, false,
true, 1, false, ADOTable1->FieldByName("фамилия")->AsString.c_str(), 2);


vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Find").OleProcedure("Execute",
 "x2", false,  false,
false,false, false,
true, 1, false, ADOTable1->FieldByName("имя")->AsString.c_str(), 2);

vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Find").OleProcedure("Execute",
 "x3", false,  false,
false,false, false,
true, 1, false, ADOTable1->FieldByName("отчество")->AsString.c_str(), 2);
dimok5 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод матрицы в документ ворд / VBA Sting95 Помощь студентам 0 11.05.2014 00:38
Нужно описать каждую строку!Пжлс-та miracle94 Помощь студентам 4 28.05.2013 17:14
Можно ли как то экспортировать поля с одного шаблона ворд в другой? @лeся Microsoft Office Word 2 19.03.2012 11:54
Объяснить каждую строку кода!Очень нужно Kugen Общие вопросы Delphi 0 18.12.2010 17:40