Word VBAで表の自動調整をマスターしよう！

2025.03.142026.09.04

こんにちは、皆さん！今日は、WordのVBAを使って、表のサイズを自動的に調整する方法についてお話しします。これを知っていると、文書作成がもっと楽になりますよ。

Word VBAで表を自動調整する方法
1. 表の幅をページ幅に合わせるマクロ
よくある質問や疑問
1. Q1: 表の列幅を均等に揃えるにはどうすればいいですか？
2. Q2: 表の行の高さを自動的に調整する方法はありますか？
まとめ

Word VBAで表を自動調整する方法

Wordのイメージ

まず、WordのVBAを使って表を自動調整する方法を見ていきましょう。具体的には、表の幅をページの幅に合わせる方法です。

表の幅をページ幅に合わせるマクロ

例えば、以下のようなマクロを使うと、文書中のすべての表の幅をページ幅に合わせることができます。

vba

Sub 表の幅をページ幅に合わせる()

    Dim tbl As Table

    For Each tbl In ActiveDocument.Tables

        tbl.AutoFitBehavior wdAutoFitWindow

    Next tbl

End Sub

このマクロを実行すると、文書内のすべての表がページの幅に自動的に調整されます。これで、手動で調整する手間が省けますね。

よくある質問や疑問

ここでは、Wordの表の自動調整に関するよくある質問をいくつかご紹介します。

Q1: 表の列幅を均等に揃えるにはどうすればいいですか？

表全体を選択してから、以下のマクロを実行すると、列幅を均等に揃えることができます。

vba

Sub 列幅を均等に揃える()

    Dim tbl As Table

    For Each tbl In ActiveDocument.Tables

        tbl.AutoFitBehavior wdAutoFitContent

    Next tbl

End Sub

このマクロを使うと、各列の幅が均等になり、見た目がすっきりします。

Q2: 表の行の高さを自動的に調整する方法はありますか？

はい、以下のマクロを使用すると、すべての表の行の高さを自動的に調整できます。

vba

Sub 行の高さを自動調整する()

    Dim tbl As Table

    For Each tbl In ActiveDocument.Tables

        tbl.Rows.HeightRule = wdRowHeightAuto

    Next tbl

End Sub

このマクロを実行すると、行の高さが内容に合わせて自動的に調整されます。