こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押して、生成されたコードを眺めてみたものの、「なんだこの呪文書は…」「思った通りに動かないぞ」と頭を抱えた経験はありませんか？
特に、文書の中にある「特定の言葉」を一括置換しようとして、見出しやキャプションまで巻き込んで書き換えてしまい、ドキュメントがめちゃくちゃになって冷や汗をかいた……というのは、誰もが通る登竜門です。
大丈夫。今日は、「特定の段落スタイル」を条件に含めて検索・置換を行う極意を伝授します。ここをクリアすれば、あなたのWord VBAスキルは「おもちゃの自動化」から「プロの文書エンジニアの技」へと一気にステップアップしますよ。さあ、一緒に扉を開けましょう！
—
なぜ「文字列だけ」の置換は地雷原なのか？
Wordの「検索と置換（Ctrl + H）」を思い出してください。あのダイアログボックス、便利ですよね。でも、あそこで「すべて置換」を押すのは、いわば目隠しをして地雷原をダッシュするようなものです。
例えば、マニュアル文書の中で「注意」という言葉を「⚠️注意」に書き換えたいとします。
普通に置換するとどうなるでしょうか？
- 本文中の「注意」 👉 `⚠️注意` （正解）
- 見出し1の「注意事項」 👉 `⚠️注意事項` （事故：見出しスタイルが崩れたり、重複したりする）
- 注釈欄の「注意」 👉 想定外の場所まで変わってしまう
プログラミングの世界では、これを「コンテキスト（文脈）の欠如」と呼びます。コンピュータは文字面しか見ません。だからこそ、私たちが「本文スタイル（標準）の段落にある『注意』だけを探してくれ」と、明確な文脈（スタイル）を指定してあげる必要があるのです。
—
Word VBAの心臓部：`Find`オブジェクトの正体
Word VBAで検索を司るのが、`Selection.Find` または `Range.Find` です。
ここで多くの初学者がハマる最大の罠が、「検索条件（Style）を設定したはいいが、前回の検索のゴミが残っていて誤作動を起こす」という現象です。
Wordの検索エンジンは、前回ユーザーが手動で検索した条件（大文字・小文字の区別、ワイルドカード、フォント設定など）を執念深く記憶し続けます。そのため、VBAを書くときは、まず「脳みそをまっ白にする（条件をリセットする）」お作法が絶対に不可欠なのです。
極意：検索の基本定型句（ボイラープレート）
以下のコードを見てください。これが、プロが必ず最初に書く「検索の儀式」です。
Sub ResetFind(ByRef rng As Range)
With rng.Find
.ClearFormatting ‘ 前回の書式設定を綺麗さっぱり消去
.Replacement.ClearFormatting ‘ 置換側の書式も消去
.Text = “” ‘ 検索文字列をクリア
.Replacement.Text = “” ‘ 置換文字列をクリア
.Forward = True ‘ 文書の先頭から末尾に向かって検索
.Wrap = wdFindStop ‘ 文書の最後まで来たらそこでストップ
.MatchCase = False ‘ 大文字・小文字を区別しない
.MatchWholeWord = False ‘ 完全に一致する単語だけではなく、部分一致を許可
.MatchWildcards = False ‘ ワイルドカードは使わない
.MatchSoundsLike = False ‘ 発音の類似は無視
.MatchAllWordForms = False ‘ 活用形は無視
End With
End Sub
この「初期化」を挟むことで、どのパソコンで実行しても、前回どんな検索をしていようとも、常にクリーンな状態で処理をスタートできます。この一手間を惜しまないのが、一流のエンジニアへの第一歩です。
—
実践！スタイルを条件に含めた置換マクロ
それでは、いよいよ本丸です。
「『標準（Normal）』スタイルの段落に含まれる『お疲れ様です』を、『平素は格別のお引き立てを…』にスマートに置換する」という実用的なマクロを書いてみましょう。
見出し（Heading）スタイルや、表の中の文字は一切触らせない、硬派で安全なコードです。
Sub ReplaceTextWithStyle()
Dim rngTarget As Range
‘ 1. 文書全体を操作対象のレンジ（範囲）として取得
Set rngTarget = ActiveDocument.Content
‘ 2. 検索・置換オブジェクトの条件を完全に初期化
With rngTarget.Find
.ClearFormatting
.Replacement.ClearFormatting
‘ 3. 検索ワードと置換ワードを設定
.Text = “お疲れ様です”
.Replacement.Text = “平素は格別のお引き立てを賜り、厚く御礼申し上げます。”
‘ ★ここが最重要！「スタイル」を検索条件に加える
‘ Wordの「標準」スタイルを表す定数は 「wdStyleNormal」 です
.Style = wdStyleNormal
‘ 4. 検索の基本動作を設定
.Forward = True
.Wrap = wdFindStop
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
‘ 5. 条件に合致するものを「すべて置換」する
.Execute Replace:=wdReplaceAll
End With
‘ 6. 完了の合図
MsgBox “指定スタイルの置換が完了しました！”, vbInformation, “処理成功”
End Sub
コードの解説：なぜこれでうまくいくのか？
1. `Set rngTarget = ActiveDocument.Content`
文書全体を「Range（範囲）」というオブジェクトとして捉えています。画面上のカーソル（Selection）に頼らないのが、高速かつ安定した動作を生むコツです。画面がチラつかず、一瞬で処理が終わります。
2. `.Style = wdStyleNormal`
ここにマジックがあります。Wordの内部で使われている段落スタイルを定数で指定しています。もし「見出し1」を指定したい場合は `wdStyleHeading1` を代入すればOKです。これで、「文字列が一致し、かつ、指定したスタイルが適用されている場所」だけがピンポイントで狙い撃ちされます。
3. `.Execute Replace:=wdReplaceAll`
条件に一致したすべての箇所を一括置換します。ループを回さずに一発で処理するため、パフォーマンスも非常に優れています。
—
陥りやすい罠とエラー回避の処方箋
現場でこのコードを使い始めると、いくつかの「想定外」にぶつかることがあります。先輩からのアドバイスとして、あらかじめ対策をシェアしておきますね。
トラブル1：文字の色や太字（直接書式）がスタイルと混ざっている
Wordの怖いところは、「標準スタイル」の段落であっても、ユーザーが部分的に「太字」や「文字色（赤）」を手動で上書きしているケースがある点です。
スタイル名だけで検索すると、こうした「部分的な手動装飾」を巻き込んで挙動がおかしくなることがあります。
- 処方箋: 必要に応じて `.MatchFormatting` などを組み合わせるか、あらかじめ「スタイル以外の直接書式をクリアする」前処理を入れておくと完璧です。
トラブル2：日本語のスタイル名で指定したい
英語の定数（`wdStyleNormal` など）は分かりにくいから、Word上の表示名である `”標準”` や `”見出し 1″` で指定したい！という場合もありますよね。
実は、`.Style` には文字列をそのまま渡すことも可能です。
‘ 英語の定数ではなく、Wordに表示されているスタイル名を直接指定する例
rngTarget.Find.Style = ActiveDocument.Styles(“標準”)
このように `ActiveDocument.Styles(“スタイル名”)` オブジェクトを渡してあげると、日本語環境でも直感的に記述できます。お好みに合わせて使い分けてみてください。
—
おわりに：あなたのWord VBAはもう「怖くない」
お疲れ様でした！
「文字列＋段落スタイル」を組み合わせた検索・置換の仕組み、しっかり腑に落ちたのではないでしょうか。
マクロの記録だけでは決して辿り着けない、オブジェクトの初期化（ClearFormatting）や、範囲（Range）の概念、そしてスタイル指定という文脈の付与。これらをマスターしたあなたは、もう初心者ではありません。
実務の現場で「Wordの置換ミスで半日消えた……」なんて悲劇を、あなたの手でスマートに防いであげてください。
それでは、次回の極意でお会いしましょう。あなたの自動化ライフが素晴らしいものになりますように！
