こんにちは！ Wordの面倒な手作業にうんざりしていませんか？
「議事録やレポートの中で、特定のキーワードが含まれる行を、全部まとめてきれいな箇条書きにしたい……」そんな場面、よくありますよね。
マクロの記録ボタンを押してカタカタ操作してみたものの、生成された暗号のようなコードを見てそっと閉じてしまった――そんな経験はありませんか？大丈夫。今日、そのモヤモヤをすべて解消しましょう。
今回は、Word VBAの核心である「段落（Paragraph）の概念」と「検索機能のスマートな操り方」を、優しく、そして本質的なアプローチで解説します。ここをクリアすれば、あなたのWord自動化スキルは間違いなく一段階上のステージに到達しますよ。
—
1. なぜ「手作業」や「マクロの記録」では限界があるのか？
まず、Wordの構造について少しだけ知っておきましょう。
Excelが「エクセル＝表計算のマス目（セル）」という明確なグリッド構造を持っているのに対し、Wordは「流れるテキストの海」です。人間にとっては「1行」に見えるものでも、Wordの内部では「改行マーク（`\r`）」で区切られた「段落（Paragraph）」という独立したオブジェクトとして管理されています。
キーワードが含まれる段落を探して箇条書きにする作業を、もし手作業でやったらどうなるでしょう？
1. 「検索」を開いてキーワードを入力する
2. 該当箇所にジャンプする
3. マウスで段落を選択する
4. 「箇条書き」ボタンを押す
5. 次の検索へ……（エンドレス）
これを「マクロの記録」に頼ると、画面の選択・解除の無駄な動き（SelectやSelectionの嵐）がそのままコード化され、実行するたびに画面がガチャガチャと点滅した挙句、途中でフリーズするような「脆いコード」が生まれてしまいます。
プロのエンジニアは、画面を一切選択させません。メモリ上でドキュメントの段落を直接狩りに行くのです。
—
2. 解決の全体像：コードの全貌
それでは、今回作成する「特定のキーワードを含む段落を、一網打尽で箇条書きにするマクロ」の全コードをお見せします。
開発タブのVBE（Visual Basic Editor）を開き、標準モジュールにそのまま貼り付けてみてください。
Sub ConvertParagraphsToList()
‘ =====================================================================
‘ テーマ：特定キーワードを含む段落を自動で「箇条書き」に変換する
‘ 執筆者：シニアチーフアーキテクト
‘ =====================================================================
Dim rngTarget As Range
Dim targetKeyword As String
Dim targetStyle As String
‘ — 1. 設定エリア —
targetKeyword = “【要確認】” ‘ 検索したいキーワード
targetStyle = “箇条書き” ‘ 適用したいWordのスタイル名（※お使いの環境に合わせて変更）
‘ — 2. 文書の先頭から末尾までをレンジ（範囲）として定義 —
Set rngTarget = ActiveDocument.Content
‘ — 3. 検索と置換のエンジンを使った高速ヒット処理 —
With rngTarget.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = targetKeyword
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
‘ 該当するキーワードが見つかる限りループを回す
Do While .Execute
‘ ★ここが核心：ヒットした位置を含む「段落全体」をスタイルの対象にする
rngTarget.Paragraphs(1).Style = ActiveDocument.Styles(targetStyle)
‘ 検索位置をヒットした段落の末尾に移動させ、無限ループを防止する
rngTarget.Collapse wdCollapseEnd
Loop
End With
‘ — 4. 完了メッセージ —
MsgBox “キーワード「 ” & targetKeyword & ” 」を含む段落の箇条書き変換が完了しました！”, vbInformation, “処理成功”
End Sub
—
3. コードの心臓部を解剖する！ 4つの重要ポイント
このコードがなぜ美しく、そして実用的なのか。初心者の方が必ず押さえておべき4つのポイントを紐解きます。
① `Selection` ではなく `Range` を使う（最重要）
マクロの記録を使うと `Selection.TypeText` のようなコードが量産されます。これは「今カーソルがある場所を操作する」という意味なので、処理が遅く、エラーの原因になります。
今回のコードでは、目に見えないメモリ上の領域を表す `Range`（レンジ） オブジェクトを使っています。画面を書き換えないため、圧倒的に高速に処理が走ります。
② `Do While .Execute` によるスマートな全件検索
Wordの検索機能（`Find`）は、一度見つけて終わりではありません。.Executeメソッドは「見つかったら True、見つからなかったら False」を返すため、`Do While` と組み合わせることで、文書内に散らばるすべてのキーワードを自動で巡回できます。
③ `rngTarget.Paragraphs(1)` という魔法の指定
ここが今回の最大のテクニックです。
検索で見つかった `rngTarget` は、あくまで「キーワードの文字列（例：【要確認】の数文字）」の範囲です。しかし、私たちが装飾したいのはその文字列ではなく「その文字列が含まれる段落全体」ですよね。
`rngTarget.Paragraphs(1)` と書くことで、その文字列が含まれる「親の段落」をピンポイントで掴み取ることができます。
④ 無限ループを防ぐ `Collapse`
検索系マクロで初心者が9割ハマるのが「同じ場所を永遠にループし続けるエラー」です。
キーワードを見つけた後、そのまま次の検索を行うと、また同じ場所をヒットしてしまいます。そこで `rngTarget.Collapse wdCollapseEnd` を実行し、「検索範囲をヒットした段落の『おしまい』の場所に移動させる」ことで、次の検索をその直後からスタートさせています。
—
4. 現場でありがちな「エラー」と対処法
実際に動かしてみたときに、よくあるつまずきポイントをあらかじめシェアしておきますね。
- Q. 「インデックスが有効範囲にありません」というエラーが出ます。
- A. 原因の多くは `targetStyle = “箇条書き”` の部分です。 お使いのWordのテンプレートやバージョンによっては、箇条書きのスタイル名が「組み込みの箇条書き」や英語で `List Bullet` になっている場合があります。Wordの「ホーム」タブにあるスタイル一覧を開き、適用したいスタイル名とコード内の文字列が完全に一致しているか確認してください。
- Q. キーワードはあるのに、なぜかヒットしません。
- A. 全角・半角の違いや、前後のスペースを確認しましょう。 Wordの検索は厳密です。また、Word特有の隠し文字やフィールドコードが間に入っていると見つからないことがあります。まずはシンプルな単語（例：「確認」「TODO」など）でテストしてみるのがコツです。
—
5. おわりに：ここをクリアすれば、Word VBAは怖くない！
お疲れ様でした！
「段落」という概念の捉え方と、`Range` を使ったスマートな検索手法。この2つが理解できれば、単なる文字の置き換えだけでなく、特定の段落に色をつけたり、前後に空白行を挿入したりといった高度な自動化も、自由自在に作れるようになります。
「手作業で数えてポチポチ直していたあの時間は何だったんだ……！」
そう思える瞬間が、プログラミングの醍醐味であり、最高に気持ちいい瞬間です。
ぜひ、あなたの毎日のデスクワークや議事録整理にこのコードを取り入れて、定時退社を勝ち取ってくださいね。それでは、次の快適な自動化の世界でお会いしましょう！
