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 默认的表格样式不好看,可以手动修改表格样式。
调整完成后如下图