如何统一调整word文档中所有表格的宽度和高度?
- 2021-09-18
- 来源/作者: 菜鸟图库/ 菜鸟图库
- 852 次浏览
今天跟大家分享如何在Word文档中批量设置不同表格的宽度和高度。下图文档中有4个表格,表格的尺寸不一致,下面我们想将所有表格整体宽度设置为15厘米,表格每行行高设为2厘米。
(如果大家的文档中表格数量更多,下文中的代码也是可以使用的。)
![如何统一调整word文档中所有表格的宽度和高度?](https://img.sucai999.com/bIS1dIN7Mz%3A4e4dvc3%5BnbXOmNkZvZ3%3AuM4WxcH%3Ai%5BINwZXytbX2oM%7BJyNERxOj9yNkJ3NEV1VERuND6rdHd%3E.jpg?w=600)
操作步骤:
1.在文档窗口上方的“开发工具”选项卡“代码”功能组中单击“Visual Basic”按钮。
![如何统一调整word文档中所有表格的宽度和高度?](https://img.sucai999.com/bIS1dIN7Mz%3A4e4dvc3%5BnbXOmNkZvZ3%3AuM4WxcH%3Ai%5BINwZXytbX2oM%7BJyNERxOj9yNkJ3NEWCTT1yMnqx%5Bx%3E%3E.jpg?w=600)
2.在弹出的VBA编辑器窗口中执行“插入”-“模块”命令,此时在窗口*会弹出一个代码编辑窗口。
![如何统一调整word文档中所有表格的宽度和高度?](https://img.sucai999.com/bIS1dIN7Mz%3A4e4dvc3%5BnbXOmNkZvZ3%3AuM4WxcH%3Ai%5BINwZXytbX2oM%7BJyNERxOj9yNkJ3NEV%7BSEVuNj6rdHd%3E.jpg?w=600)
![如何统一调整word文档中所有表格的宽度和高度?](https://img.sucai999.com/bIS1dIN7Mz%3A4e4dvc3%5BnbXOmNkZvZ3%3AuM4WxcH%3Ai%5BINwZXytbX2oM%7BJyNERxOj9yNkJ3NEV2NlhuNz6rdHd%3E.jpg?w=600)
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
![如何统一调整word文档中所有表格的宽度和高度?](https://img.sucai999.com/bIS1dIN7Mz%3A4e4dvc3%5BnbXOmNkZvZ3%3AuM4WxcH%3Ai%5BINwZXytbX2oM%7BJyNERxOj9yNkJ3NEWKVT11Mnqx%5Bx%3E%3E.jpg?w=600)
4.单击窗口上方工具栏中的“运行子过程/用户窗体”按钮(方向向右的绿色三角符号),这样所有文档中的表格都会被选中。
![如何统一调整word文档中所有表格的宽度和高度?](https://img.sucai999.com/bIS1dIN7Mz%3A4e4dvc3%5BnbXOmNkZvZ3%3AuM4WxcH%3Ai%5BINwZXytbX2oM%7BJyNERxOj9yNkJ3NEVyOElyMUVvboCo.jpg?w=600)
5.在“表格工具”“布局”选项卡“表”功能组中单击“属性”按钮。
![如何统一调整word文档中所有表格的宽度和高度?](https://img.sucai999.com/bIS1dIN7Mz%3A4e4dvc3%5BnbXOmNkZvZ3%3AuM4WxcH%3Ai%5BINwZXytbX2oM%7BJyNERxOj9yNkJ3NEWJOURuOj6rdHd%3E.jpg?w=600)
6.在弹出的“表格属性”对话框中,切换到“表格”选项卡,将“尺寸”设为“指定宽度”“15厘米”;再切换到“行”选项卡,将“尺寸”设为“指定高度”“2厘米”(行高值为固定值),单击“确定”按钮。
![如何统一调整word文档中所有表格的宽度和高度?](https://img.sucai999.com/bIS1dIN7Mz%3A4e4dvc3%5BnbXOmNkZvZ3%3AuM4WxcH%3Ai%5BINwZXytbX2oM%7BJyNERxOj9yNkJ3NEV1NmduOz6rdHd%3E.jpg?w=600)
![如何统一调整word文档中所有表格的宽度和高度?](https://img.sucai999.com/bIS1dIN7Mz%3A4e4dvc3%5BnbXOmNkZvZ3%3AuM4WxcH%3Ai%5BINwZXytbX2oM%7BJyNERxOj9yNkJ3NEV2T%7BFuPD6rdHd%3E.jpg?w=600)
7.返回文档,可见所有表格已经统一为了我们想要的尺寸,每个表格整体宽度15厘米,每行行高2厘米。
![如何统一调整word文档中所有表格的宽度和高度?](https://img.sucai999.com/bIS1dIN7Mz%3A4e4dvc3%5BnbXOmNkZvZ3%3AuM4WxcH%3Ai%5BINwZXytbX2oM%7BJyNERxOj9yNkJ3NEVzNUR%7BMUlvboCo.jpg?w=600)
标签(TAG) word技巧