VBA批量执行同一宏包括子文件夹

yjwdjfqb

VBA批量执行同一宏包括子文件夹

1. 
   
2. Sub 批量执行同一宏包括子文件夹()
   
3.       Dim wdoc
   
4.       Dim path
   
5.       Dim wdapp As Object
   
6.          Application.ScreenUpdating = True
   
7.       Set wdapp = CreateObject("word.Application") '创建WORD对象
   
8.       path = ThisDocument.path & ""
   
9.       wjm = Dir(path & "*.doc")
   
10.        Do While wjm <> ""
    
11.             Set wdoc = GetObject(path & wjm) '打开WORD文件对象
    
12.   
    
13.    
    
14.          With wdoc
    
15.         Call 要执行的宏
    
16.         End With
    
17.               
    
18.               wdoc.Close True '保存并关闭WORD文件
    
19.               wjm = Dir()
    
20.           Loop
    
21.           Application.ScreenUpdating = False
    
22.          wdapp.Quit '退出WORD对象
    
23.          Set wdapp = Nothing
    
24.           Set wdoc = Nothing
    
25.       End Sub
    
26. 
    
27. 
    
28. Sub 要执行的宏()
    
29.     Selection.WholeStory
    
30.     Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
31. End Sub
    
32. 
    

复制代码

VBA批量执行同一宏包括子文件夹.rar (37.26 KB, 下载次数: 3)

2022-4-17 17:57 上传

点击文件名下载附件

上面这个代码，没有测试成功。
请老师们帮帮忙，谢谢老师们了！