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

zcdyj

如何一次性批量替换多个word文档中的同一内容。就是实现多个Word文档的字符进行批量替换
例如我想把一个文件夹中的文档内容里的 任意几个字替换成别的几个字，请问这种用宏如何实现呢？

guzhen9315

“什么”替换成“什么”？

附件？？？

猪猪勿语

用循环做

打开一页WORD  替换  关掉

在打开 一页WORD  替换  关掉

直到文件夹内的 文件全部执行一遍

sqhsqhli

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

zcdyj

感谢sqhsqhli 马上测试

zcdyj

Office2010运行不了 提示此命令不适用与此平台 请教下该如何改进呢？

sqhsqhli

这是2003上用的，我也没安装过2010，还真不知道怎么办，是不是要引用office11.0和word11.0 ？

zcdyj

这个我也不清楚 等待高手解答。。

geryjun

学习了，谢谢分享。

张晓泉会员

sqhsqhli 发表于 2011-2-7 23:19
Sub kqbt_zh()
  Application.ScreenUpdating = False
  Dim MyPath As String, i As Integer, myDoc As  ...

请问这语句该如何使用，为什么我用控件工具箱，按钮命令怎么不行，请教,谢谢！