表をまとめて中央揃えにするWordマクロ

「word vba 表 中央ぞろえ」
「word vba 表 センタリング」
といった検索で、このサイト・インストラクターのネタ帳へのアクセスが時折あります。

何を求めていた検索なのか可能性はいくつか考えられますが、表が複数存在する文書内の複数の表を、一気に中央揃え・センタリングする方法を探していたのではないか、と私は推測しています。

表自体を文書の中で中央揃えするには、下図のような［表のプロパティ］ダイアログを表示してから、［表］タブ－［配置］欄で［中央揃え］を指定する必要があります。

たくさんの表が含まれている文書を編集しているときに、この操作を繰り返すのはとても面倒で、マクロが使えたらと感じる気持ちはとても共感できます。

表をまとめて中央揃えにするサンプルマクロ

アクティブな文書内のすべての表を、一気に中央揃えするWordマクロを作成してみました。

上記のマクロを実行すると、
「アクティブ文書内のすべての表を、文書内で中央揃えにしますか？」
というメッセージボックスが表示され［はい］ボタンをクリックすると、表が一気に中央揃えされます。

サンプルマクロの解説

マクロを実行する確認メッセージを表示して［いいえ］ボタンが押されたときにはマクロを終了しています。
　If MsgBox(msg, vbYesNo) = vbNo Then Exit Sub

［はい］が押されたときに、アクティブな文書のすべての表にループ処理を開始して、
　For Each tbl In ActiveDocument.Tables

表の配置を中央揃えにしています。
　　tbl.Rows.Alignment = wdAlignRowCenter

表を中央揃えにする操作をマクロ記録してみると、
　Sub Sample()
　　Selection.Tables(1).Rows.Alignment = wdAlignRowCenter
　End Sub
といったマクロが作られます。

このコードを参考にして作成したのが上記のマクロです。

▼「インストラクターのネタ帳」を運営する伊藤潔人が初めて書かせていただいた本『いちばんやさしい Excel VBA の教本』の、特に Chapter8 は、VBA の経験があるみなさんにも興味深く読んでいただけると考えています。