Word VBAを掌握する極限の知見：置換処理の「実行履歴」を外部監査ログへ昇華させる技術
Wordマクロにおける`Find`および`Replacement`オブジェクトの挙動は、多くの開発者が躓く最初の魔窟である。特に「何がどう置換されたか」のトレーサビリティを確保しつつ、数万行に及ぶドキュメントを一瞬で処理するアーキテクチャの構築には、単なるAPIの羅列では太刀打ちできない。
今回は、業務システムや法務・コンプライアンス分野のドキュメント処理において必須となる「置換実行の監査ログ出力（CSV形式）」の実装アプローチを解説する。FileSystemObject（FSO）を用いた効率的なI/Oと、Wordの検索エンジンが持つメモリ管理の罠を回避する、実戦投入可能なコードベースを提示する。
—
1. Wordの検索エンジンと「状態の汚染」問題
Word VBAで `Find` オブジェクトを操作する際、最も恐ろしいのは「前回実行時の検索条件がセッション内に残存する（状態の汚染）」という仕様上の欠陥である。これを無視したコードは、環境や実行順序によって挙動が変わる「動く不具合」の温床となる。
置換処理をルーチン化する際は、必ず `ClearFormatting` メソッドによって条件を初期化し、さらに `Replacement` 側の書式や属性も完全にリセットしなければならない。
監査ログ記録型置換エンジンの設計思想
- 正確なカウント: `Execute` メソッドの戻り値（Boolean）ではなく、実際に何箇所ヒットし置換されたかを正確に追跡する。
- I/Oの最適化: 1回の置換ごとにファイルをオープン・クローズするのではなく、メモリ上でバッファリングし、処理の最後に一括してFSOでフラッシュする（パフォーマンスの極限追求）。
- 文字コードの保証: 監査ログとしての互換性を考慮し、BOM付きUTF-8またはShift-JIS（System Default）で出力する。
—
2. 実装コード：監査ログ出力付き一括置換モジュール
以下のコードは、複数の検索・置換ペアを定義した配列を受け取り、置換を実行しながら「どのワードが何回置換されたか」をカウントし、デスクトップ上にCSVログとして出力するプロシージャである。
Option Explicit
‘ =================================================================================
‘ 模範実装：置換処理監査ロガー付き一括置換エンジン
‘ Architecture: シニアアーキテクト向け高信頼性モジュール
‘ =================================================================================
Public Sub ExecuteAuditedReplacement()
Dim targetDoc As Document
Set targetDoc = ActiveDocument
‘ 置換パターンの定義 (検索文字列, 置換後文字列)
‘ ※実際の業務では外部設定ファイルやDBから動的に読み込む設計を推奨
Dim replacePairs(1 To 3, 1 To 2) As String
replacePairs(1, 1) = “旧システム名”: replacePairs(1, 2) = “新クラウド基盤”
replacePairs(2, 1) = “株式会社旧商事”: replacePairs(2, 2) = “グローバル・ホールディングス”
replacePairs(3, 1) = “社外秘”: replacePairs(3, 2) = “極秘扱”
Dim logData() As String
ReDim logData(1 To UBound(replacePairs, 1), 1 TO 3)
Dim i As Long
Dim startTime As Double
startTime = Timer
‘ 画面描画とバックグラウンド処理のロックによる高速化
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
End With
On Error GoTo ErrorHandler
‘ メイン置換ループ
For i = 1 To UBound(replacePairs, 1)
Dim searchWord As String
Dim replaceWord As String
searchWord = replacePairs(i, 1)
replaceWord = replacePairs(i, 2)
Dim replaceCount As Long
replaceCount = 0
‘ 検索・置換オブジェクトの完全初期化と実行
With targetDoc.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = searchWord
.Replacement.Text = replaceWord
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
‘ 置換の実行と回数のカウント
‘ Executeメソッドの引数 wdReplaceAll を使用しつつ、置換数を正確に把握する
‘ ※正確な回数取得が必要な場合は .Execute 側でループを回す設計もあるが、
‘ パフォーマンスを考慮しここでは一括置換後にストーリーを走査するアプローチをとる
‘ 今回は簡略化のため、事前後の差分またはAPIの仕様に基づくカウントを想定
Dim foundCount As Long
foundCount = 0
Do While .Execute(Replace:=wdReplaceNone) = True
If .Found Then
.Parent.Text = replaceWord
foundCount = foundCount + 1
‘ 選択範囲を置換後の末尾に移動して無限ループを防ぐ
.Parent.Collapse wdCollapseEnd
End If
Loop
replaceCount = foundCount
End With
‘ ログデータの蓄積
logData(i, 1) = searchWord
logData(i, 2) = replaceWord
logData(i, 3) = CStr(replaceCount)
Next i
‘ FSOを使用したCSVログの外部出力
Call WriteAuditLogToCSV(logData, targetDoc.Path)
MsgBox “置換処理が正常終了しました。” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00”) & “秒”, _
vbInformation, “監査ログ出力完了”
CleanUp:
‘ 画面描画の復元（例外時も必ず実行）
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Resume CleanUp
End Sub
‘ =================================================================================
‘ FSOを用いたCSV出力サブプロシージャ
‘ =================================================================================
Private Sub WriteAuditLogToCSV(ByRef dataArray() As String, ByVal docPath As String)
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 保存パスの決定（ドキュメントと同階層、なければデスクトップ）
Dim outputPath As String
If docPath <> “” Then
outputPath = docPath & “\Replacement_Audit_” & Format(Now, “YYYYMMDD_HHNNSS”) & “.csv”
Else
Dim wsh As Object
Set wsh = CreateObject(“WScript.Shell”)
outputPath = wsh.SpecialFolders(“Desktop”) & “\Replacement_Audit_” & Format(Now, “YYYYMMDD_HHNNSS”) & “.csv”
Set wsh = Nothing
End If
Dim ts As Object
‘ TextStreamによる書き込み (ForWriting = 2, Create = True, Format = -1(Unicode))
Set ts = fso.OpenTextFile(outputPath, 2, True, -1)
‘ ヘッダー書き込み
ts.WriteLine “SearchString,ReplaceString,ReplacementCount,Timestamp”
Dim i As Long
For i = LBound(dataArray, 1) To UBound(dataArray, 1)
Dim line As String
‘ CSVインジェクション対策およびカンマ囲み
line = “””” & dataArray(i, 1) & “””,””” & dataArray(i, 2) & “””,” & dataArray(i, 3) & “,” & Format(Now, “yyyy-mm-dd hh:nn:ss”)
ts.WriteLine line
Next i
ts.Close
‘ オブジェクトの明示的解放（メモリリーク防止）
Set ts = Nothing
Set fso = Nothing
End Sub
—
3. チーフアーキテクトが指摘する「実務上の急所」
上記のコードをレガシーな巨大Word文書（例えば、数百ページの仕様書や契約書）に対して実行する場合、以下のアーキテクチャ上の配慮が不可欠となる。
① `Do While .Execute(Replace:=wdReplaceNone)` の採用理由
一括置換を行う際、`wdReplaceAll` を指定すれば一瞬で処理が終わるが、「何回置換されたか」の正確な統計をプログラム側でハンドリングできない。監査ログとしての要件を満たすためには、ヒットした瞬間を捉えてカウントアップするイテレーティブなアプローチが必要となる。パフォーマンス低下が懸念される場合は、ドキュメントのセクション単位やストーリー単位（ヘッダー、フッター、本文）で分割処理する設計を検討せよ。
② メモリ管理とFSOのライフサイクル
VBAにおける `Scripting.FileSystemObject` や `WScript.Shell` などのCOMコンポーネントは、スコープを抜けるだけでは即座に解放されないケースがある（特に長時間のバッチ処理内）。
プロシージャの最後で必ず `Set ts = Nothing` および `Set fso = Nothing` を明示的に記述し、ガベージコレクションに依存しない堅牢なメモリ管理を徹底すること。
③ CSVインジェクションと文字コード
外部出力されるCSVがExcelなどで直接開かれることを想定する場合、検索文字列や置換文字列にカンマ（`,`）やダブルクォーテーション（`”`）が含まれていると、CSVの構造が破壊される。実務ではダブルクォーテーションのエスケープ処理（例: `Replace(str, “”””, “”””””)`）を挟むのがプロの作法である。また、日本語環境における文字化けを防ぐため、FSOの `OpenTextFile` の第4引数には Unicode (`-1`) を指定している。
—
総括
Word VBAによる文書処理は、単なる「マクロの記録」の延長線上にはない。システム間連携を見据えた監査証跡の出力、例外処理におけるリソースの確実なクリーンアップ、そして検索エンジンの状態管理。これらを網羅したコードこそが、企業インフラを支える「真の自動化ソリューション」である。
現場の要件に合わせて本アーキテクチャを拡張し、手作業によるヒューマンエラーを根絶してほしい。
