Word VBAを掌握せよ：記号を検知して段落を「一瞬で」装飾する極限の自動化術
こんにちは。自動化の世界へようこそ。
「マクロの記録」ボタンを押して生成された、冗長で修正困難なコードに悩まされていませんか？
Word VBAの本質は、「Range（範囲）オブジェクトをいかにスマートに操作するか」に尽きます。今日は、段落内に特定の記号（★など）がある場合、その段落全体を自動で太字にするという、実務で極めて有用なテクニックを伝授します。
これは単なる装飾ではありません。文書の構造をプログラムに理解させる「第一歩」です。
—
なぜ「Selection」ではなく「Range」なのか？
初心者が陥りがちな罠が、`Selection`（カーソル位置）を多用することです。
しかし、画面上でカーソルが動き回るコードは、遅いし、誤作動の温床になります。プロは「Rangeオブジェクト」を操ります。
Rangeとは、Word文書内の「見えない範囲指定」です。これをメモリ上で高速に操作することで、ユーザーには一瞬で処理が完了したように見せることができます。
—
実践：特定の記号を検知して太字にするコード
以下のコードをVBAエディタ（Alt + F11 → 挿入 → 標準モジュール）に貼り付けてください。
Sub HighlightParagraphWithSymbol()
‘ 変数の宣言：メモリの型を明示することは、バグを減らす第一歩です
Dim para As Paragraph
Dim targetSymbol As String
‘ 検索したい記号を定義
targetSymbol = “★”
‘ 文書内の全段落をループ処理
‘ For Eachを使うことで、範囲の終端を意識せずに効率よく巡回できます
For Each para In ActiveDocument.Paragraphs
‘ InStr関数で記号の存在を確認
‘ > 0 なら「見つかった」という意味です
If InStr(para.Range.Text, targetSymbol) > 0 Then
‘ Rangeオブジェクトの書式を一括変更
‘ これにより、段落内の文字を一つ一つ拾う必要がなくなります
para.Range.Bold = True
End If
Next para
MsgBox “装飾が完了しました。”, vbInformation
End Sub
—
コードの「魂」を読み解く3つのポイント
1. `For Each para In ActiveDocument.Paragraphs`
これは「文書の中にある段落を一つずつ、順番に教えてくれ」という命令です。`For i = 1 to 100` のように回数を指定する必要はありません。Wordの構造に寄り添った、最も美しいループ処理です。
2. `InStr(para.Range.Text, targetSymbol)`
`InStr`は文字列検索の神様です。段落全体のテキストから「★」を探し、その位置を数字で返します。0が返ってくれば、その段落には記号がないと判断できます。
3. `para.Range.Bold = True`
ここが一番のポイントです。段落（Paragraph）が持つ`Range`プロパティに直接命令を下しています。これだけで、その段落に含まれるすべての文字の太字フラグが書き換わります。これがオブジェクト指向の力です。
—
初学者が陥りやすい「エラー」と対策
- 「オブジェクトが必要」エラー:
`ActiveDocument`が開かれていない状態で実行すると発生します。必ずWordファイルを開いてから実行しましょう。
- 処理が重い場合:
数千ページある文書で実行すると、画面の描画が追いつかなくなることがあります。その場合は、コードの冒頭に `Application.ScreenUpdating = False` を入れ、最後に `True` に戻すと、爆速で処理が終わります。
—
次のステップへ
このコードをマスターすれば、次は「★なら赤字にする」「◆ならスタイルを『見出し2』に変更する」といった応用が自由自在です。
Word VBAは、単なる事務作業の補助ツールではありません。あなたの文書を「プログラムで定義された構造体」へと進化させる強力な武器です。
まずはこのコードを動かしてみてください。「自分の命令で文書が書き換わる」、その瞬間の感動こそが、エンジニアへの道筋です。何か詰まったら、いつでも聞いてくださいね。応援しています。
