WORD文档中的宏代码操作（多个文档自动处理，统一格式）

多个word文档自动处理格式问题

把要处理的文档放到同一个文件夹，并复制文件路径。（这次处理同格式的文件）
批量操作word文档的代码如下：

Sub 批量操作WORD()
   Dim path      As String
   Dim FileName  As String
   Dim worddoc   As Document
   Dim MyDir     As String
   MyDir = "C:\Users\XiaoYao\Desktop\维护月报"  '文件夹路径根据需要自己修改，需要处理的文件都放该文件夹内
   FileName = Dir(MyDir & "\*.doc*", vbNormal)
   Do Until FileName = ""
   If FileName <> ThisDocument.Name Then
         Set worddoc = Documents.Open(MyDir & "\" & FileName)
         worddoc.Activate
         Call 宏1 '调用宏,换成你自己宏的名字
         worddoc.Close True
         FileName = Dir()
    End If
   Loop
Set worddoc = Nothing
End Sub

上方调用其他函数“宏1”，来调整每个文档中要处理的格式问题。

Sub 宏1()

    Selection.Style = ActiveDocument.Styles("标题 1")
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.Font.Bold = wdToggle
    
    Selection.Font.Name = "宋体"
    Selection.Font.Size = 12
    Selection.Style = ActiveDocument.Styles("正文文本缩进")
    
    For i = 1 To ActiveDocument.Tables.Count 'For循环，从第一个表到最后一个表循环；Tables.Count文档内的表格数量
            ActiveDocument.Tables(i).Select '从第一个表格开始逐个选中
            Selection.Font.Name = "宋体" '设置选中表格的字体
            Selection.Font.Size = 12 '是指选中表格的字号
    Next

End Sub

也可以多次运行，每次改其中一个格式代码。
点击运行“ 批量操作WORD” 后，会把每个要自动修改格式的word打开来修改。