通过宏AutoFitAllTables查找Word文档中所有的表格,对于每一个表格,分别调用其各个列的AutoFit方法——自动调整其列宽,最终的效果就是对齐所有行和列。 Sub AutoFitAllTables() Dim oTbl As Table For Each oTbl In ActiveDocument.Tables oTbl.C olumns.AutoFit Next oTbl End Sub
打开Word 宏的Visual Basic编辑器,输入上面的宏,保存。
选择Word菜单“工具→自定义”,转到“命令”选项卡,将AutoFitAllTables宏拖到 Word工具栏上适当的位置,Word自动添加以AutoFitAllTables命名的按钮。右击该按钮,将按钮命名为“对齐所有列”,最后关闭图四的自定义对话框。以后,只要点击“对齐所有列”按钮,Word就会自动对齐所有错位的表格,非常方便!