こんにちは！ Word VBAの世界へようこそ。
マクロの記録ボタンを押して「動いた！」と感動したのも束の間、いざ自分でコードを書こうとすると「あれ、思うような場所にカーソルが動かない」「オブジェクトって何？」と途方に暮れていませんか？
大丈夫、その壁は誰もが通る道です。ここをクリアすれば、あなたも脱・初心者。Word文書を自在に操るオートメーション・エンジニアへの切符を手に入れます。
今回は、実務で最も要望が多い「見出しのレベルに応じて、段落の前後の余白（間隔）を美しく動的にコントロールする」というテーマを深掘りします。
手作業で一つひとつ改行を調整したり、スタイルを開いてポチポチ設定したり……そんな不毛な残業は今日で終わりです。プロの技を一緒に身につけましょう！
—
なぜ「段落の間隔」の自動化が重要なのか？
Word文書の美しさは「余白のコントラスト」で決まります。特に見出しの上部にどれだけスペースを空けるかで、ドキュメントの読みやすさは劇的に変わります。
しかし、これを手動でやろうとすると悲惨です。
- 見出し1の前は広め（24pt）にしたい
- 見出し2の前は中くらい（18pt）
- 見出し3の前は少しだけ（12pt）
これを文書全体で統一しようとすると、途中で書式が崩れたり、修正漏れが発生したりします。ここでVBAの出番です。文書全体の「見出しの階層構造（OutlineLevel）」をプログラムが瞬時に判定し、適切な余白を秒速で流し込む――これが今回目指すゴールです。
—
押さえておきたいWord VBAの核心：Paragraphs と Range
Word VBAを学ぶ上で、絶対に避けて通れないのが「オブジェクトの階層構造」です。
Excelのマクロ（セルを `Range(“A1”)` で指定する感覚）とは少し違い、Wordは「テキストの流れ（ストーリー）」をベースにオブジェクトが構築されています。
今回操作するのは `Paragraph`（段落） オブジェクトです。
Word文書は、無数の「段落」の集合体です。すべての段落には、以下のようなプロパティ（属性）が備わっています。
- `SpaceBefore`：段落「前」の余白（ポイント単位）
- `SpaceAfter`：段落「後」の余白（ポイント単位）
- `OutlineLevel`：アウトラインレベル（見出し1〜9、または本文）
この「アウトラインレベル」を条件分岐（`Select Case`文など）で判定し、レベルに応じた `SpaceBefore` を代入していく。これが今回のコードの全貌です。
—
実装コード：見出し動的レイアウト・マクロ
それでは、実際の開発現場でもそのまま使える実用的なコードを公開します。
VBE（Visual Basic Editor）を開き、標準モジュールに以下のコードを貼り付けてください。
Sub DynamicHeadingSpacing()
‘ 変数の宣言
Dim rngDoc As Range
Dim para As Paragraph
Dim targetHeadingCount As Long
‘ 画面描画を停止して処理速度を爆発的に上げる（お作法）
Application.ScreenUpdating = False
‘ 処理カウンターの初期化
targetHeadingCount = 0
‘ 文書全体の範囲を取得
Set rngDoc = ActiveDocument.Content
‘ 文書内のすべての段落をループ処理
For Each para In rngDoc.Paragraphs
‘ 段落のアウトラインレベルを判定する
‘ ※Wordの標準スタイル「見出し 1〜3」は自動的にOutlineLevelが割り当てられます
Select Case para.OutlineLevel
Case wdOutlineLevel1 ‘ 見出し 1 の場合
para.SpaceBefore = 24 ‘ 上部の余白を広く（24pt）
para.SpaceAfter = 8 ‘ 下部の余白
targetHeadingCount = targetHeadingCount + 1
Case wdOutlineLevel2 ‘ 見出し 2 の場合
para.SpaceBefore = 18 ‘ 上部の余白を中くらいに（18pt）
para.SpaceAfter = 6
targetHeadingCount = targetHeadingCount + 1
Case wdOutlineLevel3 ‘ 見出し 3 の場合
para.SpaceBefore = 12 ‘ 上部の余白を少しだけ（12pt）
para.SpaceAfter = 4
targetHeadingCount = targetHeadingCount + 1
Case Else
‘ 本文やその他の段落は何もしない（あるいは必要に応じて設定）
End Select
Next para
‘ 画面描画を再開
Application.ScreenUpdating = True
‘ 完了メッセージ
MsgBox “処理が完了しました！” & vbCrLf & _
“調整した見出しの総数: ” & targetHeadingCount & ” 箇所”, _
vbInformation, “レイアウト自動整形”
End Sub
—
コードの注目ポイント（ここが分かれば初心者卒業！）
先輩エンジニアとして、このコードの「シブいポイント」を3つ解説します。
1. `Application.ScreenUpdating = False` の魔法
これがあるのとないのとでは、処理速度が文字通り「桁違い」になります。
Wordはデフォルトだと、マクロが1つの段落を変更するたびに画面の表示を更新（再描画）しようとします。数百ページの文書になると、これが画面のチラつきと深刻な動作遅延の原因になります。
処理の最初に画面を「フリーズ」させ、最後に一気に「解除」する。プログラミングの鉄則です。
2. `wdOutlineLevel1` という定数の利用
「1」や「2」といったマジックナンバー（意味が直感的に分からない数字）を直接書くのではなく、Wordがあらかじめ用意してくれている定数（`wdOutlineLevel1` など）を使用しています。これにより、コードの可読性がグッと上がり、バグを防げます。
3. `For Each … In …` による安全な巡回
インデックス（`i = 1 To Paragraphs.Count`）で回すのではなく、`For Each`文を使うことで、文書内の段落を漏れなく、かつ安全に走査することができます。
—
陥りやすい罠とエラー回避のコツ
中級者にステップアップする過程で、多くの人が以下の罠にハマります。
- 罠：「見出しにしたはずなのに、間隔が変わらない！」
- 原因： その段落が、手動で文字サイズや太字にしただけの「見出しもどき」である可能性が高いです。Word VBAが認識するのは、あくまで「スタイル（見出し 1 など）」が正しく適用されている、または `OutlineLevel` が明示的に設定されている段落です。
- 対策： 事前に文書のスタイルが正しく整えられていることを確認してください。
- 罠：「動作が途中で重くなる・固まる」
- 原因： 画像や図表（Shape / InlineShape）が大量に含まれている文書で `ActiveDocument.Content.Paragraphs` を叩くと、Wordの内部キャッシュが肥大化することがあります。
- 対策： 今回紹介した `Application.ScreenUpdating = False` を必ず挟む癖をつけましょう。
—
おわりに：ここをクリアすれば、Word VBAは怖くない！
お疲れ様でした！ 今回は「段落のプロパティ操作」と「条件分岐」を組み合わせた、非常に実践的な自動化テクニックを解説しました。
「たったこれだけのコードで、何百ページもある仕様書のレイアウトが一瞬で整う」――その快感を一度味わってしまえば、もう手動でのコピペ作業には戻れなくなるはずです。
Word VBAは、オブジェクトの構造さえ見えてしまえば、Excelよりも直感的でパワフルな相棒になります。ぜひ、あなたの日常業務のファイルで試してみてくださいね。
それでは、次回の高度な自動化の世界でお会いしましょう！
