批量修改WORD表格属性

最新推荐文章于 2025-06-02 18:41:29 发布

转载最新推荐文章于 2025-06-02 18:41:29 发布 · 1.2k 阅读

2 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/asyuras/p/3906630.html

文章标签：

#python

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

转载于:https://www.cnblogs.com/asyuras/p/3906630.html