上篇文章提到VB中加入WORD組件並對其進行操作，本文單獨對VB打印WORD文件
與查找替換功能 進行討論.
在打印中，很多時候會用到word標准模版，希望對模版進行更改後將其打印，
很多網友提出用書簽，在書簽前進行插入需要內容。
但我認為進行查找替換似乎更為方便些。
由於打印功能簡單的不得了,因此先說打印功能，代碼如下:
dim filename as string '定義需要打印的文件絕對路徑(包
含文件名)
filename="C:\temp.doc"
Dim wodapp As Word.Application '創建word組件
Set wodapp = New Word.Application
wodapp.Application.Documents.Open FileName:=filename '打開指定位置處
的word文件
wodapp.ActiveDocument.PrintOut
'使用組件打印方法將其打印.
wodapp.quit
'退出word,（這時進程管理器裡將看不到word進程
）
set wodapp=nothing
如上代碼便可將word文件發送到打印機.如果打印機狀態不能工作，程序也不會崩
潰，可引用api對打印機進行查詢狀態，做出問題處理。根據每人需要，此處不再
多敘。
下面說vb如何對word進行查找替換.
dim filename as string '定義文件
路徑
filename="C:\temp.doc"
Dim wodapp As Word.Application
Set wodapp = New Word.Application
wodapp.Application.Documents.Open FileName:=filename '打開文
件
With wodapp.Selection.Find '進行查找替
換
.ClearFormatting
.Text = "需要查找的內容"
.Replacement.ClearFormatting
.Replacement.Text = "需要替換的內容"
.execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue '
設置替換方式.(整文查找替換)
End With (如多處需要替換,則可以將本with塊多次使用)
wodapp.quit
set wodapp=nothing
通過上面代碼，可對word文件進行查找替換，此功能可應用到將需要內容更改到
模版中，加上打印功能。便可完成對word的自動查找與替換，並打印。
