请教：怎么用delphi自动生成一个word文件（*.doc）!(分数不够面议！)

Question

请问怎么样才能再delphi下自动生成一个.doc的word文件，可以把字符串写入这个文件？！  能给我提供些资料吗？或者是相关书目。我手头上缺这方面的资料，正在到处找!  
我知道好像要用到OLE控件，可是我不知道具体该怎么用！

Answer 1

{$Delphi}\Demos\ActiveX\OleAuto\Word8下面的例子就是你要的。

Answer 2

这是Delphi猛料中的资料，可以参考。
uses ComObj ;
procedure TForm1.Button1Click(Sender: TObject);
var
  vWord,vDoc,vRange : Variant ;
  sText,sReplace : string ;
  lReturn : Boolean ;
begin
  sText := 'ABCDEFG' ;  //原文字串
  sReplace := 'GFEDCBA' ; //新字串
  vWord := CreateOleObject('Word.Application') ;//创建Word线程
  try
    //打开要操作的文件
    vDoc := vWord.Documents.Open('C:\My Documents\AAAc.Doc');
    vDoc.Select ;  //选取中整个文档
    vRange := vDoc.Range ; //替换范围
    lReturn := True ;
    while lReturn do
    begin  //找到并替代成功则返回 True    共11个参数
      lReturn := vDoc.Range.Find.Execute(sText,,,,,,,,,sReplace,True) ;
    end ;
  finally
    vDoc.Close(True) ; //关闭文并保存
    vWord.Quit(False) ; //退出Word
  end ;
end;
Delphi 3 下通过。
自己生产Word文件，并把字符串写入这个文件
    vDoc:=WordApp.Documents.Add;
    vDoc.Range.InsertAfter(Memo1.Text);
    //定义全文的字体为12,粗体
    Ran:=vDoc.Range;
    Ran.Font.Size:=12;
    Ran.Bold:=true;

Answer 3

还是看看delphi安装目录下的例子好了。\Demos\ActiveX\OleAuto\Word8