こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押して「なんだか動いたけれど、中身はよくわからない……」という段階を卒業し、いよいよ自分の手でWordを自在にコントロールしたいと思っているあなたへ。
今回は、業務自動化の現場で最も需要が高いテーマの一つ「段落のアウトラインレベルをVBAで解析し、目次を自動生成するロジック」を徹底解説します。
ここをクリアすれば、Word VBAの本質である「文書構造の走査（スキャン）」と「オブジェクトの操作」の基本がバッチリ身につきますよ。気負わず、一緒に一歩ずつ進んでいきましょう！
—
なぜ「アウトラインレベル」の解析が自動化の武器になるのか？
実務でこんな絶望感を味わったことはありませんか？
- 「数百ページある社内規定のPDFやWordから、見出しだけを抜き出して要約リストを作ってほしい」
- 「急ぎで作成された資料で、見出しのフォントサイズやスタイルがバラバラ。目次を綺麗に作り直したい」
人間がこれを目視でやると、途中で目がチカチカして発狂しそうになりますよね。しかし、Word文書の中身をよく見てください。プロフェッショナルな文書ほど、段落には「アウトラインレベル（見出し1、見出し2など）」という構造のDNAがしっかりと刻み込まれています。
VBAを使えば、このDNAをコンマ数秒で読み取り、新しい文書やExcel顔負けのリストとして構造化された目次を自動出力できます。今回は、その核心に迫りましょう。
—
本日のゴール：アクティブ文書から見出しを抽出し、新規文書に目次を吐き出す
今回作成するマクロの動きはシンプルです。
1. 現在開いているWord文書の先頭から末尾まで、すべての段落を上から順にチェックする。
2. その段落が「見出し（アウトラインレベル 1〜3）」かどうかを判定する。
3. 見出しであれば、そのレベル（階層）に応じたインデント（字下げ）をつけながら、新しい文書に書き出していく。
まずは、その全貌となるコードをお見せします。開発タブの「Visual Basic」を開き、標準モジュールに貼り付けてみてください。
実用VBAコード：自動目次生成エンジン
Sub GenerateCustomTableOfContents()
‘ 変数の宣言（Word VBAの基本！型の明示はプロの第一歩です）
Dim docSource As Document
Dim docTarget As Document
Dim para As Paragraph
Dim targetRange As Range
Dim headingText As String
Dim outlineLvl As Long
Dim indentSpaces As String
Dim i As Long
‘ 処理の高速化スイッチ（画面描画をストップすることで爆速になります）
Application.ScreenUpdating = False
‘ 処理元（現在アクティブな文書）を特定
Set docSource = ActiveDocument
‘ 出力先として、新しい白紙の文書を作成
Set docTarget = Documents.Add
‘ 新規文書の先頭にタイトルを挿入
Set targetRange = docTarget.Content
targetRange.Text = “【自動生成】文書構造目次リスト” & vbCrLf & String(40, “-“) & vbCrLf & vbCrLf
‘ 文書全体の段落を上から順にループ処理（ここが王道の走査ロジック！）
For Each para In docSource.Paragraphs
‘ 段落のアウトラインレベルを取得
‘ (※本文の場合は wdOutlineLevelBodyText = 10 が返されます)
outlineLvl = para.OutlineLevel
‘ レベル1からレベル3までの見出しだけをキャッチする
If outlineLvl >= wdOutlineLevel1 And outlineLvl <= wdOutlineLevel3 Then
' 見出しのテキスト末尾の改行マーク（vbCr等）を除去して取得
headingText = Left(para.Range.Text, Len(para.Range.Text) - 1)
' 階層（レベル）に応じて見た目のインデント（空白）を調整する
indentSpaces = ""
For i = 1 to (outlineLvl - 1)
indentSpaces = indentSpaces & " " ' 全角スペース2個分を階層の深さ分だけ追加
Next i
' 出力用文書の末尾に、インデント付きの見出しテキストを追加していく
Set targetRange = docTarget.Content
targetRange.Collapse wdCollapseEnd ' 文書の最後にカーソルを移動
targetRange.Text = indentSpaces & "・ " & headingText & vbCrLf
End If
Next para
' 高速化スイッチを元に戻す
Application.ScreenUpdating = True
' 完了メッセージ
MsgBox "目次の自動生成が完了しました！", vbInformation, "処理成功"
End ErrorHandler:
' 予期せぬエラー時の安全装置
Application.ScreenUpdating = True
End Sub
---
コードの核心を分解！知っておくべき3つのポイント
初心者から一歩抜け出すために、このコードで使われている「プロの技術」を3つに絞って解説します。
1. `Paragraphs` コレクションによる全段落の走査
For Each para In docSource.Paragraphs
Word VBAにおいて、文書は「段落（Paragraph）」の集まりです。`For Each`構文を使うことで、文書の長さに左右されず、上から下へと確実にすべての段落を舐め回すようにチェックできます。これがWord自動化の最も基本的な、そして最強のパターンです。
2. アウトラインレベルの判定（`para.OutlineLevel`）
ここがこのテーマのハイライトです。Wordの段落には、見た目のフォントや大きさとは別に、内部データとして「アウトラインレベル」という属性を持っています。
- `wdOutlineLevel1` （レベル1：大見出し）
- `wdOutlineLevel2` （レベル2：中見出し）
- `wdOutlineLevel3` （レベル3：小見出し）
- `wdOutlineLevelBodyText` （本文：レベル10相当）
ユーザーが「見出し1」スタイルを設定していようが、手動でアウトラインレベルを弄っていようが、`para.OutlineLevel` さえ見れば「これが文書構造の何番目に位置するものか」が一発で判別できます。
3. 文字列の末尾処理（`Len` と `Left`）
headingText = Left(para.Range.Text, Len(para.Range.Text) – 1)
VBAで `para.Range.Text` を取得すると、実は文字の直後に見えない「段落記号（改行コード）」が必ずオマケでくっついてきます。これをそのまま別の場所に繋げると、意図しない改行がボコボコ生まれてレイアウトが崩れます。
「全体の文字数から `-1` して、最後の改行コードを削ぎ落とす」というのは、Wordマクロ開発者が避けて通れない職人技のテクニックです。
—
陥りやすい罠とエラー回避の知見
実際にこのコードを動かす際、中級者がハマりがちなポイントを先回りして共有しておきます。
- エラー：オブジェクト変数または With ブロック変数が設定されていません。
- 原因と対策: `ActiveDocument` を使っているとき、Word上で「一つも文書が開いていない状態」でマクロを実行するとこのエラーが出ます。必ず何か文書を開いた状態でテストしましょう。
- 「目次機能なら、Word標準の目次挿入（TOC）でいいのでは？」という疑問について
- 対策: その通りです。Wordには標準の目次フィールド挿入機能があります。しかし、「標準の目次機能だとレイアウトが気に入らない」「抽出した見出しデータを、Excelやテキストファイル、あるいは外部システムにJSONとして飛ばしたい」というビジネス上の我儘な要求に応えられるのは、今回のような「VBAによるテキスト抽出ロジック」だけです。
—
まとめ：ここからさらに実務へ応用するために
お疲れ様でした！アウトラインレベルを解析し、構造化されたリストを作り出す一連の流れ、イメージできましたか？
このコードをベースに、さらに実務へ特化させるなら……
- 新規文書ではなく、Excelのシートを立ち上げてそこに綺麗に目次を書き出す（Excelライブラリとの連携）
- 見出しの「ページ番号」も一緒に取得して添える（`Information(wdActiveEndPageNumber)` を使うと取得できます！）
といった拡張が考えられます。
「文書の構造を読み解き、ロジックで再構築する」。Word VBAの面白さと実用性が最も発揮される瞬間です。ぜひ、ご自身の業務資料で試してみてくださいね。あなたの自動化ライフが、より一層豊かなものになりますように！
