Word VBAを掌握する：段落の「行間」を固定値（pt）制御し、レイアウト崩れを永久に防ぐ極限の設計
Wordを用いたドキュメント自動生成や帳票出力のシステム開発において、開発者を最も悩ませるのが「予期せぬレイアウト崩れ」だ。
「ローカル環境では1ページに収まっていた文書が、本番環境で実行すると2ページ目に1行だけはみ出してしまう」
「フォントサイズをわずかに変更した瞬間、行間が異常に広がり、デザインが崩壊した」
これらのトラブルの元凶は、Wordのデフォルト設定である行間「1行」や「最小値」という、Wordの“気を利かせた自動伸縮挙動”にある。
本稿では、Word VBAを駆使して段落の行間を「固定値（pt）」へと正確に強制変換し、どのような環境変化にも動じない堅牢なドキュメント・レイアウトを構築するための設計思想と、プロダクション環境で即座に使える極限まで洗練されたVBAコードを伝授する。
—
1. なぜ「1行」や「最小値」ではダメなのか？ 行間メカニズムの真実
Wordの段落書式において、行間の設定（`LineSpacingRule`）にはいくつかの選択肢がある。まずはその挙動の本質を理解してほしい。
| 設定値（VBA列挙型） | 挙動の真実 | レイアウトへの影響 |
| :— | :— | :— |
| `wdLineSpaceSingle` (1行) | フォントサイズやフォントの種類（MS明朝、游明朝など）に応じて、Wordが自動で最適な（と判断した）行間を算出する。 | 最悪。 フォントを変更しただけで行間が勝手に広がり、ページ溢れの原因になる。 |
| `wdLineSpaceAtLeast` (最小値) | 指定したポイント数を「最低ライン」とし、フォントサイズが大きくなると自動的に行間を広げる。 | フォントサイズ変更に対して一見安全に見えるが、想定外の行送りが発生し、下部のレイアウトが押し出される。 |
| `wdLineSpaceExactly` (固定値) | フォントサイズに関わらず、指定したポイント数（pt）で完全に固定して行を配置する。 | 最適。 どんなフォントが来ようとも、行の物理的な位置がミリ単位で固定されるため、レイアウトが絶対に崩れない。 |
プロとしての設計思想：すべてをコントロール下に置け
帳票や申請書、契約書といった「1ページ内に美しく収める必要がある文書」を自動生成する場合、Wordにレイアウトの裁量を与えてはならない。
我々エンジニアが1pt単位で完璧にコントロールすべきである。そのためには、行間ルールを `wdLineSpaceExactly`（固定値） に統一するのが絶対のセオリーだ。
—
2. 堅牢な設計・実装の要点
Word VBAでドキュメント全体、あるいは特定の領域に対して行間を設定する際、単に「動けばいい」コードを書いてはいけない。実務に耐えうるツールには以下の設計が求められる。
① スタイル（Style）へのアプローチを優先する
文書内の全段落を `For Each` でループ処理して直接書式（直接フォーマット）を書き換えるのは、パフォーマンス的にもメンテナンス的にもアンチパターンだ。
基本は、文書の基盤となる 「標準（Normal）」スタイルや、自作のカスタムスタイルのプロパティを変更する アプローチを取る。これにより、ドキュメントの肥大化を防ぎ、一瞬で処理を完了させることができる。
② 直接書式を適用する場合は「範囲（Range）」を限定する
ユーザーが選択した範囲や、特定のテーブル内など、限定された領域にのみ適用する場合は、不要なオブジェクトの生成を抑え、ライフサイクルを厳密に管理する。
③ 画面更新の停止とUndo（元に戻す）のハンドリング
数百ページに及ぶ文書に対して処理を行う場合、画面描画を停止（`ScreenUpdating = False`）しなければ、処理速度は著しく低下する。また、万が一エラーが発生した際、処理途中の不安定な状態で文書を汚さないよう、エラーハンドリングを徹底する。
—
3. 極限まで洗練されたプロダクションコード
以下に、実務でそのまま使用できる、堅牢で保守性の高いVBAソースコードを示す。
このコードは、指定されたターゲット（文書全体、スタイル、または選択範囲）に対して、行間を正確に「固定値」へと変換する汎用性の高い設計になっている。
Option Explicit
”’
”’
”’ 対象とするWord.Rangeオブジェクト（Nothingの場合はアクティブドキュメント全体）
”’ 固定値として設定するポイント数（例: 18pt = 18）
”’ Trueの場合、直接書式ではなく「標準」スタイルの行間を変更する
Public Sub SetParagraphLineSpacingExactly( _
Optional ByVal targetRange As Word.Range = Nothing, _
Optional ByVal lineSpacingPt As Single = 18#, _
Optional ByVal applyToStyleOnly As Boolean = False)
‘ 1. アプリケーションの最適化（画面更新の停止）
Dim originalScreenUpdating As Boolean
originalScreenUpdating = Application.ScreenUpdating
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
‘ 2. 対象ドキュメントの確定
Dim doc As Word.Document
Set doc = ActiveDocument
If doc Is Nothing Then
Err.Raise vbObjectError + 1001, “SetParagraphLineSpacingExactly”, “アクティブなドキュメントが開かれていません。”
End If
‘ 3. スタイルに対する一括設定（推奨ルート）
If applyToStyleOnly Then
Dim targetStyle As Word.Style
On Error Resume Next
Set targetStyle = doc.Styles(wdStyleNormal)
On Error GoTo ErrorHandler
If Not targetStyle Is Nothing Then
With targetStyle.ParagraphFormat
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = lineSpacingPt
End With
End If
GoTo NormalExit
End If
‘ 4. 特定範囲（Range）に対する直接設定ルート
Dim processRange As Word.Range
If targetRange Is Nothing Then
‘ 引数が省略された場合はドキュメント全体を対象とする
Set processRange = doc.Content
Else
Set processRange = targetRange
End If
‘ 5. 安全な段落書式の一括適用
‘ ※Paragraphsをループするのではなく、Range.ParagraphFormatに対して一括で適用することで、
‘ 数千段落ある巨大な文書でも一瞬で処理が完了する（パフォーマンス最適化）。
With processRange.ParagraphFormat
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = lineSpacingPt
End With
NormalExit:
‘ 6. 環境の復元
Application.ScreenUpdating = originalScreenUpdating
Exit Sub
ErrorHandler:
‘ 異常発生時のハンドリング
Application.ScreenUpdating = originalScreenUpdating
MsgBox “行間設定中にエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “システムエラー”
End Sub
”’
”’
Public Sub ExecuteDefaultLineSpacingAlignment()
‘ 例：文書全体の標準行間を「18pt」に固定する
‘ 一般的な10.5ptのフォントに対して、18ptの固定値は非常に美しい視認性を提供する。
SetParagraphLineSpacingExactly _
targetRange:=Nothing, _
lineSpacingPt:=18#, _
applyToStyleOnly:=False
MsgBox “ドキュメント全体の行間を「18pt（固定値）」に整列しました。”, vbInformation, “処理完了”
End Sub
このコードが優れている理由（アーキテクチャの解説）
1. `For Each` ループを徹底的に排除
多くのVBA解説サイトでは、段落を一つずつループ処理するコードが紹介されているが、それは数万文字を超える実業務のドキュメントにおいて致命的なパフォーマンス低下（フリーズ）を引き起こす。
本コードでは `Range.ParagraphFormat` に対して直接プロパティを設定している。Wordオブジェクトモデルの仕様上、`Range`配下の全段落に内部のC++層で一括適用されるため、ミリ秒単位で処理が終了する。
2. `ScreenUpdating` の徹底管理
処理開始時に現在の画面更新状態を保持し、エラーが発生しても必ず元の状態に復元する（`On Error GoTo ErrorHandler` での担保）。ユーザーにストレスを与えないプロフェッショナルなUI設計だ。
3. 引数による高い再利用性
単一のマクロで完結させず、外部からの呼び出し（引数の受け渡し）に対応しているため、アドイン化や他のシステム（AccessやExcel）からのオートメーション接続時にもそのまま移植できる。
—
4. ファイル・データベース連携時における注意点
もしあなたが、ExcelやAccess、あるいは外部の基幹システム（SQL Server等）からデータを引っ張ってきてWord文書を自動生成する仕組みを作っているなら、以下の点に深く留意してほしい。
外部データの文字数変動に対する脆弱性
「固定値」の唯一の弱点は、「フォントサイズに対して極端に行間を狭く設定すると、文字が上下に重なって見えなくなる」という点だ。
例えば、行間を `12pt` 固定にしている箇所に、外部データベースから読み込んだタイトル（フォントサイズ `24pt`）を流し込むと、文字の上半分が削れて表示されてしまう。
- 解決策：
動的に流し込むデータのフォントサイズに応じて、行間のポイント数もスケールさせるロジックを組むこと。基本は 「フォントサイズ × 1.5〜1.7」 の値を固定値（pt）として算出・設定するのが、プロのタイポグラフィにおける黄金比である。
‘ スケーリングロジックの例
Dim fontSize As Single
fontSize = targetRange.Font.Size
‘ フォントサイズが取得できない（混在している）場合はデフォルト値を適用
If fontSize = wdUndefined Then fontSize = 10.5
‘ フォントサイズの1.6倍を行間（固定値）として適用
Dim dynamicLineSpacing As Single
dynamicLineSpacing = fontSize 1.6
SetParagraphLineSpacingExactly targetRange, dynamicLineSpacing, False
—
5. まとめ：Wordを「精密なレイアウトエンジン」へと昇華させる
WordはWordプロセッサであり、デフォルトでは「ユーザーが手入力で適当に書いても、それなりに見えるように自動調整する」というお節介な思想で設計されている。
しかし、業務自動化ツールを開発する我々にとって、そのお節介はバグとレイアウト崩れの温床でしかない。
今回紹介した 「行間の固定値（`wdLineSpaceExactly`）指定」 を徹底することで、WordはDTPソフト並みに1ptの狂いもない「精密なレイアウトエンジン」へと変貌する。
コードのコピペにとどまらず、背後にあるオブジェクトモデルの挙動、そしてパフォーマンスを意識した設計思想をぜひあなたのプロジェクトに導入し、ユーザーに「絶対に崩れない美しい成果物」を届けてほしい。
