推荐订阅源

有时候需要对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