[其他] 请教一个WORD 2007 VBA批量替换问题。。。

现在有大约40份文档，存在一个文件夹里。文件中可能含有某个人名，比如“张三丰”。现在想将所有文件中的“张三丰”全部替换成“周杰伦”

百度了一段代码，发现使用Application.FileSearch可以批量搜索替换，但是坑爹的是word2007里取消这个功能了。。。。

这下该怎么办。。。

求一个替代解决办法，万分感谢，激骚伺候！

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim myPas As String, myPath As String, i As Integer, myDoc As Document
Dim fs As New FileSearh

With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "选择目标文件夹"
    If .Show = -1 Then
      myPath = .SelectedItems(1)
    Else
      Exit Sub
    End If
End With
myPas = InputBox("请输入打开密码：")

With Application.FileSearch
    .LookIn = myPath
    .FileType = msoFileTypeWordDocuments
    If .Execute > 0 Then
      For i = 1 To .FoundFiles.Count
        Set myDoc = Documents.Open(fileName:=.FoundFiles(i), Passworddocument:=myPas)
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
        .Text = "张三丰"
        .Replacement.Text = "周杰伦"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
       End With
       Selection.Find.Execute Replace:=wdReplaceAll
       myDoc.Save
       myDoc.Close
       Set myDoc = Nothing
      Next
    End If
End With
Application.ScreenUpdating = True
End Sub