Delphi + Word = 資料庫 + 公文處理

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

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

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

啟動Word時用如下代碼：

begin
try 
Wordapplication.Connect; 
except 
MessageDlg('Word may not be installed', mtError, [mbOk], 0); 
Abort; 
end; 
Wordapplication.Visible := True; 
WordApplication.Caption := 'Delphi automation'; 
end; 

 

關閉Word用如下代碼。如果想儲存Doc檔案，請修改SaveChanges變數的內容：

var 
SaveChanges, OriginalFormat, RouteDocument: OleVariant; 
begin 
SaveChanges := WdDoNotSaveChanges; 
OriginalFormat := UnAssigned; 
RouteDocument := UnAssigned; 
try 
WordApplication.Quit(SaveChanges, OriginalFormat, RouteDocument); 
WordApplication.Disconnect; 
except 
on E: Exception do 
begin 
Showmessage(E.Message); 
WordApplication.Disconnect; 
end; 
end; 
end; 

 

讓Word開啟一個指定的檔案，需要先放置OpenDialog，然後調用WordApplication.Documents.Open：

var 
ItemIndex :OleVariant; 
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, 
PassWordDocument, PassWordTemplate, Revert, 
WritePassWordDocument, WritePassWordTemplate, Format: OleVariant; 
begin 
if not dlgOpen.Execute then 
Exit; 

...{Open document} 
FileName := dlgOpen.FileName; 
ConfirmConversions := False; 
ReadOnly := False; 
AddToRecentFiles := False; 
PassWordDocument := ''; 
PassWordTemplate := ''; 
Revert := True; 
WritePassWordDocument := ''; 
WritePassWordTemplate := ''; 
Format := wdOpenFormatDocument; 

WordApplication.Documents.Open( FileName, ConfirmConversions, 
ReadOnly, AddToRecentFiles, PassWordDocument, PassWordTemplate, 
Revert, WritePassWordDocument, WritePassWordTemplate, Format ); 

...{Assign WordDocument component} 
ItemIndex := 1; 
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex)); 

...{Turn Spell checking of because it takes a long time if enabled and slowsdown WinWord} 
WordApplication.Options.CheckSpellingAsYouType := False; 
WordApplication.Options.CheckGrammarAsYouType := False; 
end; 

當我們安裝delphi時選擇的是xp樣式的即使用WordXP時，這裡的代碼需要更改為這樣

var ItemIndex :OleVariant; 
 FileName, ConfirmConversions,ReadOnly,AddToRecentFiles,PasswordDocument, PasswordTemplate,Revert: OleVariant;
 WritePasswordDocument,WritePasswordTemplate,Format: OleVariant;
 Encoding,Visible,OpenAndRepair,DocumentDirection,NoEncodingDialog: OleVariant;

begin
if not dlgOpen.Execute then
Exit;

//...{Open document}
FileName := dlgOpen.FileName;
ConfirmConversions := False; 
ReadOnly := False; 
AddToRecentFiles := False; 
PassWordDocument := '';
PassWordTemplate := ''; 
Revert := True;
WritePassWordDocument := ''; 
WritePassWordTemplate := '';
   Format:=wdFormatDocument;
   //Encoding 
   Visible:=true;
   WordApplication1.Disconnect;
   WordApplication1.documents.Open(FileName,ConfirmConversions,
                 ReadOnly,AddToRecentFiles, 
                 PasswordDocument,PasswordTemplate, 
                 Revert,WritePasswordDocument,WritePasswordTemplate,Format,
                 Encoding,Visible,OpenAndRepair,DocumentDirection,NoEncodingDialog);
  WordApplication1.Visible:=true;
...{Assign WordDocument component}
ItemIndex := 1;
WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));

...{Turn Spell checking of because it takes a long time if enabled and slows down Winword}
WordApplication1.Options.CheckSpellingAsYouType := False;
WordApplication1.Options.CheckGrammarAsYouType := False;

end;

 

讓Word替換標記字串要使用WordDocument.Range.Find.Execute，這裡用Delphi替換了<#Name>：

var 
FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike,
MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace: OleVariant;
begin 
FindText := '<#Name>'; 
MatchCase := False; 
MatchWholeWord := True; 
MatchWildcards := False; 
MatchSoundsLike := False; 
MatchAllWordForms := False; 
Forward := True; 
Wrap := wdFindContinue; 
Format := False; 
ReplaceWith := 'Delphi'; 
Replace := True; 

WordDocument.Range.Find.Execute( FindText, MatchCase, MatchWholeWord,
MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, 
Wrap, Format, ReplaceWith, Replace ); 

end; 

上面這4段程式碼完成了公文管理的準系統，再把它和資料庫結合起來，就可以開發一個與Lotus Notes類似的產品了。