Attribute VB_Name = "CreateNewMacros"
Sub www()
  Dim oDoc As Document
  Dim oTable As Table
  Set oDoc = Documents.Open("C:\Users\测试用例\1.doc") '文档路径
  For Each oTable In oDoc.Tables
    oTable.AutoFitBehavior (wdAutoFitWindow) '根据窗口调整内容
  Next
MsgBox "完成！"
End Sub

注：代码来自网络

1.打开word

2.点击开发工具-----宏（ 如果【宏】显示为灰色，需参考https://mp.csdn.net/postedit/102366698开启宏功能。）

3.随便输入宏名称点击创建

4.将开头的代码粘贴到代码框中,注意修改路径为要修改的文件路径

5.点击执行，等待完成即可

以上就是批量让word中的所有表格统一根据窗口自动调整的方法。

注意：这种批量修改后最好再检查一下，有可能部分表格因为某种原因未实现居中效果，需要手动调整。

可以使用宏，编写脚本代码来进行批量修改。需要在“开始”-“选项”页将开发工具放入快捷工具栏，点击“开发工具”，选择“宏”，可以看到有很多预设的宏代码，这里不用自带的，点击创建，敲入代码能达到想要的功能。

• 全选word中所有的表格

Sub SelectAllTable()
 
    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 Change()

    Dim tempTable As Table
    For Each tempTable In ActiveDocument.Tables
        '做要做的操作，下面是举例1
        tempTable.Rows(3).Delete
        '做要做的操作，下面是举例2
        tempTable.Cell(4, 3).Select
        With Selection
            Selection.Font.ColorIndex = wdWhite  
        End With
    Next
    '做要做的操作，下面是举例3
    For i = 1 To ActiveDocument.Tables.Count
    	ActiveDocument.Tables(i).Style = "常用格式"
    Next

    
End Sub

所有表格居中

所有表格居中
Private Sub Document_Open()
Application.Browser.Target = wdBrowseTable
 
 
 
For i = 1 To ActiveDocument.Tables.Count
 
 
 
    ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent) '根据内容自动调整表格
 
 
 
    ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow) '根据窗口自动调整表格
 
    
 
    ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中
 
    
 
    ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中
 
    
 
Next i
End Sub

其它参考链接：

访问绘制表格中单独的行或列，而表格不统一
使用word中的宏实现选中指定类型表格，并且批量修改样式结构
微软官方的Font.ColorIndex等属性注解

Sub addTz()
    Word.Application.ScreenUpdating = False
    Dim oRng As Range
    Dim oDoc As Document
    Dim oCL As CaptionLabel
    Dim oIS As InlineShape
    Set oDoc = Word.ActiveDocument
    With oDoc
        Set oCL = Word.CaptionLabels.Add("图")
        '设置新增的题注样式
        With oCL
            .ChapterStyleLevel = 1
            .IncludeChapterNumber = True
            .NumberStyle = wdCaptionNumberStyleArabic
        End With
        i = 1
        For Each oIS In .InlineShapes
            Set oRng = .Range(oIS.Range.End + 1, oIS.Range.End + 1)
                With oRng
                    '防止影响下段格式
                    .InsertAfter (vbCrLf)
                    '将oRng对象按照整个段落选中，oRng对象自动变为整个段落的Range对象
                    oRng.Expand wdParagraph
                    '如果有自动编号 删除
                    oRng.ListFormat.RemoveNumbers
                    '读取标题的文本内容
                    sText = VBA.Replace(oRng.Text, Chr(13), "")
                    .Delete
                    '插入题注
                    .InsertCaption "图", sText
                    '插入xx如yy所示的交叉引用
                    .InsertAfter "所示" & Chr(13)
                    '重新定义区域
                    .SetRange .Start, .Start
                    .InsertCrossReference "图", wdOnlyLabelAndNumber, i
                    oRng.Expand wdParagraph
                    .SetRange .Start, .Start
                    .InsertBefore sText & "如"
                End With
                i = i + 1
        Next
    End With
    Word.Application.ScreenUpdating = True
End Sub