用宏批量更改表格的宽度
2012-09-30 18:05 狼人:-) 阅读(463) 评论(0) 编辑 收藏 举报用宏批量更改表格的宽度
'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
声明:此博有部分内容为转载,版权归原作者所有~