Word VBAを掌握する極限の知見
【実務直結】特定のキーワードを含む段落を秒速で箇条書き化する堅牢な自動化設計
開発現場において、Word文書の整形作業ほど不毛で時間を奪われるものはない。
特に、会議の議事録や膨大なヒアリングシートから「決定事項」や「ToDo」といった特定キーワードが含まれる行を抽出し、箇条書きに整形し直す作業。これを手作業でやっているようでは、プロのエンジニアとは言えない。
今回は、Word VBAを用いて「指定したキーワードが含まれる段落」を検出し、一撃でWord標準の箇条書きスタイルへと昇華させるプロダクションコードを解説する。
単なる「動くコードの提示」にとどまらず、なぜその書き方が必要なのか、実務で絶対に踏むべき地雷と回避策をロジカルに伝授しよう。
—
なぜ「素朴な検索コード」は実務で破綻するのか？
初心者がやりがちなアプローチは、`Selection`オブジェクトを使い、画面をちらつかせながら `Find` メソッドでループを回す方法だ。
しかし、これは以下の理由から実務では完全にNGである。
1. パフォーマンスの著しい低下: 画面描画（ScreenUpdating）や選択（Selection）を伴う処理は、Wordのエンジンに多大な負荷をかける。数十ページの文書でこれをやると、固まったような遅さになる。
2. オブジェクトのロストと無限ループ: 検索ヒット後に文書構造をその場で書き換えると、`Range` や `Find` のポインタが狂い、同じ場所を無限にループするか、予期せぬエラーでマクロがクラッシュする。
【極限の知見】プロがとるべきアプローチ
Word VBAで文書構造を操作する際の鉄則は、「画面を一切描画せず（ScreenUpdating = False）」「文書の末尾から前方へ逆順（レイヤーの巻き戻し方向）にループを回す」ことだ。
これにより、置換や段落スタイルの変更によって前方のアドレスがずれる影響を完全に排除できる。
—
実装：プロダクションコード
以下のコードをVBAエディタ（Alt + F11）の標準モジュールに貼り付けてほしい。
実務での運用を想定し、エラーハンドリング、画面描画の抑止、処理件数のログ出力まで完璧に組み込んだプロ仕様のコードだ。
Option Explicit
‘ ==============================================================================
‘ 処理名 : ConvertKeywordToBulletList
‘ 概要 : 指定したキーワードを含む段落を、一括して箇条書きに変換する
‘ 著者 : チーフアーキテクト
‘ ==============================================================================
Public Sub ConvertKeywordToBulletList()
‘ 1. 定数の定義（マジックナンバーの排除）
Const TARGET_KEYWORD As String = “【ToDo】” ‘ 検索するキーワード
Dim docTarget As Document
Set docTarget = ActiveDocument
Dim lngParagraphCount As Long
Dim i As Long
Dim convertedCount As Long
convertedCount = 0
‘ 2. パフォーマンス最適化の極意：描画と警告の完全停止
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
End With
‘ エラーハンドリングの構え（異常終了時も必ず画面描画を復元させる）
On Error GoTo ErrorHandler
‘ 3. ドキュメントの整合性を守るため「末尾から前方へ」ループを回す
‘ ※前方から回すと、スタイル変更時にインデックスがズレてバグの温床になる
lngParagraphCount = docTarget.Paragraphs.Count
For i = lngParagraphCount To 1 Step -1
Dim targetPara As Paragraph
Set targetPara = docTarget.Paragraphs(i)
‘ 4. 段落内にキーワードが含まれているか判定
‘ ※ パフォーマンスと厳密性を考慮し、InStr関数を使用
If InStr(1, targetPara.Range.Text, TARGET_KEYWORD, vbTextCompare) > 0 Then
‘ 5. 箇条書きスタイル（ListBullet）を適用
‘ ※ 単に記号を入れるのではなく、Wordの段落スタイルを適用するのがベストプラクティス
targetPara.Style = docTarget.Styles(wdStyleListBullet)
convertedCount = convertedCount + 1
End If
Next i
‘ 正常終了処理
MsgBox “処理が完了しました。” & vbCrLf & _
“対象キーワード: ” & TARGET_KEYWORD & vbCrLf & _
“変換件数: ” & convertedCount & ” 件”, _
vbInformation, “一括処理完了”
CleanUp:
‘ 6. 画面描画の確実な復元（忘れるとWordがフリーズしたような見た目になる）
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, _
vbCritical, “システムエラー”
Resume CleanUp
End Sub
—
コードの急所：アーキテクトの解説
ここで採用している技術的ポイントをいくつか解説しよう。
① `Step -1` による逆順ループの必然性
前述したが、Wordの `Paragraphs` コレクションは、段落のスタイルを変更したりテキストを挿入・削除したりすると、インデックス番号が動的に再計算される。
若い番号（1番、2番…）から処理していくと、処理済みの影響でまだ処理していない段落のインデックスがズレ、「一部の段落がスキップされる」という最悪のバグを生む。末尾から処理することで、この問題を構造的にハックしている。
② `ScreenUpdating = False` と `On Error GoTo` のセット運用
VBAで数千行あるWordファイルを操作する際、描画ONのままだと画面がパチパチと点滅し、処理速度が10分の1以下に落ちる。
しかし、描画を止めた状態でエラーが発生すると、Wordの画面が真っ白に固まったまま操作を受け付けなくなるという恐怖の事態に陥る。
そのため、必ず `On Error GoTo` を経由して、`CleanUp` ラベルで強制的に描画をONに戻す防衛的プログラミング（Defensive Programming）が必須となる。
③ `wdStyleListBullet` の活用
文字の先頭に「・」という記号をわざわざVBAで打つ愚行はやめよう。
Wordには組み込みの箇条書きスタイル（`wdStyleListBullet`）が存在する。これを指定することで、Wordの段落書式エンジンが正しくインデントや箇条書きの階層構造を管理してくれるため、後からドキュメントのデザインを崩すことがない。
—
実務展開におけるデータベース・ファイル連携の注意点
もしこのマクロを単体のWordファイルで終わらせず、「複数の議事録Wordファイルを一括で自動処理するシステム」へとスケールさせる場合、以下のアーキテクチャ上の注意が必要だ。
- Wordインスタンスのライフサイクル管理: ExcelからWordを操作する場合（CreateObject(“Word.Application”)）、メモリリークを防ぐために、処理が終わったDocumentオブジェクトは必ず `.Close SaveChanges:=True` で閉じ、Word本体も `.Quit` で完全にKillすること。
- 排他制御（ロック問題）: 共有サーバー上にあるWordファイルを複数人が同時に開いている状態でVBAから書き込もうとすると、「読み取り専用」エラーでマクロが爆散する。処理前にファイルの書き込み権限をチェック、あるいは一時フォルダにコピーして処理する堅牢な前処理を挟むべきだ。
まとめ
今回紹介したコードは、一見するとシンプルだが、「大規模文書に耐えうるパフォーマンス」「バグを生まない逆順ループ」「安全な例外処理」という、プロのエンジニアが備えるべき知見がすべて詰まっている。
手作業によるコピペ地獄から脱却し、ワンクリックで文書構造を美しく整える自動化基盤をあなたの現場にも導入してほしい。エンジニアの価値とは、こうした細部のこだわりと堅牢な設計の積み重ねによって証明されるのだ。
