【Word VBA深層】置換の不可逆性を克服せよ：Findオブジェクトのライフサイクルを制御した「監査ログ」の完全実装
Wordの`Find`オブジェクトは強力だが、その挙動は「破壊的」だ。一度置換を実行すれば、元のコンテキストは失われる。大規模なドキュメントの置換作業において、後から「どこで、何が、どう変わったのか」を追跡できないことは、システムエンジニアとしては致命的なリスクである。
今回は、単なる置換マクロではなく、`FileSystemObject` (FSO) を統合し、置換の実行履歴をバイナリレベルで制御する、堅牢な監査ログの実装手法を授ける。
—
1. 破壊的検索から「観測可能な」検索へ
Wordの`Selection.Find`は、実行のたびにカーソル位置（`Range`オブジェクト）が更新される。ループ処理においてこの状態管理を誤れば、無限ループやメモリリークの温床となる。
シニアエンジニアが意識すべきは、「置換対象をRangeオブジェクトとして厳密に切り出し、そのコンテキストをログに書き出してから操作を確定させる」という一連のトランザクションだ。
2. アーキテクチャの実装コード
このコードは、置換が発生する瞬間のコンテキストをスナップショットとしてログに記録する。`Scripting.FileSystemObject`を使用し、I/O負荷を最小限に抑えるようストリームを制御する。
Option Explicit
‘ 伝説的なエンジニアはグローバルスコープを汚染しない
‘ 必要最小限のオブジェクトを定義し、スコープ終了時に確実に破棄する
Public Sub ExecuteReplaceWithAuditLog(ByVal findStr As String, ByVal replaceStr As String)
Dim doc As Document: Set doc = ActiveDocument
Dim rng As Range
Dim fso As Object: Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim logFile As Object
Dim logPath As String
‘ デスクトップにログを出力
logPath = Environ(“USERPROFILE”) & “\Desktop\ReplaceLog_” & Format(Now, “yyyymmdd_hhnnss”) & “.txt”
Set logFile = fso.CreateTextFile(logPath, True)
Set rng = doc.Content
‘ Findオブジェクトの初期化
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = findStr
.Replacement.Text = replaceStr
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
Do While .Execute
‘ 置換が行われる「前」のコンテキストを記録
‘ パフォーマンス向上のため、必要な情報のみを抽出
logFile.WriteLine “置換箇所: ” & rng.Start & ” – ” & rng.End
logFile.WriteLine “対象: [” & rng.Text & “] -> [” & replaceStr & “]”
logFile.WriteLine “—”
‘ 置換を実行し、Rangeを再定義
rng.Text = replaceStr
rng.Collapse Direction:=wdCollapseEnd
Loop
End With
‘ リソースの解放（VBAでは明示的解放がメモリ安定性の鍵となる）
logFile.Close
Set logFile = Nothing
Set fso = Nothing
Set rng = Nothing
MsgBox “置換完了。監査ログを保存しました: ” & logPath, vbInformation
End Sub
—
3. シニアエンジニアが重視すべき「極限の知見」
メモリ最適化とオブジェクトのライフサイクル
VBAの`Set obj = Nothing`は、単なる作法ではない。特にWordのようなCOMオブジェクトを多用する環境では、循環参照やメモリの断片化がパフォーマンスを劇的に劣化させる。`Do`ループ内でのインスタンス生成は厳禁だ。必ずループ外で定義し、ループ内ではプロパティの更新に留めること。
レガシー環境への適応
このコードは、Office 2010以降の全バージョンで動作するように設計している。`CreateObject`による遅延バインディング（Late Binding）を採用することで、参照設定の依存関係を排除し、環境構築のコストを下げている。社内システム管理者が配布するツールとしては、これが最も安定するアーキテクチャだ。
監査ログの真価
単に置換結果を記録するだけでなく、`rng.Start`と`rng.End`を記録している点に注目してほしい。これにより、万が一置換に失敗した際や、意図しない箇所が巻き込まれた際に、Wordの「ブックマーク」機能を使用して該当箇所へ即座にジャンプする機能を後付けで実装可能だ。
結論：自動化は「可視化」と共にあるべき
「自動化すればそれで終わり」という考え方はジュニアの域を出ない。真の自動化エンジニアは、「自動化された処理が、いかにして人間の管理下に置かれるか」を設計する。
置換履歴のログ出力は、そのための第一歩だ。次は、このログファイルを読み込んで「置換取り消し（Undo）」を個別に実行するアーキテクチャへ昇華させてほしい。VBAは、正しく扱えば、まだこれだけの深淵を内包しているのだから。
