Word 批量调整表格样式

Word Nov 17, 2020 1

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

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

image-20201117122411430

一、选中所有表格

​ 点击“视图”-“宏”-“查看宏”,输入“宏名”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

二、设置表格宽度

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

image-20201117121757043

三、设置列自适应

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

image-20201117121705291

四、自定义表格样式(可选)

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

调整完成后如下图

image-20201117122256490

目录

Great! You've successfully subscribed.
Great! Next, complete checkout for full access.
Welcome back! You've successfully signed in.
Success! Your account is fully activated, you now have access to all content.