Word VBAの「置換」を統御せよ：検索・置換ログをExcelへ昇華させるアーキテクチャ設計
Word VBAにおける`Find`オブジェクトは、多くのジュニア層が「ただの検索ツール」として扱うが、それは深淵の入り口に過ぎない。大規模ドキュメントの置換において、我々アーキテクトが直面するのは「何が置換されたのか」というトレーサビリティの欠如だ。
本稿では、単なる文字列置換を超え、変更箇所を文脈（コンテキスト）と共にExcelへ抽出・記録する、堅牢な監査ログ・アーキテクチャを提示する。
—
1. 検索の再定義：Findオブジェクトのライフサイクル管理
Wordの`Range.Find`は、実行するたびにカーソル位置（Rangeの終端）が更新される。これを安易にループさせると、ドキュメントの先頭へ戻る処理（`Wrap`プロパティの制御）で無限ループに陥るか、メモリの断片化を招く。
パフォーマンスを最大化するためには、「Rangeオブジェクトを再定義し続ける」のではなく、「単一のRangeを検索の終端へ動かし続ける」というメモリ効率の良い戦略を採るべきである。
2. コンテキスト抽出の極意：前後の文脈を捉える
単に置換対象を取得するだけでは不十分だ。置換前後の検証には、「前後数文字」のコンテキストが不可欠である。これを実現するには、`Find.Execute`でヒットした`Range`を起点に、`MoveStart` / `MoveEnd`を用いて範囲を拡張するロジックが必要となる。
実装コード：WordからExcelへの変更ログ出力
以下のコードは、Wordドキュメント内の対象文字列を置換し、変更前後の文脈をExcelの別プロセスへ書き出すための堅牢な実装だ。
Option Explicit
‘ 伝説的なエンジニアは遅延バインディングを好むが、
‘ 開発効率と型安全性を重視し、適宜参照設定（Microsoft Excel XX.0 Object Library）を推奨する。
Public Sub ExportReplaceLogToExcel()
Dim wdDoc As Document: Set wdDoc = ActiveDocument
Dim xlApp As Object, xlWb As Object, xlWs As Object
Dim rng As Range, logRow As Long
‘ Excelのインスタンス生成（新規プロセス起動）
Set xlApp = CreateObject(“Excel.Application”)
Set xlWb = xlApp.Workbooks.Add
Set xlWs = xlWb.Sheets(1)
‘ ヘッダーの初期化
xlWs.Range(“A1:D1”).Value = Array(“置換前文脈”, “変更前”, “変更後”, “置換時刻”)
logRow = 2
‘ 検索範囲の初期化（ドキュメント全体）
Set rng = wdDoc.Content
With rng.Find
.ClearFormatting
.Text = “旧用語” ‘ 検索対象
.Replacement.Text = “新用語”
.Forward = True
.Wrap = wdFindStop
.Format = False
Do While .Execute
‘ 1. コンテキスト取得（現在のヒット範囲を前後5文字拡張）
Dim contextRng As Range
Set contextRng = rng.Duplicate
contextRng.MoveStart Unit:=wdCharacter, Count:=-5
contextRng.MoveEnd Unit:=wdCharacter, Count:=5
‘ 2. Excelへの書き出し
xlWs.Cells(logRow, 1).Value = contextRng.Text
xlWs.Cells(logRow, 2).Value = “旧用語”
xlWs.Cells(logRow, 3).Value = “新用語”
xlWs.Cells(logRow, 4).Value = Now
‘ 3. 置換実行
rng.Collapse Direction:=wdCollapseEnd
logRow = logRow + 1
Loop
End With
‘ メモリ最適化：オブジェクトの明示的解放
xlApp.Visible = True
Set rng = Nothing
Set xlWs = Nothing
Set xlWb = Nothing
Set xlApp = Nothing
End Sub
—
3. レガシー環境とWindows API：極限のチューニング
もしあなたが数万ページ規模のドキュメントを相手にしているなら、VBAの「再描画」が最大のボトルネックとなる。
- `Application.ScreenUpdating = False` の徹底:
処理開始時にOFFにし、終了時にONに戻すのは基本中の基本。しかし、エラーハンドラで確実にONに戻さないと、ユーザーのWordが「フリーズした」と誤認される。
- Windows APIの活用:
もし置換処理が数分以上かかるような大規模バッチであれば、`Sleep`関数（`kernel32`）を呼び出し、OS側のメッセージキューを解放する（`DoEvents`の代替案として）手法が、CPU負荷を抑えるためのプロフェッショナルの嗜みである。
4. 結びに：エンジニアの誇り
このコードは単なる「自動化スクリプト」ではない。置換という不可逆な破壊的行為に対して、「いつ、どこを、どう変えたか」という監査証跡を残すための防御的アーキテクチャである。
システムが巨大化すればするほど、こうしたログの価値は計り知れないものになる。コードを記述する際は、常に「半年後の自分」と「このシステムを保守する後任者」の視座を忘れないこと。
それが、真のアーキテクトが書くべきコードの条件である。
