有时候需要对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
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。