Private Sub oulet_Click()
On Error Resume Next
Dim MyWord As Word.Application
Dim MyWordBook As Word.Document
Dim wordArange As Word.Range
Set MyWord = CreateObject("Word.Application")

Set MyWordBook = MyWord.Documents.Add(App.Path & "\模板.doc")
Set wordArange = wordApp.ActiveDocument.Range(0, 1) '指定文件编辑位置
wordArange.Select '激活编辑位置

ReplaceSign = wordArange.Find.Execute(监理, MatchCase, , , , , , wdFindContinue, , Text13.Text, True)

MyWord.Visible = True
MyWordBook.SaveAs Left(CommonDialog1.FileName, InStr(CommonDialog1.FileName, ".") - 1) & ".doc" 'FileFormat:=wdFormatDocument    '将文档另存为'MyWordBook.Close      '关闭文档
MyWord.Quit
Set MyWord = Nothing
Set MyWordBook = Nothing

End Sub

想要替换模板中的 监理 字样的内容   但是总是无效

原本打算用书签的方式   也成功了   但是后来发觉书签的方法  有些需要相同数据的地方  书签必须加1 或者别的不同识别名字  有些麻烦
所以想用替换字符串的方法   但是总是不成功  希望各位大神能帮帮忙