Delphi+Word=數據庫+公文處理[1]

　　Delphi擅長做數據庫類的MIS開發但對於OA就有點力不從心了不過隨著Microsoft的COM技術逐漸成熟現在普通Windows應用已經可以和Office 無縫結合了尤其是在Delphi 中提供了一組Servers組件更是簡化了程序開發

　　最近接觸了一個用戶的案例用Delphi控制Word做一個合同管理程序辦公人員先根據業務需要寫好合同的文字但在用戶名稱產品名稱等變化的位置填寫指定的標記字符串然後通過Delphi把數據庫中的實際數據替換掉Word中的文字最後讓Word打印出合同

　　Delphi自帶了一個簡單的Word例題但功能太簡單通過查找VBA的說明再對照Delphi的VCL編寫了如下代碼實現了基本的公文管理功能

　　啟動Word時用如下代碼
　　begin
　　try
　　WordapplicationConnect;
　　except
　　MessageDlg(Word may not be installed mtError [mbOk] );
　　Abort;
　　end;
　　WordapplicationVisible := True;
　　WordApplicationCaption := Delphi automation;
　　end;

　　關閉Word用如下代碼如果想保存Doc文件請修改SaveChanges變量的內容
　　var
　　SaveChanges OriginalFormat RouteDocument: OleVariant;
　　begin
　　SaveChanges := WdDoNotSaveChanges;
　　OriginalFormat := UnAssigned;
　　RouteDocument := UnAssigned;
　　try
　　WordApplicationQuit(SaveChanges OriginalFormat RouteDocument);
　　WordApplicationDisconnect;
　　except
　　on E: Exception do
　　begin
　　Showmessage(EMessage);
　　WordApplicationDisconnect;
　　end;
　　end;
　　end;

[]  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24791.html