【Word VBA】固定値インデントは「悪」だ。動的レイアウトによる極限のドキュメント自動生成術
「またインデントがずれている」「見出しの番号が長すぎて、本文の開始位置がガタガタだ」。
自動化ツールを開発していると、必ず突き当たる壁がこれだ。多くのエンジニアは「左インデント：30pt」といった固定値をコードに直書きし、運用後に発生する崩れに頭を抱える。
いいか、プロのコードに「魔法の数字（マジックナンバー）」は存在しない。
今回は、段落の先頭文字数やコンテンツの長さから「ぶら下げインデント」を計算し、Wordエンジンに動的に最適解を計算させる、堅牢な設計手法を伝授する。
—
1. なぜ「固定値インデント」が崩壊を招くのか
Wordのレイアウトエンジンは非常に高度だが、VBAで力技（固定値）を押し付けると、途端に脆弱になる。
- フォントサイズ変更への耐性ゼロ: 基準フォントが変われば、必要なインデント幅も変わる。
- 多言語対応の不可: 日本語の全角と英数字の半角が混在する環境で、固定値は即座にレイアウト破綻を引き起こす。
- メンテナンス性の欠如: 仕様変更のたびにコード内の数値を書き換えるのは、エンジニアとして最も避けるべき作業だ。
我々が目指すべきは、「コンテンツの物理的な幅をWordに計算させ、その結果に基づいてインデントを適用する」アプローチである。
—
2. 実装の設計思想：Widthプロパティを攻略する
Word VBAには `Range.Information(wdHorizontalPositionRelativeToPage)` という強力なメソッドがある。これを使えば、特定の文字列の「現時点での座標」を正確に取得できる。
今回は、以下のロジックを実装する。
1. 対象の段落から「ラベル部分（例：『1. 』など）」を特定。
2. そのラベルの末尾のX座標を算出。
3. そのX座標を `ParagraphFormat.FirstLineIndent` の逆数として適用。
4. 結果、本文の開始位置がラベルの末尾でピタリと揃う。
—
3. プロダクションコード：DynamicIndentApplier
このコードは、ただ動くだけではない。エラーハンドリングとオブジェクト参照のライフサイクルを考慮した、現場レベルのコードだ。
‘ ————————————————————————-
‘ 機能：指定された段落の先頭文字列（ラベル）幅を計測し、ぶら下げインデントを動的調整する
‘ ————————————————————————-
Sub ApplyDynamicHangingIndent(targetPara As Paragraph)
Dim rng As Range
Dim labelEndPos As Single
Dim indentValue As Single
On Error GoTo ErrorHandler
‘ 1. 段落の範囲を取得
Set rng = targetPara.Range
‘ 2. 「ラベル部分（最初の全角スペースまで）」を特定するロジック
‘ ここでは “・” や “1. ” など、任意の区切りを正規表現等で特定することを推奨
‘ 今回は簡略化のため、最初のスペースまでの範囲をラベルとみなす
Dim splitPos As Long
splitPos = InStr(rng.Text, ” “)
If splitPos > 0 Then
‘ ラベル部分の範囲を設定
rng.End = rng.Start + splitPos
‘ 3. ラベル終了位置のX座標（ポイント単位）をWordから取得
‘ wdHorizontalPositionRelativeToPage は絶対的な計算コストを要求するため、
‘ 連続ループ処理時は画面描画オフ（ScreenUpdating = False）が必須
labelEndPos = rng.Information(wdHorizontalPositionRelativeToPage)
‘ 4. 段落書式の調整
With targetPara.Format
.FirstLineIndent = -1 labelEndPos ‘ 1行目を左に戻す
.LeftIndent = labelEndPos ‘ 左端をラベル幅分下げる
End With
End If
Exit Sub
ErrorHandler:
Debug.Print “Error in ApplyDynamicHangingIndent: ” & Err.Description
End Sub
—
4. 運用上の極意：パフォーマンスと堅牢性
画面描画の制御（重要）
`Information` プロパティは、Wordがレイアウト計算を強制的に行うため、非常に重い。数千行あるドキュメントでこれをループさせる場合は、必ず以下の処理でラップすること。
Application.ScreenUpdating = False
‘ … ループ処理 …
Application.ScreenUpdating = True
データベース・外部ファイル連携の注意点
外部のCSVやDBからテキストを流し込む際、「制御文字（改行コードやタブ）」が混入していないかを必ず前処理で検証せよ。特に `Replace(text, vbCr, “”)` 等で、段落内改行が意図せず混入すると、インデント計算がゼロになりレイアウトが崩れる。
保守性を高めるアーキテクチャ
このロジックは「段落書式を直接いじる」のではなく、「スタイル（Style）」を動的に定義して適用する形に拡張すべきだ。
`ActiveDocument.Styles.Add` を利用し、ドキュメント生成時にスタイルをその都度計算して定義すれば、後から「行間」や「フォント」を一括変更する運用にも耐えられる。
—
最後に：エンジニアとしての矜持
「VBAは汚いコードになりがちだ」というのはただの言い訳に過ぎない。
Wordオブジェクトのメモリ構造を理解し、Wordエンジンに何をさせるべきかを正しく指示すれば、VBAはこれほどまでに美しく、強力な武器になる。
次にコードを書くとき、「この数字は、なぜこの値なのか？」と自分に問いかけてほしい。その問いの先に、真に堅牢な自動化エンジニアへの道がある。
健闘を祈る。
