Question

如何将一个word文档中的多个大小不一的表格一次调整成统一的大小。

Answer 1

5 我的一个word文档中有大大小小不一的表格多个，但是在打印之前，我想把它们的宽度全部调整成一致，而且左边对齐。 补充：谢谢各位大虾的帮助，可不可以有什么简单的方法让所有的表格一次调整成统一的尺寸，小女比较懒~满意答案不要问我是谁10级2009-10-22不知道你的表格是什么样子的你发个图来看看，一般就选择调整列宽和行距可以调整一样，如果是几个表格要对齐只有选择适应窗口那样所有格子左右也一样齐排列也好 补充： 选择所有的表格设置为固定列宽就行了 追问： 谢谢，我刚刚试了一下，你说的方法很好，但那是新建表格时，所有的表格都选中即可，不过如果现在表格里已经有内容了，并列宽度不一的话， 这个方法可能就不能解决了。不过还好，托你的福，我刚刚已经实验了另一种方法，应该可以解决问题了，总之还得谢谢你。其他回答(3)ゅ小鱼哥ゅ3级2009-10-22鼠标右键点击表格，设置表格宽度蓉翼广告8级2009-10-22选中你想调整的表格，右键，试试平均分布各行，平均分布各列，单元格对齐方式。战士4级2009-10-22你可以将表格全选项中，表格会成黑色，那么在上面单击鼠标右键调整平均分部各行或平均分部各列，这时如果分部好了有可以文字会出现不在单元格中间，那你可以用同样的方法，单元格对齐方式，调整文字可以把表格中的文字调整你所想的位置。如果是文字多的地方可以手动调整，列宽或行高就行了。 补充： 选中表格在表格上单击右键点属性里面可以调行高和列宽。

Answer 2

你可以将表格全选项中，表格会成黑色，那么在上面单击鼠标右键调整平均分部各行或平均分部各列，这时如果分部好了有可以文字会出现不在单元格中间，那你可以用同样的方法，单元格对齐方式，调整文字可以把表格中的文字调整你所想的位置。如果是文字多的地方可以手动调整，列宽或行高就行了。

Answer 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

Answer 4

选中你想调整的表格，右键，试试平均分布各行，平均分布各列，单元格对齐方式。

Answer 5

不知道你的表格是什么样子的你发个图来看看，一般就选择调整列宽和行距可以调整一样，如果是几个表格要对齐只有选择适应窗口那样所有格子左右也一样齐排列也好