VBA批量修改WORD文档

Dim fs, i, arr(1 To 10000)
Set fs = Application.FileSearch
With fs
    .LookIn = "d:\aa\anquan"
    .FileName = "*.doc"
    .SearchSubFolders = True
    MsgBox "There were " & .FoundFiles.Count & _
     " file(s) found."
    If .Execute > 0 Then
      For i = 1 To .FoundFiles.Count
        'Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas)
        
        
        Set myDoc = Documents.Open(FileName:=.FoundFiles(i))
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        'MsgBox .FoundFiles(i)
        
    With Selection.Find
        .Text = "文国章"
        .Replacement.Text = "李乐群"
        .Forward = True
        '.Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord