Word VBAの真髄：`ListFormat`を操り、リストの深淵を可視化する
こんにちは。自動化の世界へようこそ。
「マクロの記録」ボタンを押すだけの日常から卒業し、Wordという巨大な構造体を自在に操る技術を身につけたい……そう願うあなたを、私は心から歓迎します。
今日は、Word VBAの中でも特に難解で、かつ強力な武器となる「リスト（箇条書き・段落番号）」の解析に挑みます。Wordのリスト構造は、一見単純なようでいて、裏側では複雑な親子関係（階層）を持っています。これを掌握できれば、文書の自動整理やデータ抽出は思いのままです。
—
1. なぜ「ListFormat」が重要なのか？
Wordのリストは、単に「・」や「1.」がついているだけではありません。内部的には`List`、`ListTemplate`、そして`ListFormat`というオブジェクトが、段落（Paragraph）と密接に結びついています。
初学者が陥る最大の罠は、「テキストの中身だけを見て、リストの階層構造を無視すること」です。
`ListFormat`オブジェクトは、その段落がリストなのか、何階層目なのか、どんな番号形式なのかを教えてくれる唯一のインターフェースです。ここを制する者が、Wordの文書構造を制します。
—
2. 実践：リスト構造を解析し、Excelへエクスポートする
まずは、現在開いている文書のリストをすべて抽出し、イミディエイトウィンドウ（またはExcel）に書き出すコードを見てみましょう。
Sub ExportListStructure()
Dim para As Paragraph
Dim lf As ListFormat
‘ 文書内のすべての段落を走査する
For Each para In ActiveDocument.Paragraphs
Set lf = para.Range.ListFormat
‘ ListTypeがwdListNoNumbering以外であれば、それはリストである
If lf.ListType <> wdListNoNumbering Then
‘ リストレベル（1〜9）とテキストを抽出
Debug.Print “階層: ” & lf.ListLevelNumber & ” | ” & _
“内容: ” & Left(para.Range.Text, 20) & “…”
End If
Next para
End Sub
このコードの「本質」
- `para.Range.ListFormat`: これが心臓部です。段落の背後に隠れたリスト情報を引き出します。
- `ListLevelNumber`: これが「階層」です。1〜9の数値で返されます。この値をExcelの列にそのまま流し込めば、階層構造がそのままデータベースになります。
- `ListType`: リストの種類（箇条書きか、番号付きか）を判別します。これを確認しないと、通常の段落までリストとして誤検知してしまいます。
—
3. 陥りやすい罠：Rangeオブジェクトの「重さ」と「範囲」
Word VBAにおいて、`Range`オブジェクトは非常に強力ですが、ループ内で無闇に`Select`や`Selection`を使うのは「重罪」です。
- ダメな例: `Selection.Paragraphs` を使ってカーソルを移動させながら処理する。
- 良い例: 上記コードのように `For Each para In ActiveDocument.Paragraphs` を使い、メモリ上で完結させる。
`Selection`は表示更新を伴うため、数千行の文書では処理速度が100倍変わります。「画面を見ないで処理する」のが、伝説のエンジニアへの第一歩です。
—
4. リスト構造を自動で整理する（レベルの昇降）
単に読み取るだけでなく、コードでリストを操作してみましょう。例えば「レベル2の項目をすべてレベル1に昇格させる」といった操作も一瞬です。
Sub PromoteListItems()
Dim para As Paragraph
‘ 文書内のすべての段落をチェック
For Each para In ActiveDocument.Paragraphs
‘ もしレベル2ならレベル1に昇格させる
If para.Range.ListFormat.ListLevelNumber = 2 Then
para.Range.ListFormat.Promote ‘ 昇格メソッド
End If
Next para
End Sub
この`Promote`（昇格）と`Demote`（降格）メソッドを組み合わせれば、複雑なマニュアルの構成変更も、一括で自動化可能です。
—
5. 最後に：プロの視点を持つあなたへ
リストの解析において、最も厄介なのは「途切れたリスト」です。Wordは、途中で別の段落が挟まると、別のリストオブジェクトとして再生成することがあります。
実戦では、以下の点に注意してください。
1. 「リストの連続性」: `List.Range` を使うことで、どこからどこまでが「一つのリストグループ」かを取得できます。
2. 「階層の不整合」: レベル1の次にいきなりレベル3が来ている場合、それは論理的にエラーです。コードで事前にチェックし、修正を促す仕組みを作るのが、真の自動化エンジニアの仕事です。
ここまで理解できれば、あなたはもう初心者ではありません。Wordの裏側にある「構造」を扱う資格を得ました。次は、これをExcel連携させて、自分だけの業務改善ツールを作り上げてみてください。
もし行き詰まったら、いつでも戻ってきてください。この場所で、あなたの更なる挑戦を待っています。
