word如何批量修改表格格式？

Question

我这有个word文档有200多个表格（全部是3列的），现在要求第一列宽度2cm，第二列8cm，第三列6cm。一个一个改效率实在太低了。请问如何批量修改表格的宽度以符合要求，求一个比较快捷的方法。

Answer 1

试试使用这个宏
Sub Macro1()
Dim MyTable As Table
For Each MyTable In ActiveDocument.Tables
MyTable.PreferredWidth = CentimetersToPoints(16)
MyTable.Columns(1).PreferredWidth = CentimetersToPoints(2)
MyTable.Columns(2).PreferredWidth = CentimetersToPoints(8)
MyTable.Columns(3).PreferredWidth = CentimetersToPoints(6)
Next
End Sub
记着！在备份文档试。追问

为什么会有错误5592？
无法访问集合中单独的列，因为表格有混合的单元格宽度

追答

那可能是你的表格不是规规矩矩的二维表所致。
这种情况
又没有见到表样
我就不好说了

有时
我也会遇到这种情况
需要根据具体情况分析解决

也可以在FOR EACH前加一句
On Error Resume Next

这样可能会跳过不规则的表
亦可能会产生意料不到的后果
不妨在备份文档中试一试

祝你顺利

本回答被提问者和网友采纳

Answer 2

在我们日常工作和日常学习中，有时候需要将一些Word 文件进行压缩，如何做到呢？我们可以使用[风云压缩]完成。一起来看下具体步骤吧！

Answer 3

按向下选取单元格，在“表格属性”“列”指定宽度。

Answer 4

你改了前三列的，复制补救的了