こんにちは！ Wordでの資料作り、いつもお疲れ様です。
「マクロの記録」でコードを覗いてみたものの、見慣れない呪文のような英語の羅列に圧倒されて挫折しそうになっていませんか？
大丈夫、安心してください。今日ここでお話しする「段落の自動レイアウト」の仕組みをクリアすれば、あなたももう「初心者マーク」を卒業です。
Word VBAの本質は、「人間が手作業でポチポチやっている面倒な繰り返し作業を、Wordの裏側のエンジンに一瞬で代行させること」にあります。今回は、文書の顔とも言える「見出し」の余白（段落前後の間隔）を、レベルに応じて自動で最適化するプロ仕様のツールを一緒に作っていきましょう。
プロのエンジニアが現場で使っている「生きた知見」を、優しく噛み砕いてお伝えしますね。
—
なぜ「見出しの余白」を手動でいじってはいけないのか？
長文の報告書やマニュアルを作るとき、こんなストレスを感じたことはありませんか？
- 「見出し1」の上にはもう少し余白が欲しいのに、改行キー（Enter）で無理やり空けている。
- 修正が入ってページが変わるたびに、余白のバランスが崩れてダサくなる。
これ、実はWord VBAのオブジェクトモデルを理解すると、一瞬で解決します。
Wordの文書は、突き詰めると「段落（Paragraph）の集まり」です。そして、すべての段落には「スタイル（Style）」という概念が紐付いています。
「手動で改行を入れて余白を作る」のではなく、「見出しのスタイル自体に『この見出しの前は〇pt空けなさい』と命令する」。これが、美しい文書を秒速で自動生成するための唯一にして最大の極意です。
—
現場で即戦力になる！「見出し余白自動調整マクロ」
それでは早速、実際のコードを見てみましょう。
以下のコードをWordのVBAエディタ（Alt + F11で開けます）に貼り付けて実行してみてください。文書内の「見出し1」「見出し2」「見出し3」の余白が、プロのデザイナーが設計したかのような黄金比に一瞬で書き換わります。
Sub AdjustHeadingSpacings()
‘ =====================================================================
‘ チーフアーキテクト特製：見出しレベル動的レイアウト・エンジン
‘ 目的：文書内の見出しスタイルを検知し、前後の余白（SpaceBefore/After）を最適化する
‘ =====================================================================
Dim stgHeading1 As Style
Dim stgHeading2 As Style
Dim stgHeading3 As Style
‘ エラーハンドリングの準備（存在しないスタイルを触った時の暴走を防ぐ）
On Error GoTo ErrorHandler
‘ 画面描画をロックして処理速度を極限まで爆上げする（プロの常道）
Application.ScreenUpdating = False
‘ — 1. 見出しスタイルのオブジェクトを取得 —
Set stgHeading1 = ActiveDocument.Styles(wdStyleHeading1)
Set stgHeading2 = ActiveDocument.Styles(wdStyleHeading2)
Set stgHeading3 = ActiveDocument.Styles(wdStyleHeading3)
‘ — 2. 見出し1の設定（大見出し：上下にたっぷりとした余白を確保） —
With stgHeading1.ParagraphFormat
.SpaceBefore = 24 ‘ 段落前の間隔（pt単位：上の余白）
.SpaceAfter = 8 ‘ 段落後の間隔（pt単位：下の余白）
End With
‘ — 3. 見出し2の設定（中見出し：階層関係を意識して少しコンパクトに） —
With stgHeading2.ParagraphFormat
.SpaceBefore = 18 ‘ 段落前の間隔
.SpaceAfter = 6 ‘ 段落後の間隔
End With
‘ — 4. 見出し3の設定（小見出し：本文との連続性を重視） —
With stgHeading3.ParagraphFormat
.SpaceBefore = 12 ‘ 段落前の間隔
.SpaceAfter = 4 ‘ 段落後の間隔
End With
‘ 画面描画のロックを解除
Application.ScreenUpdating = True
MsgBox “見出しの自動レイアウトが完了しました！”, vbInformation, “処理成功”
Exit Sub
ErrorHandler:
‘ 万が一のエラーを優しくキャッチ
Application.ScreenUpdating = True
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “予期せぬエラー”
End Sub
—
コードの注目ポイント：ここを理解すれば怖くない！
初心者の方が「おっ」と思うポイントを、エンジニアの視点でいくつか解説しますね。ここをクリアすれば、Word VBAの基本はバッチリです。
1. `With` ステートメントでスマートに書く
コードの中に `.SpaceBefore` や `.SpaceAfter` という見慣れない表現がありますね。これは `stgHeading1.ParagraphFormat` という長いオブジェクトの指定を省略するための魔法の構文です。
何度も同じオブジェクト名を書かなくて済むため、コードがスッキリして読みやすくなります。
2. pt（ポイント）という単位の正体
コード内の `24` や `8` という数字、これは「pt（ポイント）」という単位です。
- 1 pt ＝ 約 0.35 ミリ です。
- つまり、`SpaceBefore = 24` は、「この段落の上の部分に、約8.4ミリの余白を空けなさい」という厳密な指示をWordに出していることになります。目分量ではなく、論理的な数値でデザインをコントロールできるのがVBAの強みです。
3. `Application.ScreenUpdating = False` の秘密
コードの最初と最後に、画面の描画をオンオフする呪文が入っています。
Wordはマクロが実行されるたびに、画面の表示を一生懸命リアルタイムで更新しようとします。これが処理を重くする原因になります。
あらかじめ「画面の更新は止めといてね（False）」と指示し、裏側で一瞬で処理を終わらせたあとに「更新再開していいよ（True）」と戻すことで、処理スピードが何倍にも跳ね上がります。 これは実務で必ず使うプロのテクニックです。
—
初学者がハマりやすい「3つの罠」と回避策
最後に、Word VBAを書き始めの頃に誰もが通る「落とし穴」をシェアしておきます。これを知っておくだけで、無駄なデバッグ時間に悩まされなくなりますよ。
罠その1：「存在しないスタイル」を指定してエラーになる
今回のコードでは `wdStyleHeading1` という組み込みスタイルを使っていますが、海外製のテンプレートや、誰かが勝手に名前を変えた文書では、この名前が見つからずにエラー（実行時エラー’5941’：指定されたコレクションのメンバーは存在しません）になります。
- 対策： 今回のコードのように `On Error GoTo` を仕込んでおくか、あらかじめ文書内にそのスタイルが使われているかをチェックする癖をつけましょう。
罠その2：文書全体ではなく、選択している「1行だけ」が変わってしまう
「マクロの記録」を使うと、どうしても `Selection.ParagraphFormat` のようなコードが生成されます。これだと、マウスでカーソルを置いた「今いる場所」しか変わりません。
- 対策： プロは `Selection`（選択範囲）を使いません。今回のように `ActiveDocument.Styles`（文書全体のスタイルそのもの）を直接叩くことで、文書全体の統一感を一瞬で担保できます。
—
おわりに
いかがでしたでしょうか？
「段落の余白をコードでコントロールする」という感覚がつかめると、Wordは単なるワープロソフトから、「意図した通りに美しい文書を自動生成してくれる強力なシステム」へと姿を変えます。
ここをクリアしたあなたなら、もうマクロの記録の奴隷ではありません。
ぜひ自分の業務に合わせて数値をカスタマイズし、日々のドキュメント作成を爆速＆快適にしてみてくださいね。それでは、また次の知見でお会いしましょう！
