office2010 如何用宏一次性批量替换多个word文档中的同一内容

lingyuncelia

如何用宏一次性批量替换多个word文档中的同一内容Sub kqbt_zh()
  Application.ScreenUpdating = False
  Dim MyPath As String, i As Integer, myDoc As Document
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "选择目标文件夹"
    If .Show = -1 Then
      MyPath = .SelectedItems(1)
    Else
      Exit Sub
    End If
  End With
  With Application.FileSearch
    .LookIn = MyPath
    .FileType = msoFileTypeWordDocuments
    If .Execute > 0 Then
      For i = 1 To .FoundFiles.Count
        Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Visible:=False)
        With myDoc.Range.Find
          .ClearFormatting
          .Replacement.ClearFormatting
          .Execute findtext:="原来的字符", replacewith:="要替换的字符", MatchWildcards:=False, Replace:=wdReplaceAll
        End With
        myDoc.Close True
      Next
    End If
  End With
  Application.ScreenUpdating = True
End Sub

以上这个代码听说只适用于OFFICE2003的，那么OFFICE2010又如何呢？

xyz74sc

没测试，从代码上看，在2010上应该可用