Как бы вы отобразили содержимое DBGrid в таблице в документе Word или RTF?

Question

Я использую Rave для создания отчетов, но он плохо генерирует документы Word.Мои потребности в отчетности просты;единственное, что я не могу легко сделать в коде - это создать таблицу.Мне бы очень хотелось посоветовать, как отображать содержимое [DB] Grid (или лежащие в его основе записи ClientDataSet) в виде таблицы с границами в формате, совместимом с Word или RTF.

Answer 1

Вы можете протестировать тот же компонент, который я рекомендовал здесь (mxExports от max) .

mxExport может экспортировать TDataset, TStringGrid и TDBGrid в различные форматы файлов, включая RTF и MS Word.

См. Компонент и протестируйте демонстрации.Это может быть полезно для вас.Это бесплатно и источник включен.;-)

Answer 2

Ну, во-первых, вам нужно создать файл шаблона .doc, в котором вы собираетесь создать ключевые слова, которые будут заменены ... Вот вам пример кода ...

<br> 
var
 FileName: OleVariant;
<br> Doc : _Document;
 <br>SearchText, ReplaceText, Wrap, All: OleVariant;
<br>
<br> begin
  <br>WordApplication1.Connect;
  <br>WordApplication1.visible:= True;

 <br> FileName:=GetCurrentDir+'\Documents\In_orders.doc';
  <br>WordApplication1.Documents.Open(FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  <br>Doc := WordApplication1.ActiveDocument;
  <br>WordDocument1.ConnectTo(Doc);
<br>  WordApplication1.Disconnect;

  <br>SearchText := 'order_nomer';
   <br>ReplaceText := dbgrid1. < some property.. >;
    <br>Wrap := wdFindContinue;
   <br>All := wdReplaceAll;
  <br>WordDocument1.Content.Find.Execute(SearchText, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, Wrap, EmptyParam, ReplaceText, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
<br>
 <br>WordApplication1.Disconnect;
 <br>end;