DELPHI中如何将数据写到WORD文档，请给实例，多谢

Question

var
  word: variant;
begin
   word:=createoleobject("word.application");
   word.visible:=true;
   word.documents.add();
   with query1 do
   begin
       while not eof do
          word.selection.typetext(fieldbyanme('fiedname').asstring);
  
       next
   end;
        
要么用流往里插，详细代码给分再说 。

Answer 1

jshnet(泰山) 我试了一下，说[Error] Unit1.pas(29): Undeclared identifier: 'createoleobject'，如何解决

Answer 2

我觉得还是用Servers中的WordApplication和WordDocument好。  WordApp.Connect;
  WordApp.WindowState:=wdWindowStateMaximize; //设置窗口为最大
  WordApp.Visible:=True;
  WordDoc.ConnectTo(WordApp.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam));

Answer 3

在uses 中加如COMOBJ单元就可以搞定了。