WORD、高手們、巨集、VBA、巨集有關批量執行

怎麼自動對一個資料夾下的N個word檔案批量執行一個巨集？

讓巨集自動去查詢這些word檔案，找到後開啟，並對其執行指定的巨集。

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