首先,我们可以利用Word的表格“自动调 整”功能。 表格转换成文本 选中整个错位的表格,选择菜单“表格自动调整根据内容自动调整表格”。但是,对于某些复杂的表格,特别是存在嵌套表格的情况下,这种办法仍不一定奏效。这 时可采用“表格文本表格”的转换法。选中整个错位的表格,将整个表格转换成文 本。方法是:选择菜单“表格转换表格转换成文本”,出现一个对话框(如图3)。 任选一种表格中没有出现的字符作为分隔符,点击“确定”。最后再将文字转换回表格, 方法是:选择菜单“表格转换文本转换为表格”,出现转换对话框,选择刚才使用 的分隔符,然后点击“确定”。 3.一本万利,单击鼠标 如果经常要处理错位表格,最方便的办法还是创建一个简单的宏。通过宏 AutoFitAllTables 查找Word文档中所有的表格,对于每一个表格,分别调用其各个列的 AutoFit 方法——自动调整其列宽,最终的效果就是对齐所有行和列。 Sub AutoFitAllTables() Dim oTbl EachoTbl ActiveDocument.TablesoTbl.Columns.AutoFit Next oTbl End Sub 追加自定义的宏 打开Word 宏的Visual Basic编辑器,输入上面的宏,保存。选择Word 菜单“工具 自定义”,转到“命令”选项卡(如图4),将AutoFitAllTables 宏拖到Word 适当的位置,Word自动添加以AutoFitAllTables命名的按钮。右击该按钮,将按钮命名 为“对齐所有列”,最后关闭图四的自定义对话框。以后,只要点击“对齐所有列”按钮,Word 就会自动对齐所有错位的表格,非常方便!