WORD、高手们、宏、VBA、宏有关批量运行

发布网友发布时间：2022-10-27 23:47

共2个回答

热心网友时间：2023-09-30 17:54

Sub 批量操作WORD()
   Dim path          As String
   Dim FileName  As String
   Dim worddoc   As Document
   Dim MyDir       As String
   MyDir = "G:\360data\重要数据\桌面\新建文件夹 (2)"  '文件夹路径根据需要自己修改，需要处理的文件都放该文件夹内
   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

热心网友时间：2023-09-30 17:55

工具-宏-指定宏-编辑- 将你需要执行的宏代码复制在一个指令下，最后指定这个宏代码就行了

热心网友时间：2023-09-30 17:54

热心网友时间：2023-09-30 17:55

工具-宏-指定宏-编辑- 将你需要执行的宏代码复制在一个指令下，最后指定这个宏代码就行了