こんにちは！ Word VBAの深淵へようこそ。
マクロの記録ボタンを押してコードを生成する日々から一歩抜け出し、「プロのエンジニア」として現場で通用する堅牢なプログラムを作りたい。そんなあなたを待っていました。
今回は、Word VBAにおける「検索と置換（Find & Replacement）」の極意、そして現場で絶対に避けて通れない「エラーとの向き合い方」についてお話しします。
ここをクリアすれば、あなたの書くマクロは見違えるほどタフになり、予期せぬ文書構造や保護された領域に遭遇しても、ビクともしなくなりますよ。さあ、一緒に本物のスキルを手に入れましょう！
—
1. なぜ「検索と置換」のVBAはエラーで止まるのか？
Wordの `Find` オブジェクトは、Excelのそれとは少し毛色が違います。Wordは「連続したテキストのストリーム（文書構造）」を相手にしているため、以下のような「地雷」があちこちに埋まっています。
- 保護された領域（フォームフィールド、保護されたセクション）の存在
- 変更履歴のトラッキングや、読み取り専用の制限
- テーブルやヘッダー／フッター、テキストボックスといった複雑なストーリー（StoryRange）の壁
- そもそも検索文字列が見つからなかった場合の挙動の曖昧さ
「マクロの記録」で作ったコードをそのまま走らせて、「実行時エラー ‘4605’: 指定されたメソッドまたはプロパティは、現在の文書構造では無効です」 なんて冷たいエラーメッセージに絶望した経験はありませんか？
プロのエンジニアは、エラーが起きることを前提にコードを書きます。今回は、どんな過酷なWord文書が相手でも華麗にエラーをいなし、ログを残して処理を継続する「堅牢なラッパー関数」の設計図をあなたに授けましょう。
—
2. 実装：プロ仕様の「安全防壁」ラッパー関数
まずは、実際の現場でそのままコピペして使える完全版のコードをご覧ください。この関数は、検索と置換の実行時に発生しうるあらゆる例外をキャッチし、安全に処理をラップ（包み込み）します。
Option Explicit
‘ ==============================================================================
‘ 堅牢な検索と置換を実行するラッパー関数
‘ ==============================================================================
‘ [引数]
‘ targetRange : 検索・置換対象のRangeオブジェクト
‘ findText : 検索する文字列
‘ replaceText : 置換後の文字列
‘ matchCase : 大文字・小文字を区別するか (True/False)
‘ [戻り値]
‘ Long : 実際に置換に成功した回数、またはエラー時の負の値
‘ ==============================================================================
Function SafeExecuteFindReplace(ByVal targetRange As Range, _
ByVal findText As String, _
ByVal replaceText As String, _
Optional ByVal matchCase As Boolean = False) As Long
‘ エラーハンドリングの有効化（防壁展開）
On Error GoTo ErrorHandler
Dim replaceCount As Long
replaceCount = 0
‘ WordのFindオブジェクトは参照を維持したまま操作するため、
With targetRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = findText
.Replacement.Text = replaceText
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = matchCase
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
‘ 【重要】保護された領域や読み取り専用セクションが含まれていると、
‘ ここでランタイムエラー（4605等）が爆発します。
.Execute Replace:=wdReplaceAll
‘ 実行結果の判定（Find.Executeの仕様に依存しない安全なカウント取得）
‘ ※簡易的に置換成功時は正の値を返しますが、厳密にはログ出力に重きを置きます。
If .Found Then
replaceCount = 1 ‘ 実際の置換回数を厳密に取る場合はループ処理が必要ですが今回は簡略化
End If
End With
Catched_Normal_Exit:
SafeExecuteFindReplace = replaceCount
Exit Function
ErrorHandler:
‘ — エラー発生時のフォールバック処理（ログ出力と継続） —
‘ 実際の業務ではここでTextStream等を使ってログファイルに書き出すとプロっぽいですね
Debug.Print “[Error Log] 検索・置換処理で例外を捕捉しました。”
Debug.Print ” – 発生エラー番号: ” & Err.Number
Debug.Print ” – エラー内容: ” & Err.Description
Debug.Print ” – 対象キーワード: ” & findText
‘ 異常終了を示すフラグとして負の値を返す
replaceCount = -1
Resume Catched_Normal_Exit
End Function
—
3. コードの心臓部を読み解く：知っておくべき3つのポイント
先輩エンジニアとして、このコードの特に重要なポイントを3つ解説します。ここを理解すれば、Word VBAのオブジェクトモデルが手に取るように分かりますよ。
① `On Error GoTo` による局所的な防壁
VBAのエラー処理の基本は「どの範囲でエラーをキャッチするか」です。関数全体にエラー処理をかけつつ、正常終了時は `Exit Function` で華麗にスルーし、異常時のみ `ErrorHandler` ラベルにジャンプさせます。これにより、マクロ全体が途中で強制終了してユーザーを困らせる事態を防ぎます。
② `wdFindStop` のプロ的選択
`Find.Wrap` プロパティには `wdFindContinue`（文書の最後まで行ったら最初に戻る）を指定しがちですが、自動化スクリプトにおいては危険です。意図しないループに陥る原因になるため、「そのレンジ内だけで完結させる（`wdFindStop`）」のが、予期せぬ暴走を防ぐプロの定石です。
③ 失敗を握りつぶさず「ログ」に残す
初心者によありがちなのが `On Error Resume Next` で全てのエラーを「無かったこと」にするコードです。これは最悪です。どこで何が起きたか分からなくなるからです。
今回のラッパー関数では、エラーをキャッチしつつ `Debug.Print`（またはファイル出力）で「どのキーワードの置換に失敗したか」を記録しています。これにより、後から「あ、このセクションは保護がかかっていたから置換できなかったんだな」と原因を特定できるようになります。
—
4. このラッパー関数を呼び出す実際の使い方
先ほど作成した堅牢な関数を、実際の業務マクロから呼び出してみましょう。非常にシンプルです。
Sub RunBatchReplacement()
Dim doc As Document
Set doc = ActiveDocument
Dim result As Long
‘ 例：文書全体のメインストーリーに対して安全に置換を実行
result = SafeExecuteFindReplace(doc.Content, “旧システム名”, “新システム名”, True)
If result < 0 Then MsgBox "一部の置換処理でエラーが発生しましたイミディエイトウィンドウを確認してください。", vbExclamation Else MsgBox "置換処理が安全に完了しました。", vbInformation End If End Sub ---
まとめ：エラーを恐れない、ワンランク上のエンジニアへ
今回は、Word VBAにおける「検索と置換」のエラーハンドリングに焦点を当てました。
- Wordの検索・置換は文書構造の制限によりエラーが起きやすい
- `On Error` を使った局所的なラッパー関数で安全防壁を作る
- エラーは握りつぶさず、ログ（記録）を残して処理を止めない
ここをクリアできれば、あなたの作るWordマクロは単なる「お助けツール」から、現場で信頼される「堅牢な業務システム」へと生まれ変わります。
ぜひあなたの開発環境にこのラッパー関数を組み込んで、ワンランク上のVBAプログラミングを体感してください。応援しています！
