请问如何同时查找替换WORD文件中多个字符呢？

fatmingli

下面的代码我在论坛中找到，可以查找WORD文件中的str1字符，并替换成str2字符，
请问，我想查找WORD文件中的str1字符，并替换成str2字符，同时查找str3字符，并替换成str4字符，代码要如何修改呢？如果想同时查找替换更多个字符呢？
先谢谢啦！

Sub ReplaceStr(ByVal filepath As String, ByVal str1 As String, ByVal str2 As String)
    '功能：替换word文件中的字符串
    '参数：filepath--文件路径
          'str1--被替换字符
          'str2--替换字符
    Dim appword As New Word.Application
    Dim doc As Word.Document
    Set doc = appword.Documents.Open(filepath)
    appword.Visible = True
   
    '拷贝word中录制的替换字符串的宏进行适当修改如下：
    appword.Selection.Find.ClearFormatting
    appword.Selection.Find.Replacement.ClearFormatting
    With appword.Selection.Find
        .Text = str1
        .Replacement.Text = str2
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    appword.Selection.Find.Execute Replace:=wdReplaceAll
   

竹笛

with end with加一段
.Text = str3
        .Replacement.Text = str4
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False

fatmingli

谢谢