VBA宏查找替换目录下所有Word文档中指定字符串

       原来搞质量管理，要替换质量文件里面所有特定名称或者某一错误时，需要逐一打开所有文件，非常麻烦，所以写了个VBA程序。过了这么多年，突然又要做同样的事情，发现新版本Word不支持其中的Application.FileSearch了，又找不到合适的工具。只能又学习了新的VBA代码，改写了原来的VBA窗体程序。分享给大家参考。

        首先要打开Word内置的宏编辑器，具体怎么操作自己网上搜吧，比较容易，我就不介绍了。打开后建立一个窗体UserForm1，加入控件主要有text1，text2或按钮。名称、标签自己放，自己喜欢写什么就写什么吧。我的是下图这样的。

         我原来写的代码是这样的，如果还有人用旧版的可以参考。在按钮触发事件里写代码如下。

Private Sub CommandButton1_Click()
Dim sPath As String

With Dialogs(wdDialogFileFind)   '设置文本查找对话框
    .SortBy = 2                  '文件按名称排列
    .SearchName = "*.doc"        '只列出word文档
    .Update                      '更新
End With

If Dialogs(wdDialogFileF