Word VBAを掌握せよ：ミリ単位のレイアウト制御とLineSpacingの深淵
帳票開発において「Wordは信用できない」と嘆くエンジニアは多い。しかし、それはWordが悪いのではない。Wordという巨大なオブジェクトモデルを、表面的なAPIの叩き方だけで制御しようとする傲慢さが、レイアウト崩壊の真因だ。
今日は、Word VBAにおける「行間制御」という、最も繊細で、かつ最も事故が起きやすい領域を解剖する。
1. `LineSpacingRule` の罠を直視せよ
Wordの行間設定は、GUI上では簡単に見えるが、VBAで触れると途端に牙を剥く。特に `wdLineSpaceExactly`（固定値）と `wdLineSpaceAtLeast`（最小値）の挙動の違いを理解していないエンジニアが多すぎる。
ここで重要なのは、「ポイント(pt)」と「ミリ(mm)」の変換誤差をいかに処理するかである。Wordの内部単位はポイントだが、帳票設計は往々にしてミリで行われる。
‘ 1mm = 2.83464566929134 pt
‘ この定数をハードコードするのではなく、定数として管理し、計算の基軸とする
Private Const PT_PER_MM As Double = 2.83464566929134
Public Sub SetStrictLineSpacing(ByRef targetRange As Range, ByVal mmValue As Double)
‘ メモリ最適化：不要なプロパティアクセスを最小化するため、Withを使用
With targetRange.ParagraphFormat
.LineSpacingRule = wdLineSpaceExactly
‘ ミリをポイントに変換して厳密に指定
.LineSpacing = mmValue PT_PER_MM
End With
End Sub
2. 環境依存の崩壊を防ぐ：スタイルと直接書式の優先順位
シニアエンジニアであれば常識だが、Wordは「スタイル」と「直接書式」の二重構造でレイアウトを決定する。VBAで段落の行間をいじる際、最もやってはいけないのが、スタイル設定を無視して直接書式を上書きし続けることだ。
これが重なると、ドキュメントの肥大化とメモリリークを誘発し、最終的に「開くだけでフリーズする帳票」が出来上がる。
極限の知見：
必ず `Range` オブジェクトを限定し、可能であれば `Style` の更新を介して適用せよ。直接書式を適用する場合は、プロセスの最後に必ず `ParagraphFormat.Reset` 等を用いて、不要なキャッシュをクリアする意識が必要だ。
3. Windows APIによる「単位系」の補正
厳格な帳票において、プリンタドライバやディスプレイの解像度（DPI）に左右される「揺らぎ」を許容してはならない。もし、より厳密な描画制御が必要な場合、VBAから `GetDeviceCaps` APIを呼び出し、現在のデバイスコンテキストが保持する論理解像度を直接取得する手法も検討すべきだ。
‘ User32.dllを利用して論理インチあたりのドット数を取得する例
If VBA7 Then
Private Declare PtrSafe Function GetDeviceCaps Lib “gdi32” (ByVal hdc As LongPtr, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function GetDC Lib “user32” (ByVal hwnd As LongPtr) As LongPtr
Else
Private Declare Function GetDeviceCaps Lib “gdi32” (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function GetDC Lib “user32” (ByVal hwnd As Long) As Long
End If
‘ このようなAPI連携を行うことで、環境依存の「行間ズレ」を論理的に排除することが可能となる
4. パフォーマンスを殺さないために：オブジェクト解放の掟
VBAのガーベジコレクションは、C#やJavaのように優秀ではない。ループ内で `Paragraphs` コレクションを舐めるようなコードは、WordのCOMポインタを枯渇させる。
- Rangeの再利用: 毎回 `ActiveDocument.Paragraphs(i).Range` を呼ぶな。一度変数に格納し、そのオブジェクトを使い回せ。
- 画面更新の停止: `Application.ScreenUpdating = False` は必須。だが、これを適用したままエラーで終了するとWordが死ぬ。必ず `Err` ハンドラ内で `True` に戻す「安全装置」を実装せよ。
総括：Word VBAは「儀式」である
Word VBAでレイアウトを制御するということは、単にプロパティを代入することではない。Wordが裏側でどのような計算を行い、どのようなキャッシュを生成しているかを想像することだ。
行間をミリ単位で指定した瞬間、君のコードはただのスクリプトから、堅牢な帳票エンジンへと進化する。レガシーだからと敬遠せず、Wordという巨大なモンスターを制御下に置く快感を楽しんでほしい。
何か疑問があれば聞こう。ただし、初歩的なエラー処理については自分で調べてくること。我々の世界に「答えだけを求める怠慢」は不要だ。
