使用TWordDocument组件连接Word自动化服务器

    unit UJoin_Word2;    interface    uses      //使用系统的单元文件      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,      Dialogs, StdCtrls, OleServer, Word2000, Buttons;    type    TForm1 = class(TForm)    //定义窗体上使用的组件    WordDocument1: TWordDocument;    Join_Btn: TBitBtn;    Save_Btn: TBitBtn;    Quit_Btn: TBitBtn;    Close_Btn: TBitBtn;    Label1: TLabel;    //定义事件处理过程    procedure Button1Click(Sender: TObject);    procedure Save_BtnClick(Sender: TObject);    procedure Quit_BtnClick(Sender: TObject);    procedure Close_BtnClick(Sender: TObject);    private      { Private declarations }    public      { Public declarations }    end;    var    Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);    //连接Word自动化服务器    begin       WordDocument1.Connect;       //调用TOleServer的Connect方法，启动作为自动化服务器的Word程序       try         WordDocument1.Content.Text := '欢迎你使用Word自动化服务器!';         //设置Word文档的内容       finally         // WordDocument1.Disconnect;       end;    end;    procedure TForm1.Save_BtnClick(Sender: TObject);    var    FileName : OleVariant;    //定义一个文件名变量    begin       FileName := 'c:/Mydocument.doc';       //设置输出文档的文件名       WordDocument1.SaveAs(FileName);       //调用SaveAs方法将文档按指定的文件名保存    end;    procedure TForm1.Quit_BtnClick(Sender: TObject);    begin      WordDocument1.Disconnect;      //断开与Word自动化服务器的连接    end;    procedure TForm1.Close_BtnClick(Sender: TObject);    begin       Form1.Close;       //关闭窗体，退出应用    end;    end.