请问如何新建一个word文挡，然后放一些内容进去，等待用户自己保存？

Question

已有一段文章放在一个变量srt中，
请问怎么新建一个word文挡，然后把这个str的内容放进去，以后用户自己存还是关闭就不用管了
请给点代码：
我打开word后就不知道应该怎么做了WordApp:=CreateOleObject('Word.Application');谢谢！！！！

Answer 1

在Delphi中使用CreateOleObject方法对WORD文件进行操作这个程序很简单，在页面上放置了一个edit和一个button,每单击一次按钮，就会自动把edit中的内容添加在后台中的word文档中，程序关闭时文件自动保存在当前程序的主目录中。unit main;interface//如果要使用CreateOleObject的办法对WORD文档进行操作，应该在uses
//语句中加入Comobj声明和WordXP声明
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Comobj, WordXP, Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
//    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  //把这两个变量声明为全局变量
  FWord: Variant;
  FDoc: Variant;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
FWord.Selection.TypeParagraph;
FWord.Selection.TypeText(Text := form1.Edit1.Text);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//首先创建对象，如果出现异常就作出提示
try
FWord := CreateOleObject('Word.Application');
//WORD程序的执行是否可见，值为False时程序在后台执行
FWord.Visible := False;
except
ShowMessage('创建word对象失败！');
Exit;
end;//先在打开的Word中创建一个新的页面，然后在其中键入"Hello,"+回车＋"World！"
try
FDoc := FWord.Documents.Add;
FWord.Selection.TypeText(Text := 'Hello，');
FWord.Selection.TypeParagraph;
FWord.Selection.TypeText(Text := 'World! ');except
on e: Exception do
ShowMessage(e.Message);
end;
end;//在程序关闭时把文件内容保存到当前目录中，并以test.doc命名
//同时关闭WORD程序
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FDoc.SaveAs(ExtractFilePath(application.ExeName) +'test.doc');
FWord.Quit; 
FWord := Unassigned;
end;end.此外，对OFFICE其他文件的操作都比较类似，不在赘述。通过对WORD文件中更复杂的VBA宏的引用，这个方法还可以完成更复杂的文档操作。

Answer 2

谢谢，楼上，我是delphi6，没有WordXP，请问怎么加进去呢？

Answer 3

http://www.ddvip.net/program/delphi/index6/242.htm