用Servers組件控制Word

1)控制Word的Servers組件簡介

在Delphi中控制Word的組件主要有WordApplication和WordDocument等。

WordApplication對象主要用於啓動並建立對Word的連接，並對打開Word時的有關內容進行設置。WordDocument對象主要作用於Word文檔，它與WordApplication關聯配合對Word文檔進行操作。

Servers組件調用Word的實例。該實例主要作用是編輯Delphi中的memo文本，並能夠調用Word中的打印和保存功能。

  在窗體中放置4個TButton組件、一個TMemo組件、 一個TwordApplication組件、 一個TwordDocument組件和一個TsaveDialog組件。四個Button單擊事件代碼如下：

procedure TForm1.Button1Click(Sender: TObject);
//連接word並將Memo1的內容插入word
begin
try
    try
      WordApplication1.Connect;  //連接word
    except
      messagedlg('無法連接，沒有安裝word',mterror,[mbok],0);
      Abort;
    end;
    WordApplication1.Visible:=False; //將wrod程序設爲不可見
    WordApplication1.Caption:='delphi control word';
    WordApplication1.Options.CheckSpellingAsYouType:=False; //關閉拼寫檢查
    WordApplication1.Options.CheckGrammarAsYouType:=False;  //關閉語法檢查
    WordDocument1.Range.InsertAfter(Memo1.Text); //插入Memo1的內容到wrod
  except
    on e:exception do
    begin
      showmessage(e.Message);
      WordApplication1.Disconnect;
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
//打印word
begin
try
  WordDocument1.PrintOut;  //打印word
except
  on e:exception do
    begin
      showmessage(e.Message);
      WordApplication1.Disconnect;
    end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
//將編輯的文檔保存
var
SavePath:Olevariant;
begin
if  SaveDialog1.Execute  then     //如果另存爲對話框被激活就開始保存
begin
  try
    SavePath:= SaveDialog1.FileName;  //保存的文件名
    WordDocument1.SaveAs(SavePath);  //另存爲word文檔
  except
  on e:exception do
    begin
      showmessage(e.Message);
      WordApplication1.Disconnect;
    end;
end;
end

end;

procedure TForm1.Button4Click(Sender: TObject);
//退出
begin
try
WordDocument1.Close;      //關閉編輯的文檔
WordApplication1.Disconnect;   //斷開與程序的連接
close;                         //退出程序
except
  on e:exception do
    begin
      showmessage(e.Message);
      WordApplication1.Disconnect;
    end;
end;
end; 

運行結果如下：