如何在 Word 或 RTF 文档的表格中显示 DBGrid 的内容？

Question

我正在使用 Rave 生成​​报告，但它在生成 Word 文档方面很差。我的报告需求很简单；我在代码中唯一不能轻松做的事情就是制作一个表格。我希望获得有关如何以 Word 或 RTF 兼容格式在边框表中显示 [DB]Grid 内容（或基础 ClientDataSet 记录）的建议。

Answer 1

您可以测试我推荐的相同组件 此处（mx从最大导出）。

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;