【Word VBA】階層を狂わせるな：アウトラインレベルに応じたインデント自動計算・適用エンジニアリング
開発現場でよくある悲劇だ。数百ページに及ぶ仕様書、あるいは提案書。人間が手作業で「Shift+Alt+方向キー」やルーバーをいじってインデントを調整した結果、何が起きるか。
「レベル2なのに、なぜか左インデントが3文字分ずれている」「箇条書きの階層がガタガタで、PDF化したときに素人感丸出しになる」。
素人は、段落の見た目（フォントサイズやインデント）をその場しのぎのマウス操作で整えたがる。だが、プロの自動化エンジニアが対峙すべき真のターゲットは「構造（OutlineLevel）」と「表現（Indent）」の完全な同期だ。
今回は、Word文書のアウトラインレベルをプログラム側で正確に検出し、階層の深さに応じてインデント幅を数学的に自動計算・適用する、プロダクション品質のVBAモジュールを伝授する。
—
なぜ「その場のインデント調整」は破綻するのか？
実務において、Wordの書式設定をハードコーディング（直打ちや手動設定）することは「技術的負債」の何者でもない。
1. スタイルの継承汚染：標準スタイルや独自のスタイルが入り交じった文書で、`LeftIndent`プロパティを場当たり的にいじると、後からスタイルシートを更新した瞬間にレイアウトが崩壊する。
2. 段落プロパティの重み：Wordの`Paragraphs`コレクションを総当たりで操作する際、適切なオブジェクト参照とスコープ管理を行わないと、数千行の文書で処理が数分単位でフリーズする。
我々が目指すべきは、「構造を正せば、見た目は自動的に従う」というクリーンなアーキテクチャだ。
—
堅牢なインデント自動計算ロジックの設計思想
今回の自動化スクリプトの仕様は以下の通りだ。
- 判定基準: 段落の `OutlineLevel` プロパティを取得する。
- `wdOutlineLevel1` (レベル1) ～ `wdOutlineLevel9` (レベル9)
- ただし、本文（`wdOutlineLevelBodyText`）の場合はインデント適用外、または基本インデントとする。
- 計算式: 階層の深さに比例して、左インデントとぶら下がりインデントを動的に算出する。
- 例：基本インデント幅を 10mm（約 28.35ポイント / 1文字＝10.5pt換算など）とし、`Level 係数` で算出。
- パフォーマンス対策: 画面描画（`ScreenUpdating`）と自動再計算（`Calculate`）を一時的に停止し、メモリ上の操作に特化させる。
—
プロダクションコード：階層連動インデント自動整形エンジン
以下のコードは、エラーハンドリング、オブジェクトのライフサイクル管理、そして実務に耐えうるパフォーマンスチューニングを施した完成形のVBAコードである。
Option Explicit
‘ ==============================================================================
‘ モジュール名: modIndentAutoFormatter
‘ 概要 : アウトラインレベルに基づき、段落のインデントを動的かつ一括で最適化する
‘ 著者 : チーフアーキテクト
==============================================================================
Public Sub ApplyHierarchicalIndents()
Dim startTime As Double
startTime = Timer
‘ 1. パフォーマンス・安定性向上のための環境最適化
With Application
.ScreenUpdating = False
.Calculation = wdCalculationManual
.DisplayAlerts = wdAlertsNone
End With
On Error GoTo ErrorHandler
Dim targetDoc As Document
Set targetDoc = ActiveDocument
Dim targetPara As Paragraph
Dim processedCount As Long
processedCount = 0
‘ 定数定義（単位：ポイント。1mm ≒ 2.83465 pt）
‘ 例: 1文字を約10.5ptとし、1階層ごとに 10mm (約28.35pt) インデントを深くする
Const BASE_INDENT_PT As Double = 28.35
Const HANGING_INDENT_PT As Double = 14.17 ‘ ぶら下がりインデント（約5mm）
‘ 2. 段落コレクションの走査（オブジェクトの直叩きを避け、ローカル変数で効率化）
For Each targetPara In targetDoc.Paragraphs
‘ 表の中の段落や、ヘッダー・フッター等の例外を除外する場合のガード句
If targetPara.Range.Information(wdWithInTable) = False Then
Dim oLevel As Long
oLevel = targetPara.OutlineLevel
‘ アウトラインレベルが「本文 (BodyText)」以外の場合に計算を適用
‘ ※ Wordの OutlineLevel は Level1(1) ～ Level9(9)、BodyText は 10
If oLevel >= wdOutlineLevel1 And oLevel <= wdOutlineLevel9 Then
With targetPara
' 階層に応じた左インデントの設定 (Level 1 = 1倍, Level 2 = 2倍...)
.LeftIndent = BASE_INDENT_PT oLevel
' ぶら下がりインデントの設定（折り返し時の視認性を担保）
.FirstLineIndent = -HANGING_INDENT_PT
End With
processedCount = processedCount + 1
End If
End If
Next targetPara
' 3. 正常終了処理
MsgBox "インデントの自動整形が完了しました。" & vbCrLf & _
"処理対象段落数: " & processedCount & " 件" & vbCrLf & _
"処理時間: " & Format(Timer - startTime, "0.00") & " 秒", _
vbInformation, "完了"
CleanUp:
' 環境の復元（必ず実行させる）
With Application
.ScreenUpdating = True
.Calculation = wdCalculationAutomatic
.DisplayAlerts = wdAlertsAll
End With
Exit Sub
ErrorHandler:
' 異常系ハンドリング
MsgBox "予期せぬエラーが発生しました。" & vbCrLf & _
"Error No: " & Err.Number & vbCrLf & _
"Description: " & Err.Description, _
vbCritical, "エラー"
Resume CleanUp
End Sub
---
レイアウト崩壊を根本から防ぐための3つのポイント
1. `ScreenUpdating = False` の鉄則
Word VBAで最もボトルネックになるのは「画面の再描画」だ。数千の段落に対して`LeftIndent`を変更するたびにDOM（Document Object Model）を再描画させていたら、処理が終わる頃にはコーヒーが冷めてしまう。メモリ上で一括処理し、最後に一気に描画をフリッパーするのがプロの鉄則だ。
2. ぶら下がりインデント（`FirstLineIndent`）のマイナス制御
見出しや箇条書きで、2行目以降が左端に戻ってしまうと一気にダサくなる。`FirstLineIndent = -14.17` のようにマイナス値を指定することで、1行目の見出し番号（例: 1.1.1）を突き出し、2行目以降を綺麗に左端に揃えるプロ仕様のレイアウトが自動構築される。
3. テーブル内（`wdWithInTable`）の除外ガード
Word文書の魔物のひとつが「表」だ。表セル内の段落に対して安易にグローバルなインデントを適用すると、セルのマージンが狂い、レイアウトが致命的に破壊される。`Information(wdWithInTable)` によるガード句は絶対に省いてはならない。
—
データベース・外部連携を見据えた拡張設計
もしこのマクロを、単なるスタンドアロンのVBAではなく、「社内データベースやExcelから仕様書テンプレートを自動生成するシステム」の一部として組み込む場合は、以下の設計を推奨する。
- パラメータの外部化: インデント幅（`BASE_INDENT_PT`）をハードコーディングせず、JSON設定ファイルやExcelのマスタシートから読み込ませる。これにより、顧客ごとのフォーマット指定（例：大手ITベンダーA社仕様、B社仕様）にワンタッチで切り替え可能になる。
- ログ出力の強化: `MsgBox` ではなく、テキストファイルやDBに処理件数とタイムスタンプを書き出すロガー（Logger）クラスを一枚挟むことで、RPAやCI/CDパイプライン（文書自動生成サーバー）の一部としてもシームレスに稼働する。
結び
「文書の美しさは、構造の美しさに比例する」。
手作業による泥臭い書式調整の時代は終わった。ロジックで文書の構造を支配し、一瞬で完璧なレイアウトを練り上げる。このモジュールをあなたの開発環境に組み込み、無駄な修正作業からエンジニアたちを解放してほしい。
