| VBA宏批量处理多个Word文档 | 您所在的位置：网站首页 › macbookword替换文字 › VBA宏批量处理多个Word文档 |
VBA宏批量处理多个Word文档
|
前言
工作里面需要处理上百个Word文档，所以就开始在网上查找宏相关的代码 由于第一次接触宏相关的代码，所以写得肯定不会很好。不过，最后勉强算是解决了问题，为了以后方便查找，就把代码贴上来。 开启、编写宏
具体代码 Sub 批量操作WORD() Application.ScreenUpdating = False '冻结屏幕，打开各个文件及关闭时屏幕不会晃眼睛，但不知道为什么没有效 Dim MyFileName, Dic, Did, i, fileCount, startTime, runTime, MyDocumentName 'On Error Resume Next Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(0, "选择文件夹", 0, 0) If Not objFolder Is Nothing Then lj = objFolder.self.path & "\" Set objFolder = Nothing Set objShell = Nothing startTime = Time Set Dic = CreateObject("Scripting.Dictionary") '创建一个字典对象 Set Did = CreateObject("Scripting.Dictionary") Dic.Add (lj), "" i = 0 'i变量用来控制循环的结束 Do While i |
勾选上图中的开发工具，就可以显示宏相关的菜单栏了 
点击红框内按钮，就可以开始编写和运行宏了【本文地址】
公司简介
联系我们