【Word VBA】見出しレベルに追従する動的スペーシング制御：美しさとロジックを両立する自動レイアウトの極意
開発現場のドキュメント作成において、Wordのレイアウト崩れほど開発者のリソースを奪うものはない。
「見出しの下に謎の空行が挿入されている」「ページ送りの直前に見出しが孤立している（いわゆる「孤児・寡婦」問題）」。これらを人力で調整しているとしたら、それはエンジニアの時間をドブに捨てているようなものだ。
今回は、Word VBAを用いて文書内の見出しレベル（`Style.ParagraphFormat`）を動的に判定し、前後の余白（SpaceBefore / SpaceAfter）をプログラム側で完全統制する自動レイアウトツールの設計思想と実装コードを伝授する。
単なる「プロパティの書き換えスクリプト」ではない。数万行規模の巨大ドキュメントであっても一瞬で処理を完了させ、かつ保守性を極限まで高めたプロダクションコードの全貌を公開しよう。
—
1. なぜ「手動の段落設定」や「デフォルト機能」では破綻するのか？
多くの初級者が犯す過ちは、文書内のすべての段落を走査し、個別の `Paragraph.SpaceBefore` や `Paragraph.SpaceAfter` を力技で書き換えるアプローチをとることだ。これは最悪のアンチパターンである。
非効率なアプローチの弊害
1. オブジェクトモデルの過剰な往復（COM相互運用性のコスト）：Word VBAにおいて、Document上のすべての段落（Paragraphs）に個別にアクセスしプロパティを変更する処理は、COM境界を何度も跨ぐため、重厚長大文書（100ページ超）ではフリーズを疑うレベルで処理が遅延する。
2. スタイルの汚染：個別段落の書式（Direct Formatting）を書き換えてしまうと、後からベーススタイル（Heading 1, Heading 2など）を変更した際にマスター設定が上書きされ、デザインの整合性が完全に崩壊する。
闘うエンジニアの正攻法
プロフェッショナルな自動化エンジニアが取るべきアプローチは、「個別段落の直接変更」ではなく、「スタイル（Styleオブジェクト）自体の段落書式を動的にコントロールする」、あるいは「論理構造を解析して一括アロケーションする」ことだ。
今回は、ドキュメントの構造的整合性を保ちつつ、見出し階層に応じた最適なマージンを適用する堅牢なツールを構築する。
—
2. 設計思想：堅牢性とパフォーマンスの最適化
プロダクションコードとして耐えうるシステムにするため、以下のアーキテクチャを採用する。
- トランザクション的処理（ScreenUpdatingの制御）：描画とイベントを完全に抑制し、実行速度を極限まで引き上げる。
- エラーハンドリングと状態復元：予期せぬ例外が発生した場合でも、Wordのアプリケーション状態がデバッグ中のままフリーズしないよう確実なクリーンアップを行う。
- 設定の抽象化（Configurable Design）：見出しレベルごとの「前後の余白（pt）」を定数または配列で一元管理し、後からのデザイン変更（仕様変更）に秒速で対応できるようにする。
—
3. プロダクションコード：動的スペーシング自動レイアウトエンジン
以下のコードをWordの標準モジュールに貼り付けて実行してほしい。実務で即座に使える、洗練されたエラーハンドリングと高速化処理を備えた完全版だ。
Option Explicit
‘ =================================================================0
‘ 模块名: ModHeadingSpacingController
‘ 概要: 文書内の見出しレベル（Heading 1～3）を判定し、前後の余白を
‘ 動的に最適化するプロフェッショナル向けレイアウトツール
‘ =================================================================こ
Public Sub OptimizeHeadingSpacing()
Dim startTime As Double
startTime = Timer
‘ 1. パフォーマンスと安定性のための環境最適化
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
.Calculation = wdCalculationManual
End With
On Error GoTo ErrorHandler
Dim doc As Document
Set doc = ActiveDocument
‘ 2. 見出し余白設定の定義 (Pt単位)
‘ ※プロジェクトの要件に応じてこの数値をチューニングしてください
Dim spConfig(1 To 3, 0 To 1) As Single
‘ Heading 1: [0] = 前の間隔(SpaceBefore), [1] = 後の間隔(SpaceAfter)
spConfig(1, 0) = 24#: spConfig(1, 1) = 6#
‘ Heading 2
spConfig(2, 0) = 18#: spConfig(2, 1) = 4#
‘ Heading 3
spConfig(3, 0) = 12#: spConfig(3, 1) = 2#
Dim para As Paragraph
Dim targetStyleName As String
Dim affectedCount As Long
affectedCount = 0
‘ 3. ドキュメント全体の段落を高速イテレーション
‘ ※巨大文書を考慮し、Paragraphsコレクションを一括走査
Dim pCount As Long
pCount = doc.Paragraphs.Count
Dim i As Long
For i = 1 To pCount
Set para = doc.Paragraphs(i)
‘ 組み込みスタイル名またはローカライズされたスタイル名に対応するため、
‘ Style.NameLocal を判定基準に使用する
If Not para.Style Is Nothing Then
targetStyleName = para.Style.NameLocal
‘ 見出しレベルに応じた分岐処理
Select Case targetStyleName
Case “見出し 1”, “Heading 1”
Call ApplySpacing(para, spConfig(1, 0), spConfig(1, 1))
affectedCount = affectedCount + 1
Case “見出し 2”, “Heading 2”
Call ApplySpacing(para, spConfig(2, 0), spConfig(2, 1))
affectedCount = affectedCount + 1
Case “見出し 3”, “Heading 3”
Call ApplySpacing(para, spConfig(3, 0), spConfig(3, 1))
affectedCount = affectedCount + 1
Case Else
‘ その他のスタイルはスキップ（必要に応じて拡張可能）
End Select
End If
Next i
‘ 4. 正常終了処理
MsgBox “レイアウトの最適化が完了しました。” & vbCrLf & _
“処理対象見出し数: ” & affectedCount & ” 箇所” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, _
vbInformation, “自動レイアウトツール”
CleanUp:
‘ 5. 環境の確実な復元（最重要）
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
.Calculation = wdCalculationAutomatic
End With
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, _
vbCritical, “致命的エラー”
Resume CleanUp
End Sub
‘ =================================================================
‘ 内部プロシージャ: 段落への余白適用と「次の段落と離さない」制御
‘ =================================================================
Private Sub ApplySpacing(ByRef targetPara As Paragraph, ByVal spaceBefore As Single, ByVal spaceAfter As Single)
With targetPara.ParagraphFormat
.SpaceBefore = spaceBefore
.SpaceAfter = spaceAfter
‘ プロフェッショナルな技：見出しがページの最下部に孤立するのを防ぐため、
C’ 「次の段落と同一ページに表示」 (KeepWithNext) を強制付与する
.KeepWithNext = True
End With
End Sub
—
4. コードの深掘り：プロが仕込んだ3つの技術的ポイント
1. `NameLocal` による言語依存の回避
Wordのスタイル名は、Officeのインストール言語（日本語版なら「見出し 1」、英語版なら「Heading 1」）によって文字列が変化する。実務においてグローバル展開されるテンプレートを扱う場合、`Select Case` で両方の文字列を網羅するか、スタイルID（`wdStyleHeading1` 等）を直接比較する設計にすべきである。今回は可読性を考慮し代表的なローカライズ名を併記しているが、厳密なシステムでは定数比較へのリファクタリングを推奨する。
2. `KeepWithNext = True` の自動インジェクション
単に余白を調整するだけでなく、見出しとしての品質を担保するため、余白設定と同時に「次の段落と離さない（KeepWithNext）」プロパティを有効化している。これにより、見出しだけがページ下部に残り、本文が次ページに送られるという美的・実務的破綻をコードレベルで根絶する。
3. 完全なクリーンアップ構造（`GoTo CleanUp`）
VBAで最も恐ろしいのは、処理途中でエラーが発生した際に `ScreenUpdating = False` や `Calculation = wdCalculationManual` が解除されず、Wordが操作不能（または数式が自動計算されない状態）になることだ。本コードでは、いかなる例外が発生しようとも必ず `CleanUp` ラベルを通過し、アプリケーションの状態を原状復帰させる堅牢な設計を取り入れている。
—
5. 実務運用における注意点
- スタイル定義自体の変更へのアプローチ
今回のコードは「各段落の直接書式」を効率よく書き換えるアプローチをとっているが、もしドキュメント全体のマスターデザインを強制したい場合は、`doc.Styles(wdStyleHeading1).ParagraphFormat.SpaceBefore` のようにスタイルオブジェクトそのものを書き換える設計に変更する方がスマートである。プロジェクトの要件（個別上書きを許容するか、スタイルで一元管理するか）に合わせて選択してほしい。
- データベース・外部連携への拡張
もしこのマクロを「社内ポータルから取得したJSON設定値やDBのレイアウト定義に基づいて動的にマージンを変える仕組み」に拡張する場合、上記の `spConfig` 配列部分を外部APIや設定ファイル（INI/JSON）からの読み込みロジックに置き換えればよい。
—
総括
Word VBAによるドキュメント自動化は、単なる「手作業の代替」ではない。文書の品質を一定のアルゴリズムによって担保し、人間がクリエイティブな業務に集中するための「エンジニアリング」である。
今回提供した動的スペーシング制御ロジックをあなたの開発環境に組み込み、煩雑なレイアウト調整地獄から完全に脱却してほしい。技術の力で、文書作成のワークフローに美しさとスピードをもたらそう。
