【実務・中級編】【初心者向け】段落の「行頭文字」をVBAで一括取得し、リスト形式のテキストファイルへ書き出す – Word VBA解析バイブル

【Word VBA】行頭文字・段落番号の完全抽出：リスト形式テキスト出力の極意

開発プロジェクトで、仕様書や報告書などのWord文書から箇条書き（行頭文字・段落番号）だけを抽出し、テキストファイルやCSV、データベースへ流し込みたいという要求は枚挙に暇がない。

「手作業でコピペする」？
冗談ではない。エンジニアたる者、数千行のドキュメントであっても一瞬で、かつ一文字の欠落もなく自動化せねばならない。

しかし、Word VBAにおける「箇条書きの抽出」は、甘く見ていると痛い目を見る。
Wordの行頭文字や段落番号は、「見た目は文字であっても、実はテキストとして存在しない（自動付与されている）幽霊データ」であることが多々あるからだ。`Range.Text`を取得しても、段落番号の「1.」や「・」はごっそり抜け落ちる。

今回は、Word VBAのオブジェクトモデルの裏側を暴き、行頭文字と段落番号を確実にキャッチして外部テキストへ出力する、バグ知らずの堅牢なプロダクションコードを伝授しよう。

—

1. なぜ「単純なText取得」では失敗するのか？

初心者が真っ先に書くコードがこれだ。

‘ 【アンチパターン】これでは行頭番号が取得できない
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
Debug.Print p.Range.Text
Next p

このコードを実行すると、段落のテキストは取得できるものの、Wordの機能（箇条書きや段落番号）で自動付与された番号や記号は完全無視される。なぜなら、これらは文字ではなく段落の書式プロパティ（`ListFormat`）として動的に描画されているに過ぎないからだ。

さらに言うならば、Wordの`ListString`プロパティを使えば番号の文字列自体は取得できるが、文書全体の構造やインデント、ネスト（階層構造）を考慮しなければ、出力されたテキストファイルはゴミの山と化す。

実務で使えるツールにするためには、以下の要件を満たす必要がある。
1. 確実な番号の取得: 自動付与された段落番号（例: “1.1”, “(1)” など）を文字列として実体化させる。
2. 文字化け・改行コードの制御: テキストファイル出力時のエンコーディング（UTF-8等）と改行コードの適切なハンドリング。
3. メモリと速度の最適化: 画面描画のロック（`ScreenUpdating`）とオブジェクトの適切な解放。

—

2. 【プロダクションコード】行頭文字一括抽出マクロ

以下のコードは、アクティブ文書内のすべての箇条書き・段落番号付き段落を走査し、番号とテキストをセットにしてデスクトップのテキストファイルへ出力する完結したプロシージャだ。

コピペしてそのまま実務の現場で使用してほしい。

Option Explicit

‘ =====================================================================
‘ 処理名 : ExportBulletAndNumberedListToText
‘ 概要 : 文書内の箇条書き・段落番号付き段落を抽出し、テキストファイルに出力する
‘ 備考 : UTF-8 (BOM付き) でテキストファイルを出力し、文字化けを防止
‘ =====================================================================
Sub ExportBulletAndNumberedListToText()
‘ 1. 宣言とパフォーマンス最適化
Dim targetDoc As Document
Set targetDoc = ActiveDocument

Dim fso As Object
Dim ts As Object
Dim outputPath As String
Dim p As Paragraph
Dim listText As String
Dim extractedCount As Long

‘ 画面描画を停止し、処理速度を限界まで引き上げる
Application.ScreenUpdating = False
Application.DisplayAlerts = False

On Error GoTo ErrorHandler

‘ 出力ファイルのパスを設定（ユーザーのデスクトップに “Extracted_List.txt” を生成）
outputPath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\Extracted_List.txt”

‘ FileSystemObjectの初期化
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ TextStreamオブジェクトの作成 (ForWriting=2, Overwrite=True, Format=-1(Unicode/UTF-8))
‘ ※ADODB.Streamを使う手もあるが、シンプルかつ確実なFSOのCreateTextFileを使用
Set ts = fso.CreateTextFile(outputPath, True, True)

extractedCount = 0

‘ 2. 段落の走査
For Each p In targetDoc.Paragraphs
‘ ListFormat.ListType をチェックし、通常の段落（wdListNoList以外）を対象にする
If p.Range.ListFormat.ListType <> wdListNoList Then

‘ 行頭文字・段落番号の文字列を取得 (ListString)
‘ テキスト本体を取得 (Range.Text から末尾の改行コードを除去)
Dim cleanText As String
cleanText = p.Range.Text
cleanText = Replace(cleanText, vbCr, “”)
cleanText = Replace(cleanText, vbLf, “”)

‘ リスト記号 ＋ 本文 を結合
‘ p.Range.ListFormat.ListString で「1.」や「・」を取得可能
listText = p.Range.ListFormat.ListString & vbTab & cleanText

‘ テキストファイルへ書き出し
ts.WriteLine listText
extractedCount = extractedCount + 1

End If
Next p

‘ 3. 正常終了処理
ts.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox “抽出が完了しました。” & vbCrLf & _
“出力先: ” & outputPath & vbCrLf & _
“抽出件数: ” & extractedCount & ” 件”, vbInformation, “処理成功”

Exit Sub

ErrorHandler:
‘ 異常系ハンドリング：リソースのリークを絶対に防ぐ
If Not ts Is Nothing Then ts.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error: ” & Err.Description, vbCritical, “システムエラー”
End Sub

—

3. コードの設計思想とエンジニアリングのポイント

このコードが「なぜ堅牢なのか」、プロの視点で3つの理由を解説する。

① `ListFormat.ListString` の活用

前述した通り、Wordの自動採番はテキストとして実体化していない。`p.Range.ListFormat.ListString` を叩くことで、Word内部のエンジンが計算している「現在の番号・記号文字列」をピンポイントで引き剥がすことに成功している。これにより、タブ区切り（`vbTab`）で「番号」と「本文」を綺麗に分離してテキスト化できる。

② FileSystemObject (FSO) による安全なファイルI/O

VBA標準の `Open … For Output` ステートメントは、文字コードの指定において現代のシステム（UTF-8標準）では力不足であり、日本語環境で文字化けを引き起こすリスクが高い。
FSOの `CreateTextFile` メソッドの第3引数に `True`（Unicode指定）を渡すことで、グローバルな環境でも文字化けしない堅牢なファイル出力を担保している。

③ 徹底的なリソース管理とパフォーマンスチューニング

• `ScreenUpdating = False`: 文書が大きい場合、VBAが一段落ごとに画面を再描画しようとすると、処理時間が何倍にも膨れ上がる。これを完全にシャットアウトする。
• エラーハンドリング (`On Error GoTo`): ファイル入出力やオブジェクト操作で万が一エラーが発生しても、`ts.Close` を通すことでファイルロックの解放漏れを防ぎ、WordやOSに負荷を残さない設計にしている。

—

4. 発展：データベースや外部API連携への布石

今回作成したテキストファイル出力のロジックは、そのまま業務自動化のハブとして機能する。

たとえば、抽出したテキストファイルを夜間バッチで読み込み、SQL ServerやPostgreSQLなどのリレーショナルデータベースにインサートしたり、社内チャットツール（Teams / Slack）のIncoming WebhookへJSONペイロードとしてPOSTすれば、「Word文書の更新をトリガーにした自動通知システム」へと昇華させることができる。

「Wordだから手作業で頑張る」という悪しき習慣は、今日この瞬間で終わりにしよう。
オブジェクトの仕様を正しく理解し、型にはまった美しいVBAを書くことこそが、真の業務効率化への最短ルートである。