экспорт набора данных из бд в word

[kate158]

Помогите, пожалуйста!Допустим на форме есть опр.набор данных (dbgrid, sql server, ado). Как сделать экспорт этих данных в мс ворд?

[maladoy]

Экспорт информации из базы данных в Word
--------------------------------------------------------------------------------


Автор: Uncle B.

Если используешь шаблон, то вариант такой:
1. В шаблоне Word'a в нужные места расставляешь Bookmark (Insert->Bookmark).
2. В проге позиционируешь на этот букмарк и пишешь данные.



(WrdApp - TWordApplication)

procedure TfrmPToClient.bbCreateClick(Sender: TObject);
var
InvoiceTemplate: OleVariant;
begin
// Соединение с OLE-сервером
WrdApp.Connect;
WrdApp.Visible := True;
// выбор шаблона
if not FileExists(dlgOpen.FileName) then
Exit;
InvoiceTemplate := edFileName.Text;
// открытие выбраного шаблона в Word'e
WrdApp.Documents.Add(InvoiceTemplat e, EmptyParam);
WordGotoBookmark('PDate');
WordInsertText(' ' + DateToStr(dtpPDate.Date));
WordGotoBookmark('PNr');
WordInsertText(' ' + edPNr.Text);
WordGotoBookmark('PClientName');
WordInsertText(' ' +
dmIB_TOIS.tblProject.FieldByName('P rojectClientName').asString);
WordGotoBookmark('ContractNr');
WordInsertText(' ' + dmIB_TOIS.tblProject.FieldByName('C LWordGotoBookmark('
ContractDate');
WordInsertText(' ' +
dmIB_TOIS.tblProject.FieldByName('C L_ContractDate').asString);
WordGotoBookmark('PCargoName');
WordInsertText(' ' +
dmIB_TOIS.tblProjectCargo.FieldByNa me('CargoName').asString);
WordGotoBookmark('PProjectYear');
WordInsertText(' ' +
dmIB_TOIS.tblProject.FieldByName('P ROJECTNOTICEYEAR').asString);
WordGotoBookmark('PProjectMonth');
WordInsertText(' ' +
arMonths[dmIB_TOIS.tblProject.FieldByName('P ROJECTNOTICEMonth').asInteger]);
end;

procedure TfrmPToClient.WordGotoBookmark(Book mark: string);
var
What: OLEVariant;
Which: OLEVariant;
Count: OLEVariant;
Name: OLEVariant;
begin
What := wdGoToBookmark;
Which := unAssigned;
Count := unAssigned;
Name := Bookmark;
WrdApp.Selection.GoTo_(What, Which, Count, Name);
end;

procedure TfrmPToClient.WordInsertText(Text: string);
begin
WrdApp.Selection.TypeText(Text);
end;




В случае, если нужно вывести набор записей (например в вордовскую таблицу), то вариант такой :
1. В шаблоне Ворда рисуешь "болванку" таблицы, делаешь макрос вставки новой строки в таблицу и можно ещё простые макросы перехода по ячейкам таблицы.
2. В проге позиционируешь через Bookmark на первую ячейку, далее в цикле вызываешь вордовский макрос создания новой строки и с помощью макросов перехода по ячейкам вбиваешь данные из набора.

Кстати, если будешь делать вывод набора записей - выложи пример, а то теоретически я себе это представляю, а до практики руки не дошли.



Проект Delphi World © Выпуск 2002 - 2004

[kate158]

спасибо, буду творить.)

[vovka_sp]

Доброго времени суток!
У меня схожая проблема.Текст то вывести получилось, а вот изображение никак...((
Может кто что подскажет, буду благодарен....

[undead92]

а можно пример кода на конкретном шаблоне. данные из эдитов в таблицу, самое главное что количество строк не фиксировано, а могут быть больше или меньше, остальной текст заменяется закладками

[munhauz]

Народ помогите
нусно изменить цвет строки в таблице в WORD
не могу найти параметр

[FaTaL]

Я же вроде тебе уже помогал с добавлением строк? С цветом аналогично. Выделаешь нужную ячейку и меняешь цвет. Скинь где и что нужно поменять. Помогу чем смогу.

[munhauz]

      dm.WD.Tables.Item(3).Rows.Item(NRow).Select;
      dm.WA.Selection.Font.Size:=12;
      dm.WA.Selection.Font.Bold:=1;

не могу понять как поменять заливку ячейки
параметр найти не могу

[Toxa]

я обычно чтобы найти параметр для Word/Excel, запускаю Word/Excel, включаю макросы - запись, делаю руками в самом Word/Excel то что мне надо,
затем стоп макроса и редактирование, и в макросах будет показаны все действия

[munhauz]

клево, я и не знал такое )))
спасибо
офигеть как полезно