如何按一定的格式导出成为一个WORD文件？

Question

我想用信封格式导成WORD文档。格式如下：  100038                                                        100004
  公司名称公司名称公司名称                                      公司名称2 公司名称2
  公司地址                                                      公司地址2                  人名胜古迹                                          人名
以上内容是数据库里提出来的。请给出详细说明。谢谢

Answer 1

去这里下载源码吧:http://www.delphibox.com/article.asp?articleid=16

Answer 2

WordDocument.Range.InsertAfter(#13);
   WordDocument.Range.InsertAfter(#13);
   WordDocument.Range.InsertAfter('邮编  ' + '  公司名称  ' + '  公司地址 + #13);
    Query1.First;
   while Not Query1.Eof do
     begin
      WordDocument.Range.InsertAfter(Query1.Fields.Fields[0].AsString +'  '+
                                     Query1.Fields.Fields[1].AsString +'  '+
                                     Query1.Fields.Fields[3].AsString +'    '+
                                     Query1.Fields.Fields[4].AsString +'    ');
      Query1.Next;
     end;
参照这种格式试一下吧.

Answer 3

思路而已var
  Mem: TMemoryStream;
  p_Word,Doc:Variant;
begin
  try
    Mem:=TMemoryStream.Create;
    ...
    //用SaveToStream(Mem)将数据库字段里的内容读入流对象
    RichEdit1.lines.LoadFromStream(Mem);  
    p_Word := CreateOleObject('word.application');
    p_Word.Visible:=True;
    Doc := p_Word.Documents.Add;
    RichEdit1.SelectAll;
    RichEdit1.CopyToClipboard;  //复制
    Doc.Range.Paste;            //粘贴
  finally
   Mem.Free;
  end;