word文档要打印的表格又瘦又长浪费纸张怎么办?
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)修改样式:运行刚才录入进去的宏,即可一次选中文档中所有表格,然后,可以在「设计」-「表格样式」-「修改表格样式」。