Word VBA技术：对文件夹中的所有文档进行批量替换操作（加强版）

'声明数组变量用于存储文档名
Dim arrFiles(1 To 100)
'声明变量用于计数
Dim cnt As Long

Sub ReplaceAllInFolderPlus()
 Dim blnFirstLoop As Boolean
 Dim strFile As String
 Dim strPath As String
 Dim objDoc As Document
 Dim Response As Long
 Dim fso As New FileSystemObject
 Dim fd As Folder
 Dim i As Long

'指定要进行替换操作的文件夹
'你可以修改为你自己的文件夹
 strPath = "C:\test\"

'忽略掉关闭查找和替换对话框时触发的错误
 On Error Resume Next

'设置是否在第一次循环时执行的语句
'用于仅对第一个文档显示查找和替换对话框
 blnFirstLoop = True

'设置文件夹目录
 Set fd = fso.GetFolder(strPath)
'搜索文件夹并获取Word文档
 SearchFiles fd

'遍历文件夹及其子文件夹中的Word文档
 For i = 1 To cnt
   Set objDoc = Documents.Open(arrFiles(i))

   If blnFirstLoop Then
    '仅在第一次循环时显示查找和替换对话框
     Dialogs(wdDialogEditReplace).Show
     blnFirstLoop = False
     Response = MsgBox("想要处理这个文件夹中其他文件吗?",vbYesNo)
     If Response = vbNo Then Exit Sub
   Else
    '遍历文档文件,执行替换操作而不会再显示查找和替换对话框
     With Dialogs(wdDialogEditReplace)
        .ReplaceAll = 1
        .Execute
     End With
   End If

   '保存且关闭修改后的文档
    objDoc.Close SaveChanges:=wdSaveChanges
 Next i
End Sub

'遍历获取文件夹及其子文件夹中的Word文档
Sub SearchFiles(ByVal fd As Folder)
 Dim fl As File
 Dim sfd As Folder
 For Each fl In fd.Files
   If fl.Name Like "*.doc*" Then
     cnt = cnt + 1
     arrFiles(cnt) = fl.Path
   End If
 Next fl

 If fd.SubFolders.Count = 0 Then Exit Sub

 For Each sfd In fd.SubFolders
   SearchFiles sfd
 Next sfd
End Sub