Word 如何批量格式化表格样式以及批量添加题注

1、在word文档中找到视图——宏

2、随意输入一个宏名字，然后接下来是粘贴代码的时刻了！

3、Sub 批量修改表格()

    Dim tempTable As table

    Application.ScreenUpdating = False

    If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then

        MsgBox "文档已保护，此时不能选中多个表格！"

        Exit Sub

    End If

    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

    For Each tempTable In ActiveDocument.Tables

        tempTable.Range.Editors.Add wdEditorEveryone

    Next

    ActiveDocument.SelectAllEditableRanges wdEditorEveryone

    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

    Application.ScreenUpdating = True

End Sub

Sub FormatAllTables()

For i = 1 To ActiveDocument.Tables.Count

       ' ActiveDocument.Tables(i).Style = "my"

        With ActiveDocument.Tables(i).Range.ParagraphFormat

        .LeftIndent = CentimetersToPoints(0)

        .RightIndent = CentimetersToPoints(0)

        .SpaceBefore = 0

        .SpaceBeforeAuto = False

        .SpaceAfter = 0

        .SpaceAfterAuto = False

        .LineSpacingRule = wdLineSpace1pt5

        .Alignment = wdAlignParagraphJustify

        .WidowControl = False

        .KeepWithNext = False

        .KeepTogether = False

        .PageBreakBefore = False

        .NoLineNumber = False

        .Hyphenation = True

        .FirstLineIndent = CentimetersToPoints(0)

        .OutlineLevel = wdOutlineLevelBodyText

        .CharacterUnitLeftIndent = 0

        .CharacterUnitRightIndent = 0

        .CharacterUnitFirstLineIndent = 0

        .LineUnitBefore = 0

        .LineUnitAfter = 0

        .MirrorIndents = False

        .TextboxTightWrap = wdTightNone

        .AutoAdjustRightIndent = True

        .DisableLineHeightGrid = False

        .FarEastLineBreakControl = True

        .WordWrap = True

        .HangingPunctuation = True

        .HalfWidthPunctuationOnTopOfLine = False

        .AddSpaceBetweenFarEastAndAlpha = True

        .AddSpaceBetweenFarEastAndDigit = True

        .BaseLineAlignment = wdBaselineAlignAuto

        End With

        ' 设置表中的字体及大小

        ActiveDocument.Tables(i).Select

         With Selection

         .Font.Size = 10

         .Font.Name = "宋体"

         .InsertCaption Label:="表格", TitleAutoText:="InsertCaption1", _

             Title:="", Position:=wdCaptionPositionAbove, ExcludeLabel:=0

        End With

        ActiveDocument.Tables(i).Cell(1, 1).Select

        With Selection

         .SelectRow

         .Font.Bold = True

         .Shading.BackgroundPatternColor = -603923969

         .ParagraphFormat.Alignment = wdAlignParagraphCenter

        End With

 Next

End Sub

4、把步骤三的代码添加后点击运行，你会发现一切都是的那么整齐有序，完美！