用OLE:
procedure TForm1.Button1Click(Sender: TObject);
begin
V:=CreateOleObject('Word.Document');
X:=V.Range(0,0);
X.InsertBefore('Hello from Delphi');
X.Font.Name:='Arial';
X.Font.Size:=18;
X.InsertParagraphAfter;
X:=V.Range(4,4);
X.InsertBefore('ttttttttttttttt');
X.Font.Name:='Arial';
X.Font.Size:=18;
X.InsertParagraphAfter;
V.PrintPreview;
V.SaveAs('c:/Hold11.doc');
V.Quit;
end;
一条条写进去。