Word 批量调整表格样式

使用工具生成的 Word 表格格式经常会不整齐、两边页边距超出等问题，这时候表格又非常多，一个个的调整显然是不可行的，那如何批量调整呢？

表格超出页边距范围，如果只有一两个表格，可以手动调整。方法是选中表格，右键-自动调整-根据窗口调整表格。如果表格非常多，需要进行批量调整，就要使用宏工具了。

一、选中所有表格

​ 点击“视图”-“宏”-“查看宏”，输入“宏名”SelectAllTabls，然后点击“创建”，粘贴宏代码。保存后关闭代码窗口，运行宏即可选中所有表格。

Sub SelectAllTabls()
'
' SelectAllTabls 宏
'
'
    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

二、设置表格宽度

右键“任意表格区域”，选择“表格属性”，然后设置“表格尺寸”指定宽度；“对齐方式”选择居中后确定。

三、设置列自适应

在“表格属性”中点击“选项”，然后勾选“自动重调尺寸以适应内容”后确定。

四、自定义表格样式（可选）

首先运行宏，选中所有表格，然后点击“设计”调整表格样式。如果 Word 默认的表格样式不好看，可以手动修改表格样式。

调整完成后如下图