请问如何用delphi6如何生成word文档,用什么控件,能取个例子嘛,谢谢.

Question

procedure TFrm.BitBtn1Click(Sender: TObject);
var
  oXL, oWB, oSheet: Variant;
begin
  // Start Excel and get Application Object
  oXL := CreateOleObject('Excel.Application');
  oXL.Visible := True;  // Get a new workbook
  oWB := oXL.Workbooks.Add;
  oSheet := oWB.ActiveSheet;  oSheet.range['A1:o1'].merge(False); 
  oSheet.Range['A2:o41'].Font.size:=10;
  oSheet.cells[3,1]:='****;
 .........

Answer 1

uses
  comobj;var
  wa,doc,Ran:Variant;
begin
  wa:=CreateOleObject('Word.Application');
  doc:=wa.Documents.add;
  Doc.Range.InsertAfter('aaaaaaa');
  //定义全文的字体为12,粗体
  Ran:=Doc.Range;
  Ran.Font.Size:=12;
  Ran.Bold:=true;
end;

Answer 2

生成可能不行，但操纵WORD文档是可以的

Answer 3

当然能生成了，怎会不行呢！
上面的例子中，加入保存的语句，就有Word文档生成。
Doc.SaveAs('c:\aaa.doc');

Answer 4

Delphi\demos\activex\Oleauto\word8目录的例子可以看看