Word VBAを掌握する極限の知見：段落余白のミリ単位・厳密制御と堅牢な一括設計
開発現場でよくある悲劇の筆頭が、「社内規定のフォーマットに合わせたはずが、印刷やPDF化でレイアウトが崩れ、上長から差し戻しをくらう」というものだ。
特に、段落の前後の余白（`SpaceBefore` / `SpaceAfter`）や行間（`LineSpacing`）を、感覚的に「Enterキーの連打」や「ツールバーの目視調整」で片付けようとするアプローチは、プロのエンジニアリングにおいて百害あって一利なしである。
Wordのレイアウトエンジンは、一見シンプルに見えて、その内部ではフォントメトリクスやスタイル継承が複雑に絡み合うブラックボックスだ。これをコードで完全に掌握するためには、Word VBAのオブジェクトモデル、特に「ポイントとミリの換算ロジック」と「Selectionに頼らない一括走査の作法」を完全に理解していなければならない。
今回は、社内規定の厳格なレイアウト要件をミリ単位で満たし、かつ大規模文書でも秒速で動作するプロダクションクオリティのコードを伝授する。
—
なぜ「行数」や「Enterキー」での調整は地獄を生むのか？
多くの非エンジニアや初学者は、段落間の空行を空けるために無駄な空段落（`^p`）を入れたり、段落ごとの書式設定をバラバラに変更したりする。これの何が問題か？
1. 環境依存の崩壊: Wordはインストールされているフォントやプリンタードライバの解像度によって、描画の微調整を行う。無駄な空段落は、環境が変わった瞬間にレイアウトを破壊する。
2. 保守性の欠如: 後からスタイルの修正やページ数の調整が入ったとき、手動やアドホックなコードで入れた余白は一括置換が効かない。
3. APIのパフォーマンス劣化: `Selection`オブジェクトを介して画面描画を伴う操作を繰り返すと、VBAの実行速度は劇的に低下する。数百ページの文書であれば数分かかることもある。
プロフェッショナルな自動化エンジニアであれば、「段落プロパティ（`ParagraphFormat`）」を直接叩き、ミリ単位の計算ロジックをコードに内包させるべきだ。
—
核心：Word VBAにおけるミリとポイントの厳密な関係
Wordの内部単位（VBAの数値引数）の基本単位は ポイント（pt） である。1ポイントは $\frac{1}{72}$ インチであり、ミリメートル（mm）とは単位が異なる。
社内規定は通常「段落の前：6mm、段落の後：3mm」といったようにミリ単位で指定される。この要件をVBAで正確にハンドリングするためには、以下の換算係数をマスターする必要がある。
$$1 \text{ インチ} = 25.4 \text{ ミリ} = 72 \text{ ポイント}$$
$$1 \text{ ミリ} = \frac{72}{25.4} \text{ ポイント} \approx 2.83464567 \text{ ポイント}$$
つまり、ミリ単位で指定された数値をWordが理解できるポイントに変換するには、「指定ミリ数 × 72 / 25.4」 の計算を挟めばよい。この定数化こそが、バグを生まない堅牢な設計の第一歩だ。
—
【プロダクションコード】社内規定完全準拠・段落余白一括設定マクロ
以下のコードは、アクティブ文書内のすべての標準段落（または指定スタイル）に対し、段落前後の余白をミリ単位で厳密に適用し、かつ大規模文書でも瞬時に処理が終わるよう最適化した実用コードである。
Option Explicit
‘ ==============================================================================
‘ 処理名: 厳格なミリ単位による段落余白一括設定モジュール
‘ 概要: 社内規定のフォーマット要件に基づき、段落の前後余白をミリ単位で
‘ 正確に計算・適用する。Selectionを排除し、メモリ上で高速処理を行う。
‘ ==============================================================================
Public Sub ApplyStandardParagraphSpacing()
‘ 1. 定数定義 (保守性を高めるため、数値はここで一元管理する)
Const MM_TO_POINTS As Double = 72.0 / 25.4 ‘ ミリからポイントへの換算係数
Const TARGET_STYLE_NAME As String = “標準” ‘ 対象とするスタイル名（必要に応じて変更）
Const SPBEFORE_MM As Double = 6.0 ‘ 段落前の余白 (mm)
Const SPAFTER_MM As Double = 3.0 ‘ 段落後の余白 (mm)
‘ 2. オブジェクト変数の宣言 (メモリリークと予期せぬ挙動を防ぐための強い型付け)
Dim targetDoc As Document
Dim targetPara As Paragraph
Dim targetStyle As Style
Dim countApplied As Long
‘ 3. エラーハンドリングの構築
On Error GoTo ErrorHandler
‘ 画面描画と警告を抑制し、処理速度を限界まで引き上げる
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
End With
Set targetDoc = ActiveDocument
‘ 文書保護や読み取り専用のチェック
If targetDoc.ProtectionType <> wdNoProtection Then
MsgBox “この文書は保護されているため、書式を変更できません。”, vbCritical, “エラー”
GoTo Finally
End If
countApplied = 0
‘ 4. 高速イテレーション (For Eachによる段落走査)
‘ Selection.Findを使用せず、Paragraphsコレクションを直接叩くことで爆速化を実現
For Each targetPara In targetDoc.Paragraphs
‘ 必要に応じて特定スタイルのみに絞り込む（全段落一括の場合は条件を外す）
‘ ※組み込みスタイルの名前は言語環境に依存するため、英語名（”Normal”等）の判定も考慮する
If targetPara.Style.NameLocal = TARGET_STYLE_NAME Or _
targetPara.Style.NameLocal = “標準” Then
With targetPara.ParagraphFormat
‘ ミリをポイントに換算して代入
.SpaceBefore = SPBEFORE_MM MM_TO_POINTS
.SpaceAfter = SPAFTER_MM MM_TO_POINTS
‘ ついでに行間も1.15倍などに厳密固定したい場合はここで指定可能
‘ .LineSpacingRule = wdLineSpaceMultiple
‘ .LineSpacing = LinesToPoints(1.15)
End With
countApplied = countApplied + 1
End If
Next targetPara
‘ 5. 正常終了処理
Application.ScreenUpdating = True
MsgBox “レイアウト調整が完了しました。” & vbCrLf & _
“対象段落数: ” & countApplied & ” 件”, vbInformation, “完了”
GoTo Finally
ErrorHandler:
‘ 予期せぬエラーのキャッチ
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“内容: ” & Err.Description, vbCritical, “システムエラー”
Finally:
‘ リソースの解放
Set targetPara = Nothing
Set targetDoc = Nothing
‘ 描画・警告設定の復元
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With
End Sub
—
レイアウト自動化の肝は、「手動操作のVBA移植」ではなく「オブジェクトの直接操作」にある。`Selection`オブジェクトを排除し、`ParagraphFormat`に対して直接計算値を代入することで、処理速度と堅牢性は飛躍的に向上する。
社内規定の改定やフォーマットの統一に追われるプロジェクトにおいて、このコードはあなたの強力な武器となるはずだ。ぜひ、実際の業務自動化パイプラインに組み込んでその圧倒的なパフォーマンスを体感してほしい。
