【ワードマクロ】表の列幅を自動調整するマクロ｜セル幅を一括最適化

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

このページのマクロコードは、コピペで使えます。
ぜひお試しください😉

Word VBAで特定の表の列幅を自動調整する方法

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

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

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

Word VBAで全ての表の列幅を自動調整する方法

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

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

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

【実行前】表の列幅が揃っていない状態

表のセル内の文字が改行されていたり、ムダな空欄が見えているセルもあります。

【実行後】表の列幅を自動調整した結果

表のセル内の文字に改行がなくなり、ムダな空欄もなくなりました。

 
 
この記事がお役に立ちますと幸いです🍀
 
・【ワードマクロ】表の処理を自動化の使用例まとめ
 

【ワードマクロ】表の処理を自動化：超便利７選

ワードマクロで、表の処理を自動化するVBAコードをご紹介します。どのマクロコードも、コピペで使用できます。ぜひお試しください！

kirinote.com

2023.08.05