标签：blog os io for cti div log ad
有时候需要对word中很多表格的属性进行修改，而word无法批量修改属性，所有这里记录一个宏
Sub TableFormatter()
Dim oTbl As Table, i As Integer
For Each oTbl In Selection.Tables
With oTbl
.Rows.AllowBreakAcrossPages = False
.Rows(1).HeadingFormat = True
For i = 1 To .Columns.Count
If i = 1 Then .Columns(i).Width = InchesToPoints(1.19)
If i = 2 Then .Columns(i).Width = InchesToPoints(2#)
If i = 3 Then .Columns(i).Width = InchesToPoints(1.19)
If i = 4 Then .Columns(i).Width = InchesToPoints(2#)
If i = 5 Then .Columns(i).Width = InchesToPoints(2.62)
Next
End With
Next
End Sub
标签：blog os io for cti div log ad
原文地址：http://www.cnblogs.com/asyuras/p/3906630.html
