实例——使用tworddocument组件连接word自动化服务器.txt

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 70 行

    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.