セルの余白」という検索で、このサイト・インストラクターのネタ帳へのアクセスがあるのに気づきました。Applications)のコードを探している方による検索でしょう。表の中のセル内余白を設定するには、まず[表のプロパティ]ダイアログを表示してから[オプション]ボタンをクリックして、[表のオプション]ダイアログを表示して[既定のセルの余白]欄で変更する、という手間が必要ですから、マクロが欲しいという気持ちはとても納得できるものです。[スポンサードリンク]特に複数の表が存在しているときに、まとめてセル内余白を変更するマクロというのは活躍の場がありそうです。マクロ記録を行ってみると、以下のようなコードが作られます。Sub上記のコードは、一つの表のセル内余白を設定する操作を行って作られたものですが、このコードを修正すれば、複数の表のセル内余白を一気に変更するマクロができます。選択されている表のセル内余白を設定するサンプルマクロ以下のようなマクロにすれば、複数の表が選択されていても、選択されている全ての表のセル内余白を設定できます。Sub表を選択した状態で上記のマクロを実行すると、セル内余白がすべて5mmに設定されます。Selection.Tables上の余白・TopPadding下の余白・BottomPadding左の余白・LeftPadding右の余白・RightPaddingをそれぞれ設定しています。Table.○○Paddingが、セルの余白を設定するプロパティです。4方向の余白を個別に指定することができるようになっています。Table.○○Paddingプロパティには、単位をポイントで数値を指定する必要があるので、MillimetersToPoints関数で、ポイントに変換しています。(MillimetersToPoints関数の引数で指定されている数値の単位はmmです。)アクティブ文書のすべての表のセル内余白を設定するサンプルマクロループを回す対象を、アクティブ文書内のすべての表にすれば、アクティブな文書上のすべての表のセル内余白を一括変更するマクロになります。ActiveDocument.TablesとすればOKです。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。