批量处理word内容的工具(word文档批量处理大师怎么用)

在日常办公中，我们经常需要处理大量的WORD文档，很多情况下这些文档需要处理的操作是相同的，比如批量进行页面格式设置，批量替换某些文字等等，如果能够实现对这些文档的批量处理效率岂不高多了！

下面教大家怎么实现，整个过程用到了Word的VBA编程，但是你根本不需要懂一句代码，通过四步就可以搞定。

第一步：打开一个要处理的Word文档

第二步：调出Word开发工具选项卡

第三步：录制操作过程

勾选后确定，会发现Word多了一个开发工具选项卡，点击该选项卡，点录制宏按钮。Word会记录你的每一步操作。比如简单输入几个字ABCDEF

对Word操作完成后，点停止录制。然后再点 Visual Basic 按钮，会出现下面的界面：

上面的宏1就是刚才录制的代码，将光标放到代码区域，也就是 第一行到第五行的区域范围，然后点运行按钮，你会发现Word中多了一个ABCDEF，是不是很神奇？

第四步：实现批量处理

通过上面的方法我们把处理一个文档的方法记录了下来，如何批量处理多个文档呢，也很简单。把下面的代码复制到刚才录制的代码前面， 设置第4行和第5行的内容，就大功告成了。

测试：将光标放到 开始批处理代码块中，按执行按钮，程序会自动打开指定文件夹下的每一个Word文档（包括子文件夹文档），并在每一个文件头插入ABCDEF六个字母，然后自动关闭Word文档。所有文档处理完毕后会弹出一个”批量处理完毕!“ 的对话框。

录制不同的宏，可以进行各种各样的批量处理，怎么样，是不是感觉功能太强大了？所有这些我们不用写一行代码就可以实现，当然你有一定的编程基础的话，还可以修改录制的宏或者编写更加复杂的宏功能。我们也会不定期发布一些常用的宏功能，供大家调用。所以请大家关注我们的头条号，及时获取最新资料。

说明：Word的录制宏的功能，不能录制所有操作，尤其一些鼠标操作录制效果不好，如果想在这方面深入体会的话可以下载安装Office 2003 ，录制的效果是所有office版本中最好的。

Private myFun As String

Sub 开始批量处理() ‘

dim myDir as string

myFun = “宏1” ‘修改成录制的宏名称

myDir= “D:\\我的文件夹\\” ‘修改成要处理的Word文档所在的文件夹

SearchFiles myDir, “*.doc ‘批量处理doc格式文档

SearchFiles Mydir, “*.docx” ‘批量处理docx格式文档

MsgBox “批量处理完毕！”, vbInformation + vbApplicationModal

End Sub

‘功能：这个函数可以遍历指定一个目录下的所有文件,包括子目录.也可以指定文件类型遍历。

‘用法：SearchFiles “C:\\Program Files\\WinRAR\\”, “*” ‘查找所有文件

Function SearchFiles(Path As String, FileType As String)

Dim Files() As String ‘文件路径

Dim Folder() As String ‘文件夹路径

Dim a, b, c As Long

Dim sPath As String

If Right$(Path, 1) “\\” Then Path = Path & “\\”

sPath = Dir(Path & FileType) ‘查找第一个文件

Do While Len(sPath) ‘循环到没有文件为止

a = a + 1

ReDim Preserve Files(1 To a)

Files(a) = Path & sPath ‘将文件目录和文件名组合,并存放到数组中

Documents.Open Files(a)’打开文件

Application.Run myFun’执行自定义函数

ActiveDocument.Close‘关闭文件

sPath = Dir ‘查找下一个文件

DoEvents ‘让出控制权

Loop

sPath = Dir(Path & “\\”, vbDirectory) ‘查找第一个文件夹

Do While Len(sPath) ‘循环到没有文件夹为止

If Left$(sPath, 1) “.” Then ‘为了防止重复查找

If GetAttr(Path & “\\” & sPath) And vbDirectory Then ‘如果是文件夹则。。。。。。

b = b + 1

ReDim Preserve Folder(1 To b)

Folder(b) = Path & sPath & “\\” ‘将目录和文件夹名称组合形成新的目录,并存放到数组中

End If

End If

sPath = Dir ‘查找下一个文件夹

DoEvents ‘让出控制权

Loop

For c = 1 To b ‘使用递归方法，遍历所有目录

SearchFiles Folder(c), FileType

Next

End Function