Word VBAを掌握する極限の知見：ミリ単位で段落インデントを支配する技術
Wordの自動化において、最もエンジニアのフラストレーションを溜め込ませる領域、それが「段落書式」と「インデント」の制御である。
GUIであればマウスドラッグ一発で終わる「左インデント」や「ぶら下げインデント」の設定も、VBAのオブジェクトモデルを正しく理解していなければ、予期せぬレイアウト崩壊を引き起こす。特に、何世代にもわたって継承されてきたレガシーな文書テンプレートや、外部システムから吐き出されたXML/CSVを流し込む自動化パイプラインにおいて、インデントのズレは致命的な欠陥となる。
今回は、シニアエンジニアおよび社内システム管理者のために、Wordの`Paragraph`オブジェクトにおけるインデントの物理構造を解剖し、ミリ単位で完璧に制御するための極限の知見を公開する。
—
1. Wordインデントモデルの深層：ポイント（Point）とミリ（Millimeter）の厳密な換算
Wordの内部アーキテクチャにおいて、すべての長さは「ポイント（Point）」という絶対単位で管理されている。1インチ＝72ポイントであり、日本のビジネス文書の標準である「ミリメートル（mm）」とは直接互換性がない。
安易に `Paragraph.LeftIndent = 10` などと記述すると、それは10ポイント（約3.5mm）を意味し、意図したレイアウトとは大きく乖離する。ミリ単位で正確にインデントを制御するためには、VBAの組み込み関数である `CentimetersToPoints` または `InchesToPoints` を使用し、明示的に型変換を行う必要がある。
さらに、プロパティの仕様を混同してはならない。
- `LeftIndent`: 段落全体の左端からのオフセット（左インデント）
- `FirstLineIndent`: 1行目の相対的なオフセット。正の値を指定すれば「初行インデント」、負の値を指定すれば「ぶら下げインデント」として機能する。
この「`FirstLineIndent` に負の値を入れる」という仕様こそが、ぶら下げインデントをプログラムから制御する際の最大のキモである。
—
2. 【実装コード】ミリ単位で「左インデント」と「ぶら下げインデント」を精密制御する
以下のコードは、選択範囲または指定された文書内の特定のスタイルを持つ段落に対し、ミリ単位で正確なインデントを適用する実用的なプロシージャである。
メモリ効率とCOMオブジェクトのライフサイクルを考慮し、不要なオブジェクト変数の生成を抑えつつ、一括処理（Bulk Processing）によるパフォーマンスの最大化を図っている。
Option Explicit
Public Sub ApplyPreciseIndentation()
‘ =========================================================================
‘ 処理名: ApplyPreciseIndentation
‘ 概要: 指定された段落の「左インデント」と「ぶら下げインデント」を
‘ ミリ単位で正確に設定する。
‘ アーキテクチャ上の注意:
‘ WordのCOMオブジェクトモデルは遅延バインディングを避けて型を明示し、
‘ 画面描画（ScreenUpdating）を抑制してパフォーマンスを限界まで高める。
‘ =========================================================================
‘ 1. パフォーマンス最適化の定石：描画と警告の抑制
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
Dim targetDoc As Document
Set targetDoc = ActiveDocument
Dim targetPara As Paragraph
‘ 設定値の定義（単位：ミリメートル）
Dim leftIndentMm As Single
Dim hangingIndentMm As Single
leftIndentMm = 10# ‘ 左インデント: 10.0 mm
hangingIndentMm = 5# ‘ ぶら下げ幅: 5.0 mm （※内部で負の値に変換する）
On Error GoTo ErrorHandler
‘ 2. 文書内の全段落を走査（必要に応じて Selection や Range に変更可能）
For Each targetPara In targetDoc.Paragraphs
‘ 冗長な処理を防ぐため、特定のスタイル（例: “標準” またはリスト系）に限定することも可能
‘ If targetPara.Style = “標準” Then
With targetPara
‘ 左インデントの設定（ミリをポイントに変換）
.LeftIndent = CentimetersToPoints(leftIndentMm / 10#)
‘ ぶら下げインデントの設定
‘ ※「ぶら下げ」は左インデントの位置からさらに内側（左方向）に戻るため、
‘ FirstLineIndent に「負の値」を指定するのがWord VBAの絶対的な鉄則。
.FirstLineIndent = CentimetersToPoints(-(hangingIndentMm / 10#))
End With
‘ End If
Next targetPara
CleanUp:
‘ 3. オブジェクトの明示的解放と描画の復元
Set targetPara = Nothing
Set targetDoc = Nothing
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With
Exit Sub
ErrorHandler:
‘ 4. 堅牢なエラーハンドリング
MsgBox “インデント設定中に予期せぬエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “System Error”
Resume CleanUp
End Sub
—
3. チーフアーキテクトが教える：実運用における「3つの罠」と回避策
大規模な文書自動生成システムや、数百ページに及ぶ社内マニュアルのバッチ処理において、上記のコードをそのまま投入しても、環境次第では予期せぬ不具合を踏み抜くことがある。現場を知るエンジニアとして、以下の3点を押さえておかなければならない。
① スタイル定義（Style Definition）との競合
Wordには「段落スタイル」という強力な継承メカニズムが存在する。もし対象の段落が「自動更新」が有効なスタイルに紐づいている場合、VBAで個別に `LeftIndent` を上書きしても、テンプレート側の定義によって後から書き換えられるリスクがある。
- 対策: 文書全体の書式を強制統一する場合は、個別の段落をイテレートするのではなく、`Document.Styles` コレクションから該当スタイルのインデントプロパティを直接書き換えるアプローチをとるべきである。
② 箇条書き・段落番号（ListFormat）との干渉
Wordのオートマティックな箇条書きや段落番号が適用されている段落に対して `FirstLineIndent` を操作すると、タブ位置やマーカーの位置が崩壊することがある。
- 対策: `targetPara.Range.ListFormat.ListType` を判定し、リスト構造が含まれている場合は、インデントではなく `ListTemplate` のインデントプロパティを操作する分岐ロジックを実装すること。
③ COM解放とメモリリークの防止
VBAはガベージコレクタを持たない。特に外部システム（C#.NETやPythonなど）からCOM経由でWordインスタンスを操作する場合、`Paragraphs` のような巨大なコレクションをループ処理した後に参照を残したままでいると、WinWord.exe のプロセスがメモリ上に残留し、サーバーサイドでの自動化バッチがハングアップする原因となる。
- 対策: ループ内で生成される一時オブジェクトは最小限にし、プロシージャ終了時には必ず `Set` 変数を `Nothing` で明示的に解放する。
—
総括
Word VBAにおけるインデント制御は、単なる「見た目の調整」ではない。それは、文書構造の論理的整合性を保ち、システム間のデータ連携を破綻させないための「エンジニアリング」である。
`CentimetersToPoints` による厳密な単位変換と、`FirstLineIndent` の負値制御。この2つの極意を掌握した者だけが、Word自動化の迷宮を完全に制圧することができる。次のシステム開発では、場当たり的なマクロではなく、アーキテクチャとして洗練されたコードベースを構築してほしい。
