返回
首页 > 数码科技

word文档要打印的表格又瘦又长浪费纸张怎么办?

时间: 2023-01-12

1)建立宏来选择文档中的全部表格:「开发工具」-「Visual Basic」将下列代码复制进去。然后,在「宏」中点击「运行」,就可以选中文档中的所有表格了。lHjoffice教程网

 lHjoffice教程网

代码:lHjoffice教程网

Sub 批量修改表格()lHjoffice教程网

Dim tempTable As TablelHjoffice教程网
Application.ScreenUpdating = FalselHjoffice教程网
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields ThenlHjoffice教程网
MsgBox "文档已保护,此时不能选中多个表格!"lHjoffice教程网
Exit SublHjoffice教程网
End IflHjoffice教程网
ActiveDocument.DeleteAllEditableRanges wdEditorEveryonelHjoffice教程网
For Each tempTable In ActiveDocument.TableslHjoffice教程网
tempTable.Range.Editors.Add wdEditorEveryonelHjoffice教程网
NextlHjoffice教程网
ActiveDocument.SelectAllEditableRanges wdEditorEveryonelHjoffice教程网
ActiveDocument.DeleteAllEditableRanges wdEditorEveryonelHjoffice教程网
Application.ScreenUpdating = TruelHjoffice教程网
End Sub
lHjoffice教程网

 lHjoffice教程网

2)修改表格属性。通过上面的宏选中表格后,还可以通过「右键」-「表格属性」,对表格中的单元格的高度、宽度等再次统一设置。lHjoffice教程网

3)修改样式:运行刚才录入进去的宏,即可一次选中文档中所有表格,然后,可以在「设计」-「表格样式」-「修改表格样式」。lHjoffice教程网

猜你喜欢

版权所有 Copyright©2023 餐饮美食网 版权所有

粤ICP备15109582号

联系邮箱:187348839@qq.com