Как создать/перенести в Word таблицу с данными?

← →
Sofronov (2008-04-26 19:27) [0]

С запуском Word-а всё понятно:
uses ComObj; ... procedure RunWord; var Word: variant; begin try Word := CreateOleObject("Word.Application"); except ShowMessage("Не могу запустить MS Word"); end; end;
А как создать/перенести в Word таблицу с данными? Для меня главное – фиксированная ширина колонок и автоподбор высоты по содержимому.

← →
YurikGL © (2008-04-26 21:44) [1]

http://www.delphimaster.ru/articles/dbtoword/index.html

Здесь есть в том числе создание таблицы.

← →
Sofronov (2008-04-27 17:56) [2]

Точно! Именно с таким примером я и пытался работать!!! )))

Всё работает за исключением процедуры:
TableExport(ADODataSet1,"Живущие на улице Ахметова","АХМЕТОВА");
Почему-то она срабатывает не корректно и колонки сливаются в одну!

Как быть я не знаю:
- создавать таблицу вручную и заполнять;
- или разбираться, почему процедура не срабатывает

так или иначе без Вашего совета мне не обойтись! а лучше примера )))

Как создать/перенести в Word таблицу с данными? Найти похожие ветки