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

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

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

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

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

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

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

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

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

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

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

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

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

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