Word VBAで表をまとめて中央揃えに

対象：Word2007, Word2010, Word2013

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

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

Word ［表のプロパティ］ダイアログ-［表］タブ-［配置］欄

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

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

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

Sub すべての表を中央揃えにする()
　Dim tbl As Table
　For Each tbl In ActiveDocument.Tables
　　tbl.Rows.Alignment = wdAlignRowCenter
　Next
End Sub

上記のマクロを実行すると、アクティブ文書内のすべての表が一気に中央揃えされます。

アクティブな文書のすべての表にループ処理を開始して、
　For Each tbl In ActiveDocument.Tables

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

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

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

Excel VBAユーザーのためのWord VBA入門（2）: Tableの基本編

伊藤潔人 2021-07-09

最終更新日時：2021-09-03 17:27

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Chartに関連するオブジェクトモデルの基本を解説したKindle本を書きました↓↓

Shapeに関連するオブジェクトモデルの基本を解説したKindle本を書きました↓↓

Excel VBAユーザーの皆さんに向けたWord VBA入門書を、書きました↓↓

キンドル本『もしかして、論理式がよくわからないままExcelを使ってませんか？：条件付き書式はIF関数といっしょに理解しよう！』を出しました↓↓

VBAユーザーの皆さんに向けた、Pythonの超入門書をキンドル本として出しました↓↓

2年前(2020年12月)の
人気記事

「表・テーブル」の記事一覧