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