大家好，今天跟大家分享如何在Word文档中批量设置不同表格的宽度和高度。下图文档中有4个表格，表格的尺寸不一致，下面我们想将所有表格整体宽度设置为15厘米，表格每行行高设为2厘米。
（如果大家的文档中表格数量更多，下文中的代码也是可以使用的。）
操作步骤：
1.在文档窗口上方的“开发工具”选项卡“代码”功能组中单击“Visual Basic”按钮。
2.在弹出的VBA编辑器窗口中执行“插入”－“模块”命令，此时在窗口中央会弹出一个代码编辑窗口。
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
4.单击窗口上方工具栏中的“运行子过程／用户窗体”按钮（方向向右的绿色三角符号），这样所有文档中的表格都会被选中。
5.在“表格工具”“布局”选项卡“表”功能组中单击“属性”按钮。
6.在弹出的“表格属性”对话框中，切换到“表格”选项卡，将“尺寸”设为“指定宽度”“15厘米”；再切换到“行”选项卡，将“尺寸”设为“指定高度”“2厘米”（行高值为固定值），单击“确定”按钮。
7.返回文档，可见所有表格已经统一为了我们想要的尺寸，每个表格整体宽度15厘米，每行行高2厘米。
我们的分享就到这里，感谢阅读。
更多资源请访问:四零四软件下载站423下载站「真诚赞赏，手留余香」
求资源网
真诚赞赏，手留余香
使用微信扫描二维码完成支付
转载请注明：首页 > 投稿 » word表格怎么调整行高（如何统一调整文档中所有表格的宽度和高度？）
发表评论
版权声明
求资源网所发布的一切破解补丁,软件,以及其他分析文章仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途。
否则，一切后果请用户自负。本站信息来自网络，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑中彻底删除上述内容。如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。如有侵权请邮件与我们联系处理。