用宏批量更改表格的宽度
'Alt+F11,插入模块
Sub BatchChangeTableStyle() Dim oTable As Table For Each oTable In ActiveDocument.Tables oTable.Columns(2).Width = CentimetersToPoints(15) Next Set oTable = Nothing MsgBox "完成!"End Sub