如何提高vba替换效率

我们知道，1替换成2,3替换成4，这样要在全文中查找一遍，假如这样的替换要进行很多次，如不同很多错别字的查找替换，如何提高vba替换效率呢？谁能给个代码？

请参考http://club.excelhome.net/viewth ... p;page=1#pid4481199的4楼
Sub 运行此宏进行下面的替换()
     Call 循环查找并替换1
   Call 循环查找并替换2
   Call 循环查找并替换3
'…………………………
End Sub

'查找与替换部分改为，根据需要复制
Sub 循环查找并替换1()
Dim I As Integer '循环执行
For I = 1 To 100 '假设有100个，循环执行100次
    ' 查找并替换
  Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "AAAA" '在此处修改要查找的内容
        .Replacement.Text = "BBBB" '在此处修改将要替换的内容
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .CorrectHangulEndings = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Next I
End Sub

[ 本帖最后由 szqhb 于 2011-1-25 23:02 编辑 ]