首页 > 代码库 > 批量修改WORD表格属性

批量修改WORD表格属性

2024-07-17 02:46:53   227人阅读

有时候需要对word中很多表格的属性进行修改，而word无法批量修改属性，所有这里记录一个宏

Sub TableFormatter()Dim oTbl As Table, i As IntegerFor 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 WithNextEnd Sub

　　


联系
我们