用宏批量更改表格的宽度

用宏批量更改表格的宽度

'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