【ワードマクロ】表の列幅を自動調整：コピペで使えるマクロコード

ワードマクロで、表の列幅を自動調整するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
お役に立てると嬉しいです！

表の列幅を自動調整（特定の表）
表の列幅を自動調整（すべての表）

表の列幅を自動調整（特定の表）

以下のWordVBAを実行すると、
ワードファイル内の一番上にある表の列幅を自動調整します。


Sub 特定の表の列幅を自動調整()

    ActiveDocument.Tables(1).AutoFitBehavior (wdAutoFitContent)
       
End Sub

表の列幅を自動調整（すべての表）

以下のWordVBAを実行すると、
ワードファイル内にある全ての表の列幅を自動調整します。


Sub 表の列幅を自動調整1()

  Dim i As Long
 
  'ファイル内のすべての表をループ
  For i = 1 To ActiveDocument.Tables.Count
     
     '列幅を自動調整する      
     ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent)
       
  Next i
    
End Sub