你好,今天在Word文档中,我将告诉你如何大量设置各种表的宽度和高度。以下文档包含四个表。表的大小不匹配。我将所有表格的总宽度设置为15厘米,表格中每一行的高度设置为2厘米。
(如果你的文件里有更多的票数,也可以使用下面的代码。)。
程序:
1.在“文档”窗口上方的“开发工具”选项卡“代码功能”组中,单击“Visual Basic”按钮。
2。在弹出式VBA编辑器窗口中运行“插入-模块”命令时,将在窗口中心弹出“编辑代码”窗口。
3。在“编辑代码”窗口中输入以下代码:
子批次选取所有表单()
Dim tempTable As Table
A=False
If Ac=wdAllowOnlyFormFields Then
“MsgBox”文档受保护,现在无法选择多个表单!”单击“”
Exit Sub
End If
Ac wdEditorEveryone
For Each tempTable In Ac
WdEditorEveryone
next
Ac wdEditorEveryone
Ac wdEditorEveryone
A=真
End Sub
4。单击窗口顶部工具栏中的启动子程序/用户表单按钮(右侧绿色三角形符号),选择所有文档中的表格。
5。在“表格工具布局”选项卡“表格功能”组中,单击“属性”
。在弹出的“表属性”对话框中,切换到“表”选项卡,并将“大小”设置为“指定宽度”、“15厘米”。切换回“行”选项卡,将大小设置为2厘米(行高值是固定值),然后单击“确定”按钮。
7。回到文档中,所有表格都统一为所需大小,显示每张桌子的总宽度为15厘米,每行的高度为2厘米。
我们的分享到此为止。谢谢你的阅读。欢迎关注。一起学习更多的办公技术吧!#office办公室技术#