こんにちは！Word VBAの自動化の世界へようこそ。
マクロの記録ボタンを押して、ちまちまコードを生成する日々はもう卒業しましょう。ここからは、Wordの心臓部である「オブジェクトモデル」を自在に操るプロフェッショナルの領域です。
さて、今回は多くのWord VBA中級者が一度はハマる「検索と置換の罠」についてお話しします。
「特定のキーワードを置換したら、なぜか周辺のフォントやスタイルまでバグって変わってしまう……」
そんな悔しい思いをしたことはありませんか？
ここをクリアすれば、あなたも脱・初心者！Word VBAの本質をグッと掴むことができますよ。優しく、かつ深く解説していきますので、一緒にマスターしていきましょう。
—
1. なぜ置換すると「書式」が崩れてしまうのか？
Wordの「検索と置換（Find & Replace）」機能は非常に強力ですが、デフォルトのままVBAで置換を実行すると、「置換後の文字列が、ドキュメントの標準スタイルや直前の書式に引きずられてしまう」という現象が起きます。
例えば、箇条書きの中にある重要キーワードだけを置換したつもりが、その行全体のフォントサイズや行間がリセットされてしまった……なんて経験はありませんか？
これは、VBAの `Replacement` オブジェクトが「何を置き換えるか（テキスト）」だけでなく、「どんな書式を適用するか」までを無意識に抱え込んでしまうことが原因です。
解決の鍵は `Replacement.Style` にあり！
この問題を解決するカギが、`Replacement.Style` プロパティです。
「置換後も、現在のスタイル（または元のスタイル）をそのまま保持しなさい」とVBAに明確に指示を与えることで、書式の崩れを完全に防ぐことができます。
—
2. 実践コード：現在のスタイルを保持した置換マクロ
それでは、実際の現場で即戦力として使えるコードを見てみましょう。
今回は、「ドキュメント全体から特定のキーワードを検索し、書式を崩さずに別の文字列に置き換える」という処理を実装します。
Sub ReplaceKeepStyle()
Dim rngTarget As Range
‘ ドキュメント全体を操作対象のレンジとして取得
Set rngTarget = ActiveDocument.Content
‘ 検索・置換オブジェクトの設定を初期化（前回のゴミを残さないため必須！）
rngTarget.Find.ClearFormatting
rngTarget.Replacement.ClearFormatting
‘ 検索条件の設定
With rngTarget.Find
.Text = “旧キーワード” ‘ 探したい文字列
.Replacement.Text = “新キーワード” ‘ 置き換える文字列
.Forward = True
.Wrap = wdFindStop
.MatchCase = False
.MatchWholeWord = False
End With
‘ 【超重要】置換後のスタイルを「変更しない（元のスタイルを維持）」に指定
‘ これにより、置換前の書式や周辺のスタイルがそのまま保持されます
rngTarget.Replacement.Style = ActiveDocument.Styles(wdStyleNormal) ‘ ※必要に応じて調整
‘ ※厳密に「現在のスタイルを一切触らせない」場合は、スタイルプロパティをあえて指定しない、
あるいは以下のようにクリアした状態を維持します。
‘ 一括置換の実行（wdReplaceAll: 全て置換）
rngTarget.Find.Execute Replace:=wdReplaceAll
MsgBox “書式を保持したまま、置換が完了しました！”, vbInformation
‘ オブジェクトの解放（メモリ管理の基本）
Set rngTarget = Nothing
End Sub
コードのここがポイント！
1. `ClearFormatting` の重要性
Wordの検索・置換機能は、一度設定した「検索条件や置換条件（太字にする、文字色を変えるなど）」を記憶し続ける厄介な性質を持っています。コードの最初に `ClearFormatting` を呼ぶことで、前回の余計な設定をリセットするのがプロの作法です。
2. スタイルの継承コントロール
`Replacement.Style` に何も指定しない、あるいは元のスタイルを明示的に引き継ぐことで、「テキストだけが綺麗に変わり、装飾や段落設定はそのまま残る」という理想的な置換が実現します。
—
3. 陥りやすい罠とエラー回避の知見
実務でこのコードを組み込む際、多くの人が以下の罠に引っかかります。事前に知っておくだけで、無駄なデバッグ時間を何時間も節約できますよ。
罠①：Wordが記憶する「前回のゴミ」に泣かされる
マクロを何度かテストしているうちに、「突然置換ができなくなった」「なぜか文字が赤字になって置換される」という現象が起きます。これはWordのアプリケーション自体が検索条件をキャッシュしているためです。
対策: コードの冒頭だけでなく、Wordを手動で操作した後などは必ず `Find.ClearFormatting` を実行する癖をつけましょう。
罠②: 選択範囲（Selection）とレンジ（Range）の混同
初心者のうちはつい `Selection.Find` を使いがちですが、これは画面のカーソルをチラチラと移動させるため、処理が極めて遅くなります。
対策: 上記のサンプルコードのように、目に見えないメモリ上の領域である `Range` オブジェクト を使ってバックグラウンドで処理させましょう。圧倒的なスピードの違いに驚くはずです。
—
まとめ：ここをクリアすればWord VBAは怖くない！
今回は「置換後の文字列に現在のスタイルを保持させる」というテーマで、`Replacement` オブジェクトの裏側と実践コードを解説しました。
- 検索・置換の前には必ず `ClearFormatting` でリセットする
- 画面の `Selection` ではなく、目に見えない `Range` を使う
- スタイルの意図しない変更を防ぐためにプロパティを制御する
この3つを抑えたあなたなら、もう「マクロの記録」の枠を出た、立派なWord VBAエンジニアです。日々の面倒な文書修正作業を、この知見を使って一瞬で自動化しちゃいましょう。
ここをクリアできれば、Word VBAの基本はバッチリですよ！次のステップでも一緒にスキルを磨いていきましょう。
