unit1.~pas

4TOPS (c) 4TOPS 2002-2003

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WordXP, OleServer;

type
  TfrmDocument = class(TForm)
    BtnBeginWord: TButton;
    BtnNewDocument: TButton;
    BtnAdd: TButton;
    BtnInsert: TButton;
    MemoTxt: TMemo;
    WordApp: TWordApplication;
    WordDocu: TWordDocument;
    BtnSave: TButton;
    BtnEndWord: TButton;
    BtnPrintView: TButton;
    BtnPrint: TButton;
    procedure BtnBeginWordClick(Sender: TObject);
    procedure BtnNewDocumentClick(Sender: TObject);
    procedure BtnAddClick(Sender: TObject);
    procedure BtnInsertClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure BtnPrintViewClick(Sender: TObject);
    procedure BtnPrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDocument: TfrmDocument;

implementation

{$R *.dfm}

procedure TfrmDocument.BtnBeginWordClick(Sender: TObject);
begin
  wordapp.Connect ;
  wordapp.Visible :=true;
end;

procedure TfrmDocument.BtnNewDocumentClick(Sender: TObject);
var
  Template : OleVariant;
  NewTemplate : OleVariant;
  DocuType : OleVariant;
  Visible : OleVariant;
begin
  Template:=EmptyParam;
  NewTemplate:=True;
  DocuType:=0;
  Visible:=True;
  try
    wordapp.Documents.Add(Template,NewTemplate,DocuType,Visible);
  except
    showmessage('创建新文档失败！');
  end;
end;

procedure TfrmDocument.BtnAddClick(Sender: TObject);
var
  ItemIndex : OleVariant;
begin
  ItemIndex:=1;
  try
    WordDocu.ConnectTo(WordApp.Documents.Item(ItemIndex));
  except
    showmessage('文档连接失败！');
  end;

  if trim(memotxt.Lines.Text)='' then
    showmessage('请输入添加的内容！')
  else
    begin
      WordDocu.Range.InsertAfter(trim(memotxt.Lines.text));
    end;
end;

procedure TfrmDocument.BtnInsertClick(Sender: TObject);
var
  ItemIndex : OleVariant;
begin
  ItemIndex:=1;
  try
    WordDocu.ConnectTo(WordApp.Documents.Item(ItemIndex));
  except
    showmessage('文档连接失败！');
  end;

  if trim(memotxt.Lines.Text)='' then
    showmessage('请输入插入的内容！')
  else
    begin
      WordDocu.Range.InsertBefore(trim(memotxt.Lines.text));
    end;
end;

procedure TfrmDocument.BtnSaveClick(Sender: TObject);
var
  EParam : OleVariant;
  FileName : OleVariant;
begin
  FileName:='d:\FirstFile.Doc';
  EParam:=EmptyParam;

  try
    WordDocu.SaveAs(FileName,EParam);
    showmessage('文件保存成功！'); 
  except
    showmessage('文档保存失败！');
  end;
end;

procedure TfrmDocument.BtnPrintViewClick(Sender: TObject);
begin
  try
    WordDocu.PrintPreview;
    //打印预览
  except
    showmessage('打印预览出错！');
  end;
end;

procedure TfrmDocument.BtnPrintClick(Sender: TObject);
begin
  try
    WordDocu.printOut
  except
    showmessage('打印文档出错！');
  end;
end;

end.