【Word VBA】アウトラインレベルを完全掌握せよ：実務で使える「構造化目次自動生成」の極意
開発現場でよくある要望だ。
「Word文書から見出し構造を自動で抽出し、インデント付きの目次リストをテキストや別ファイルとして出力してくれ」
初学者は、ドキュメントを目視しながら `.Range.Text` を力技で総なめし、フォントサイズや太字判定という「泥臭いヒューリスティック」に走りがちだ。だが、断言しよう。そのアプローチは仕様変更のたびに破綻する技術的負債の温床だ。
Word文書の構造化において、唯一絶対の真実は「アウトラインレベル（OutlineLevel）」である。
今回は、Word VBAのオブジェクトモデルの深淵を突き詰め、文書の論理構造をミリ単位でハックする「堅牢な目次自動生成ロジック」を伝授する。
—
1. なぜ「文字装飾」ではなく「アウトラインレベル」なのか？
実務の現場では、「見出し1」という名前のスタイルであっても、現場の担当者が勝手にフォントサイズを変更したり、スタイルを適用せずに直接太字にしたりという「フリーダムな編集」が横行する。
ここに `.Font.Size = 16` のような書式依存の判定を入れた瞬間、ツールはゴミと化す。
Wordの本質は「構造」にある。ユーザーがどのようなフォントサイズや文字色を使っていようとも、段落が持つ `Paragraph.OutlineLevel` さえ監視していれば、論理的な階層構造は100%正確に抜け目なく取得できる。
アウトラインレベルの仕様の罠
Wordの `OutlineLevel` プロパティが返す値には注意が必要だ。
- `wdOutlineLevel1` ～ `wdOutlineLevel9` （数値としては 1 ～ 9）
- `wdOutlineLevelBodyText` （数値としては 10：本文）
つまり、見出しとして抽出すべきは 「1以上かつ9以下」 の数値を持つ段落群である。この境界条件を厳密にコードに落とし込むことが、バグを防ぐ第一歩となる。
—
2. 堅牢な設計：パフォーマンスとメモリ管理の鉄則
Word VBAで数万行の巨大な文書を扱う際、画面を再描画させながらループを回すようなコードを書いた瞬間にフリーズする。
プロのアーキテクトが遵守すべき鉄則は以下の2点だ。
1. 画面描画の完全な凍結 (`ScreenUpdating = False`)
2. オブジェクトの適切な解放と、不要な `.Select` / `.Activate` の排除
カーソルを移動させる `.Select` は百害あって一利なしだ。DocumentオブジェクトとParagraphsコレクションをメモリ上で直接ダイレクトに走査する。
—
3. プロダクションコード：構造化目次自動生成エンジン
以下のコードは、アクティブ文書のアウトラインレベルを解析し、インデント（階層）を美しく視覚化した目次テキストを生成し、新規のWord文書として出力する完全版のモジュールだ。
Option Explicit
‘ ==============================================================================
‘ 処理名 : GenerateStructuredTOC
‘ 概要 : アクティブ文書の段落アウトラインレベルを解析し、構造化された目次を新規文書に出力する
‘ 開発者 : チーフアーキテクト
‘ ==============================================================================
Public Sub GenerateStructuredTOC()
‘ 1. 宣言と環境退避
Dim targetDoc As Document
Dim tocDoc As Document
Dim para As Paragraph
Dim tocText As String
Dim level As Long
Dim indentSpaces As String
Dim extractedCount As Long
Set targetDoc = ActiveDocument
extractedCount = 0
‘ パフォーマンス最大化のため描画と警告を停止
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
End With
On Error GoTo ErrorHandler
‘ 2. 出力用新規ドキュメントの作成
Set tocDoc = Documents.Add(DocumentType:=wdNewBlankDocument)
tocText = “【自動生成目次リスト】” & vbCrLf & String(40, “-“) & vbCrLf
‘ 3. 元文書の段落を高速走査
For Each para In targetDoc.Paragraphs
‘ アウトラインレベルを取得 (1～9が見出し、10は本文)
level = para.OutlineLevel
If level >= wdOutlineLevel1 And level <= wdOutlineLevel9 Then
' 改行コードやタブを除去してテキストをクレンジング
Dim cleanText As String
cleanText = Replace(Replace(para.Range.Text, vbCr, ""), vbLf, "")
cleanText = Trim(cleanText)
If Len(cleanText) > 0 Then
‘ 階層に応じたインデントを生成 (レベル1を基準にスペース付与)
indentSpaces = Space((level – 1) 4)
‘ 目次文字列の構築 (階層 + テキスト)
tocText = tocText & indentSpaces & “Level ” & level & “: ” & cleanText & vbCrLf
extractedCount = extractedCount + 1
End If
End If
Next para
‘ 4. 抽出結果の書き込み
If extractedCount > 0 Then
tocDoc.Content.Text = tocText
MsgBox “目次の生成が完了しました。” & vbCrLf & “抽出見出し数: ” & extractedCount & ” 件”, vbInformation, “処理成功”
Else
tocDoc.Close SaveChanges:=wdDoNotSaveChanges
MsgBox “有効な見出し（アウトラインレベル1～9）が見つかりませんでした。”, vbExclamation, “警告”
End Error_Label:
ErrorHandler:
If Err.Number <> 0 Then
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “システムエラー”
End If
‘ 5. 環境の復元（必ず実行）
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With
‘ オブジェクト解放
Set targetDoc = Nothing
Set tocDoc = Nothing
Set para = Nothing
End Sub
—
4. コードの解説とアーキテクトの視点
① `Space((level – 1) 4)` による動的インデント
論理構造を人間が視覚的に把握できるよう、アウトラインレベルの深度 (`level – 1`) に応じて半角スペースを4文字ずつ乗算している。これにより、テキストエディタやメモ帳に出力した場合でも、美しいツリー構造が維持される。
② クレンジング処理の重要性
Wordの段落オブジェクトが持つ `.Range.Text` には、末尾に必ず段落記号（`vbCr`）が含まれている。これをそのまま結合していくと、目次出力先で意図しない二重改行を引き起こす。
`Replace(…, vbCr, “”)` によって物理的な改行コードを完全に排除し、安全な文字列結合を行っている点が実務レベルでのこだわりだ。
③ 堅牢なエラーハンドリングと環境復元
VBA開発において最もやってはいけないのが、エラー発生時に `ScreenUpdating = False` や `DisplayAlerts = wdAlertsNone` が解除されず、Word全体が操作不能（ハンチング状態）に陥ることだ。
必ず `On Error GoTo` を経由して、プロシージャの出口で確実に環境を復元する設計（Finallyブロックの代用）を義務付けること。
—
5. 発展：別システム（データベースやExcel）への連携
今回は新規Word文書に出力したが、実務ではこの抽出データをExcelに飛ばしたり、JSON形式にシリアライズして外部APIに投げたりする要件も多いだろう。
その場合、上記コードの `tocText = …` の部分を、ExcelのRangeへの代入や、FileSystemObjectを用いたテキストファイル（UTF-8）へのストリーム書き込みに置き換えるだけで、シームレスに拡張可能だ。
Wordを単なる「ワープロソフト」ではなく、「構造化データのデータベース」として捉えること。これこそが、業務自動化エンジニアとしての視座の高さであり、勝てるVBAコードの条件である。
