开启一个预先定义好的WORD模板并替换模板中指定的某个字符串

 '******************************************************************************************************
'功能： 开启一个预先定义好的WORD模板并替换模板中指定的某个字符串
'调用： Call OpenWordAndReplaceChar("001.doc", "$1", "宝宝:)")
'参数： Filename:WORD文件名称,ReplacedStr:WORD中待替换的字符,ReplacementStr：程序中传递到WORD中的字符串
'组件:   在工程中引用OR Microsoft Word X.0 object library才能使用word.application
'作者： FlashAsp
'Q Q： 21792038
'日期： 2006-03-12
'******************************************************************************************************
Public Sub OpenWordAndReplaceChar(FileName As String, ReplacedStr As String, ReplacementStr As String)
Dim wordApp As New Word.Application
Dim wordArange As Word.Range
Dim wordSelection As Word.Selection
Dim ReplaceSign As Boolean
Dim i As Integer
FileName = App.Path & "/" & FileName
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True
wordApp.Documents.Open (FileName)
Set wordSelection = wordApp.Selection
'指定文件编辑位置
Set wordArange = wordApp.ActiveDocument.Range(0, 1)
'激活编辑位置
wordArange.Select
'初始化是否替换成功标志
If ReplacedStr <> " " And ReplacementStr <> "" Then
ReplaceSign = True
Do While ReplaceSign
ReplaceSign = wordArange.Find.Execute(ReplacedStr, MatchCase, , , , , , wdFindContinue, , ReplacementStr, True)
Loop
End If
'回到打印状态
wordApp.ActiveWindow.View.Type = wdPrintView
End Sub