主题：word查找替换

Dim app As New MSWord.Application
Dim doc = app.Documents.Open("D:\02collectdata\课程文章\wj.doc")
app.Selection.Find.ClearFormatting
app.Selection.Find.Replacement.ClearFormatting
With app.Selection.Find
    .Text = "aaa"
    .Replacement.Text = "1234566"
    .Forward = True
    .Wrap = MSWord.WdFindWrap.wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
app.Selection.Find.Execute( MSWord.WdReplace.wdReplaceAll)