unit1.pas

此代码可以实现以下功能 使用wordappalication 组件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, AutoImpl;

type
  TForm1 = class(TForm)
    btnOpenWord: TButton;
    Memo1: TMemo;
    btnNewDoc: TButton;
    btnInsertText: TButton;
    StatusBar1: TStatusBar;
    btnSaveDoc: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    SaveDialog1: TSaveDialog;
    btnClose: TButton;
    procedure btnOpenWordClick(Sender: TObject);
    procedure btnNewDocClick(Sender: TObject);
    procedure btnInsertTextClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnSaveDocClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
  private
    { Private Declarations }
    procedure AppQuit(Sender: TObject);
  public
    { Public Declarations }
  end;

var
  Form1: TForm1;
  WordObject : TWordObject;

implementation

{$R *.DFM}

procedure TForm1.btnOpenWordClick(Sender: TObject);
begin
  statusbar1.SimpleText:='打开Word程序，请看任务栏！';
  if not Assigned(WordObject) then
  begin
    WordObject := TWordObject.Create;
    with WordObject do
    begin
      Caption := 'Delphi控制Word的演示程序！';
      Visible := True;
      OnQuit := AppQuit;
    end;
  end;
end;

procedure TForm1.AppQuit(Sender: TObject);
begin
  WordObject.Free;
  WordObject := nil;
end;

procedure TForm1.btnNewDocClick(Sender: TObject);
begin
  statusbar1.SimpleText:='新建Word文档！';
  btnSaveDoc.Enabled := True;
  try
    WordObject.NewDoc('');
  except
    ShowMessage('Word关闭问题！');
    if Assigned(WordObject) then
    begin
      WordObject.Free;
      WordObject := nil;
    end;
  end;
end;

procedure TForm1.btnInsertTextClick(Sender: TObject);
begin
  statusbar1.SimpleText:='自动输入Word文档内容！';
  WordObject.InsertText(edit1.text);
  WordObject.InsertText(#10);
  WordObject.InsertText('***********************');
  WordObject.InsertText(#10);
  WordObject.InsertText(Memo1.Text);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Assigned(WordObject) then begin
    WordObject.Free;
    WordObject := nil;
  end;
end;

procedure TForm1.btnSaveDocClick(Sender: TObject);
begin
  statusbar1.SimpleText:='保存Word文档内容！';
  if savedialog1.Execute then
    WordObject.SaveAs(savedialog1.filename);
end;

procedure TForm1.btnCloseClick(Sender: TObject);
begin
  close;
end;

end.