word文档要打印的表格又瘦又长浪费纸张怎么办?
2023-01-12 canyinms.com 【 字体:大 中 小 】
1)建立宏来选择文档中的全部表格:「开发工具」-「Visual Basic」将下列代码复制进去。然后,在「宏」中点击「运行」,就可以选中文档中的所有表格了。
代码:
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
2)修改表格属性。通过上面的宏选中表格后,还可以通过「右键」-「表格属性」,对表格中的单元格的高度、宽度等再次统一设置。
3)修改样式:运行刚才录入进去的宏,即可一次选中文档中所有表格,然后,可以在「设计」-「表格样式」-「修改表格样式」。
如何自制蛋挞
肉火烧面怎么和面
奶茶几分糖好喝
过桥米线是哪里的?
面霜和乳液的区别
怎么摘隐形眼镜
粉饼和散粉的区别
冷烫和热烫的区别
高品质香水如何鉴别?用三步就可以解决
如何去除黑眼圈