Dim WordAPP As New Word.Application
Dim WordDocument As Word.Document
WordDocument = WordAPP.Documents.Open(Application.StartupPath & "/report.doc")
WordDocument.Activate()
'进行查找替换
With WordAPP.Selection.Find
.ClearFormatting()
.Replacement.ClearFormatting()
.Text = "C1"
.Replacement.Text = "小样门诊室"
.MatchCase = True
.Execute(, , , , , , , , , , Word.WdReplace.wdReplaceAll)
End With
With WordAPP.Selection.Find
.ClearFormatting()
.Replacement.ClearFormatting()
.Text = "C2"
.Replacement.Text = "小样路"
.MatchCase = True
.Execute(, , , , , , , , , , Word.WdReplace.wdReplaceAll)
End With