段落の余白を「ミリ単位」で完全統御する：Word VBAによる文書レイアウトのハードコード術
Wordの文書レイアウトにおいて、最も不毛な不毛地帯はどこか。それは「Enterキーの連打による空行の挿入」と「感覚的な行間調整」である。
社内規定や提出フォーマットで「段落間を厳密に6mmにしろ」「行間は1.2行、段落後を3ポイント（約1.06mm）に統一せよ」と命じられたとき、手動でマウスを動かしている時点でエンジニアとしての敗北が確定する。WordのGUIは、厳密なエンジニアリングを行うにはあまりにもファジーすぎるからだ。
今回は、Word VBAを用いて、段落の前後余白（`SpaceBefore` および `SpaceAfter`）をミリ単位で完全に掌握し、文書全体のレイアウトを極限まで自動化する実践的コードとアーキテクチャを解説する。
—
1. Wordにおける「ポイント」と「ミリメートル」の厳密な関係
Wordの内部エンジンは、長年の歴史的経緯から、長さを「ポイント（pt）」を基準に保持している。1ポイントは正確には $1/72$ インチであり、これをミリメートルに換算すると以下の式が成り立つ。
$$\text{ミリメートル} = \text{ポイント} \times \frac{25.4}{72} \approx \text{ポイント} \times 0.352778$$
逆に言えば、「社内規定の〇ミリ」をWordに正確に理解させるためには、ミリメートルをポイント値に逆算（あるいはその逆）して渡す必要がある。
GUI上では「行（lines）」や「ミリ（mm）」を選択できるが、VBAのオブジェクトモデル（`ParagraphFormat`）が受け付けるのは、基本的に「ポイント（`Single`型）」の数値、または「行数」である。ここを曖昧にしているから、「なぜか環境によってレイアウトがズレる」というバグが生じるのだ。
—
2. 【実装コード】ミリ単位で段落余白を統御するプロフェッショナル・マクロ
以下のコードは、アクティブ文書内の全段落に対し、「段落前：0mm」「段落後：4.5mm（約12.76pt）」といった厳密な数値適用を行う実用スクリプトである。
オブジェクトの解放（メモリ最適化）と、画面描画の凍結によるパフォーマンス最大化を施した、現場でそのまま使えるプロダクションコードだ。
Option Explicit
‘ ==============================================================================
‘ 処理名: SetParagraphMarginsInMillimeters
‘ 概要: 文書全体の段落前後の余白をミリ単位で厳密に指定し、一括適用する
‘ アーキテクトノート: 画面描画を停止し、COMオブジェクトのライフサイクルを
‘ 完全に管理することで、数千ページの巨大文書でも瞬時に処理する。
‘ ==============================================================================
Public Sub SetParagraphMarginsInMillimeters()
‘ 定数定義：ミリメートルをWord内部単位（ポイント）に変換する係数
‘ 1 inch = 25.4 mm, 1 inch = 72 pt -> 72 / 25.4 = 2.83464567 pt/mm
Const MM_TO_POINTS As Double = 2.83464567
‘ 適用したい余白（ミリ指定）
Const TARGET_SPACE_BEFORE_MM As Double = 0# ‘ 段落前: 0 mm
Const TARGET_SPACE_AFTER_MM As Double = 4.5 ‘ 段落後: 4.5 mm (約12.76 pt)
Dim targetDoc As Document
Set targetDoc = ActiveDocument
‘ パフォーマンス最適化：画面描画とバックグラウンド再計算を停止
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
.AutomationSecurity = msoAutomationSecurityForceDisable
End With
Dim startTime As Double
startTime = Timer
On Error GoTo ErrorHandler
Dim targetParas As Paragraphs
Set targetParas = targetDoc.Paragraphs
Dim totalParas As Long
totalParas = targetParas.Count
Dim i As Long
Dim p As Paragraph
Dim pFormat As ParagraphFormat
‘ ループ処理
‘ ※大規模文書では For Each よりもインデックスアクセスが安全な場合があるが、
‘ オブジェクトのキャッシュを意識して簡潔に記述する。
For i = 1 To totalParas
Set p = targetParas(i)
Set pFormat = p.Format
With pFormat
‘ 行単位での自動調整を無効化し、ポイント（ミリ換算）を直接指定
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
‘ ミリをポイントに換算して代入
.SpaceBefore = TARGET_SPACE_BEFORE_MM MM_TO_POINTS
.SpaceAfter = TARGET_SPACE_AFTER_MM MM_TO_POINTS
End With
‘ ループごとのメモリ解放（参照リーク防止）
Set pFormat = Nothing
Set p = Nothing
Next i
‘ 処理時間の計測とログ出力（デバッグ用）
Debug.Print “レイアウト調整完了: ” & totalParas & ” 段落 / 処理時間: ” & Format(Timer – startTime, “0.00秒”)
CleanUp:
‘ 描画設定の復元
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With
‘ 参照オブジェクトの完全解放
Set targetParas = Nothing
Set targetDoc = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub
—
3. チーフアーキテクトが解説するコードの急所
このコードが「初心者向け」でありながら、シニアの現場でも耐えうる理由は以下の3点にある。
① `ScreenUpdating = False` による速度差の劇的化
Word VBAで数千段落ある文書をループさせると、GUIが逐次再描画を行おうとするため、処理が極端に遅くなる（いわゆるフリーズ状態）。`ScreenUpdating` を落とすことで、メモリ上のデータ構造のみを高速に書き換えることが可能になる。
② 自動調整フラグ（`SpaceBeforeAuto`）の明示的無効化
Wordには、段落の前後幅を「グリッド線に合わせる」などの理由で勝手に自動調整する機能（`SpaceBeforeAuto` / `SpaceAfterAuto`）が存在これが有効なままだと、コードで設定したミリ数が勝手に上書きされる。「数値を死守したければ、自動フラグは必ず `False` に倒せ」。これはWord自動化における鉄則である。
③ COMオブジェクトのライフサイクル管理
VBAはガベージコレクションがブラックボックス化している。特にループ内で `Paragraph` や `ParagraphFormat` を取得し続けると、COMの参照カウンタが溢れ、メモリリークやWordの強制終了を引き起こす。
コード内で `Set pFormat = Nothing` と明示的に解放しているのは、長大文書を処理する際のクラッシュを防ぐための防衛策である。
—
4. レガシー環境・社内システム連携における留意点
もしこのVBAを、バックエンドのWindowsサービスや、Excel等からの外部連携（OLEオートメーション）から呼び出す場合、さらに一段階上の配慮が必要となる。
- Normal.dotm への汚染を防ぐ
文書固有のスタイルではなく、`ActiveDocument.Paragraphs` を操作しているため、Wordの標準テンプレート（`Normal.dotm`）を汚染するリスクは低い。しかし、もし「スタイル定義そのもの」を書き換えたい場合は、`Document.Styles` コレクションを操作すべきであり、生データを直接叩くべきではない。
- フォント依存の罠
行間を厳密にミリ単位で制御しても、ユーザーのPCに指定フォント（例: 游ゴシック等）がインストールされておらず、フォントフォールバックが発生すると、行の高さが微妙に変動し、結果として全体のページレイアウトが崩れることがある。真に厳密なレイアウトを求める場合、PDF出力までをVBA内で完結させるか、フォントメトリクスまで考慮に入れた設計が不可欠となる。
総括
Word VBAにおけるレイアウト制御は、単なる「マクロの記録の延長」ではない。数値の背後にある数学的関係（ポイントとミリの換算）、Word特有の自動調整機能の排除、そしてオブジェクトのライフサイクル管理。これらを理解して初めて、手作業の地獄から解放される。
社内規定の改定に怯える日々は、今日で終わりだ。このコードをあなたの武器库に加え、ドキュメント生成の完全自動化を達成してほしい。
