自动对一个文件夹下的N个word文件批量执行一个宏


来源:高中英语教学交流网
发布时间:2023-06-21 14:49:00
查看次数:

内容提要:怎么自动对一个文件夹下的N个word文件批量执行一个宏?让宏自动去查找这些word文件,找到后打开,并对其执行指定的宏。

Sub 批量操作WORD()
   Dim path          As String
   Dim FileName  As String
   Dim worddoc   As Document
   Dim MyDir       As String
   MyDir = "G:\yykz\"  '文件夹路径根据需要自己修改,需要处理的文件都放该文件夹内
   FileName = Dir(MyDir & "\*.doc*", vbNormal)
   Do Until FileName = ""
   If FileName <> ThisDocument.Name Then
         Set worddoc = Documents.Open(MyDir & "\" & FileName)
         worddoc.Activate
         Call 处理WORD  '调用宏,换成你自己宏的名字
         worddoc.Close True
         FileName = Dir()
    End If
   Loop
Set worddoc = Nothing
End Sub
'======================下面的宏换成你自己的宏=================================
Sub 处理WORD()
 ActiveDocument.Paragraphs(1).Range.Select
 Selection.Font.Size = 72
End Sub

相关文章
·excel怎么生成随机数?02-03
·FinalData恢复在数码相机误删的相片08-07
·文件夹设置为系统隐藏文件11-19
·Excel随机生成区间数值 06-23
·解决“确实允许此网页访问“剪切板”吗?”问题09-16
·如何在excel中统计各分数段人数?03-12
·win8 iis8.0 安装获取方法01-22
·利用打印机迁移功能实现三个步骤快速批量安装所有网络打印机10-27
·视频在线解析网址03-05
·EXCEL每次打开都有一个personal.xls的解决方法05-21
最新文章
阅读排行