delphi與word之間的融合技術(shù)

1、DelphiDelphi與WdWd之間的融合技術(shù)之間的融合技術(shù)MicrosoftWd是一個集成化環(huán)境，是美國微軟公司的字處理系統(tǒng)，但是它決不僅僅是一個字處理系統(tǒng)，它集成了MicrosoftVisualBasic，可以通過編程來實現(xiàn)對Wd功能的擴展。MicrosoftVisualBasic在wd中的代碼即Wd的宏，通過編寫Wd宏，可實現(xiàn)一些文檔處理的自動化，如實現(xiàn)文檔的自動備份、存盤等，可擴展Wd文檔的功能，因此，能夠充分利用Wd的特性，

2、甚至使Wd成為自己軟件的一部分。Wd的宏既有有利的一部分，因為它能夠幫助我們實現(xiàn)文檔的自動化，但是Wd的宏也不是純粹的有利，有時它可能危害我們的文檔、計算機系統(tǒng)甚至網(wǎng)絡，從最開始的TaiwanNO1宏病毒到現(xiàn)在的Melissa宏病毒，從最開始的簡單的提示，耗盡系統(tǒng)資源到現(xiàn)在的亂發(fā)電子郵件，將個人的信息發(fā)送到網(wǎng)絡上，甚至向硬盤的Autoexec.bat(自動批處理文件)中添加DeltreeC:y，破壞整個Windows系統(tǒng)。一、Wd中內(nèi)嵌

3、的Com技術(shù)可以說Wd是對Com技術(shù)支持最好的軟件，這樣說似乎是太極端了一點，但是Wd提供的強大的編程接口技術(shù)卻能夠是我們通過程序控制Wd的任何一部分。無論是文件的打開、存盤、打印還是文檔中表格的自動繪制。通過編程軟件，可以靈活的操縱wd，這里只以BlDelphi為例，進行詳細描述：（一）在Delphi中調(diào)用Wd軟件／文件的方法在Wd中調(diào)用Wd軟件，歸納起來有三種可通過Delphi的控件TOleContainer將Wd嵌入的方法1、使用

4、Delphi提供的Servers控件調(diào)用Wd，使用Wd的屬性2、通過真正的Com技術(shù)，將Office軟件目錄中文件MSWD9.OLB中的類庫全部導入Delphi中，3、使用CreateOleObject將啟動Wd，然后以O(shè)le方式對Wd進行控制。（二）對幾種方法的難易程度的判別1、通過Delphi的控件TOleContainer將Wd嵌入這是最簡單的Ole嵌入，能夠直接將Wd文檔調(diào)用，只需要使用ToleContainer.Run就可以將

5、Wd文檔直接啟動。且這樣啟動的Wd文檔與Delphi程序是一個整體（從界面上看），但是它存在不可克服的缺點，即不能通過Delphi控制Wd文檔，也就不能實現(xiàn)將靈活操縱Wd的目的。2、使用Delphi提供的Servers控件調(diào)用Wd，使用Wd的屬性。使用Delphi的Servers控件來操縱Wd，在編程時Delphi能夠?qū)崿F(xiàn)代碼提示，總體上看能夠較好的實現(xiàn)Delphi對Wd的控制，但是還有一些Wd的功能不能在Delphi中調(diào)用（比如自己編

6、寫的VBA宏代碼）。且實現(xiàn)功能時本來在VBA代碼中可選則參數(shù)在Delphi調(diào)用的時候必須添加，否則，連編譯都不能通過。這種方式啟動的Wd與Delphi程序分屬兩個窗體。此辦法僅能作為一個參考。3、.通過真正的Com技術(shù)，將Office軟件目錄中文件MSWD9.OLB中的類庫全部導入Delphi中利用Com技術(shù)編程利用真正的Com技術(shù)，將MsWd9.OLD文件類庫導入，然后利用Com技術(shù)進行使用。整體上類似使用Delphi的Servers

7、控件，稍微比Servers控件麻煩，優(yōu)缺點與Servers控件相同。4、使用CreateOleObject將啟動Wd，然后以O(shè)le方式對Wd進行控制。這種辦法是使用以CreateOleObjects方式調(diào)用Wd，實際上還是Ole，但是這種方式能夠真正做到完全控制Wd文件，能夠使用Wd的所有屬性，包括自己編寫的VBA宏代碼。與Servers控件和com技術(shù)相比，本方法能夠真正地使用Wd的各種屬性，和在VBA中編寫自己的代碼基本一樣，可以缺

8、省的代碼也不需要使用。本方式啟動的Wd與Delphi程序分屬兩個窗體。缺點是使用本方法沒有Delphi代碼提示，所有異常處理均需要自己編寫，可能編寫時探索性知識比較多。二、Wd宏編輯器ViewVBCode查看VB編輯器環(huán)境FileTemplates模板和可加載項ToolsProtectUnprotectDocument解除對文檔的保護Hyperlink插入超級鏈接EditHyperlink編輯超級鏈接Hyperlink刪除超級鏈接Edi

9、tLinks查看、刪除鏈接EditPasteAsHyperlink粘貼超級鏈接FmatStyle樣式EditBookMark書簽下面舉例說明:一、Delphi程序啟動Wd采用CreateOleObjects的方法來啟動Wd，調(diào)用VBA代碼，具體實現(xiàn)過程為：首先使用GetActiveOleObject(Wd.Application)判斷當前內(nèi)存中是否存在Wd程序，如果存在，則直接連接，如果沒有Wd程序，則使用CreateOleObject

10、(Wd.Application)啟動Wd二、Delphi程序新建Wd文稿格式：WdDocuments.Add(TemplateNewTemplateDocumentTypeVisible)Template：使用模板的名稱，NewTemplate：新建文檔的類型，True表示為模板，F(xiàn)alse表示為文檔DocumentType：文檔類型，默認為空白文檔Visible：打開的窗口是否可見舉例：Doc_Hle:=Wd_Ole.Document

11、s.Add(Template:=C:Temlate.dotNewTemplate:=False)三、Delphi程序打開Wd文稿格式：WdDocuments.Open(FileNameConfirmConversionsReadOnlyPassWdDocumentPasswdTemplateReventWritePasswdDocumentWritePassWdTemplateFmatEncodingVisible)FileName：文

12、檔名（包含路徑）Confirmconversions：是否顯示文件轉(zhuǎn)換對話框ReadOnly：是否以只讀方式打開文檔AddTecentFiles：是否將文件添加到“文件“菜單底部的最近使用文件列表中PassWdDocument：打開此文檔時所需要的密碼PasswdTemplate：打開此模板時所需要的密碼Revert：如果文檔已經(jīng)，是否重新打開文檔WritePasswdDocument：保存對文檔更改時所需要的密碼WritePasswd

13、Template：保存對模板進行更改時所需要的密碼Fmat：打開文檔時所需使用的文件轉(zhuǎn)換器Encoding：所使用的文檔代碼頁Visible：打開文檔的窗口是否可見舉例：Doc_Hle:=Wd_Ole.Documents.open(FileName:=Doc_FileReadOnly:=FalseAddTecentFiles:=False)四、Delphi程序保存Wd文稿格式：WdDocuments.SaveAs(FileNameFil