Sub 批量操作WORD() Dim path
As String Dim FileNameAs String Dim worddoc As Document Dim MyDir
As String MyDir = "G:\360data\重要数据\桌面\新建文件夹 (2)"'文件夹路径根据需要自己修改，需要处理的文件都放该文件夹内 FileName = Dir(MyDir & "\*.doc*", vbNormal) Do Until FileName = "" If FileNameThisDocument.Name Then
Set worddoc ...
