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

在上篇文章：《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 iEnd 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 sfdEnd Sub