Word VBAの深淵へ：置換処理を「見える化」し、信頼を勝ち取るエンジニアリング
こんにちは。自動化の現場で血を流し、数多のスパゲッティコードを浄化してきたエンジニアです。
Wordの「置換」機能、便利ですよね。しかし、大規模なドキュメントで一括置換をかけた後、「本当に意図した通りに置換されたか？」と冷や汗をかいた経験はありませんか？
今回は、マクロの記録を卒業し、「置換の結果をExcelへ書き出し、変更履歴レポートを生成する」という、プロレベルの自動化テクニックを伝授します。これさえ理解すれば、あなたの自動化は「単なる作業代行」から「品質保証を伴うエンジニアリング」へと進化します。
—
1. なぜ「置換の見える化」が必要なのか？
Wordの`Find.Execute`メソッドは強力ですが、置換後の確認は人間が目で追うには限界があります。
特に重要なドキュメントでは、以下の3点をログとして残すのが鉄則です。
1. どこが（何ページ目か）
2. 何を（置換前）
3. 何に（置換後）
これらをExcelに掃き出すことで、後のレビューが劇的に楽になります。では、さっそく実装の心臓部へ踏み込みましょう。
—
2. 実装の設計図：Word VBAからExcelを操る
まず大切なのは、「WordからExcelを遠隔操作する」という考え方です。VBAでは、外部アプリを制御するために「オブジェクト変数」というものを使います。
今回のコードのポイント
- `Range`オブジェクトの活用: 検索対象の範囲を絞り込み、文脈を切り取ります。
- `Late Binding`（遅延バインディング）の推奨: Excelがインストールされていない環境でもWordマクロが即座にクラッシュしないよう、柔軟な設計にします。
実装コード（コピペ用）
Sub ExportReplaceLogToExcel()
Dim wdApp As Document: Set wdApp = ActiveDocument
Dim xlApp As Object, xlBook As Object, xlSheet As Object
Dim rng As Range
Dim i As Long: i = 2 ‘Excelのヘッダー用
‘ Excelを起動（既に開いていればそれを取得）
On Error Resume Next
Set xlApp = GetObject(, “Excel.Application”)
If xlApp Is Nothing Then Set xlApp = CreateObject(“Excel.Application”)
On Error GoTo 0
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
‘ Excelヘッダー設定
xlSheet.Range(“A1:C1”).Value = Array(“置換箇所(抜粋)”, “置換前”, “置換後”)
xlApp.Visible = True
‘ 検索置換の設定
Set rng = wdApp.Content
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = “古い用語” ‘ 検索文字列
.Replacement.Text = “新しい用語” ‘ 置換文字列
.Forward = True
.Wrap = wdFindContinue
‘ 置換実行のループ
Do While .Execute(Replace:=wdReplaceOne)
‘ 変更箇所周辺の文脈を切り出し（前後の文脈を含む）
Dim context As String
context = rng.Duplicate.Sentences(1).Text
‘ Excelに書き込み
With xlSheet
.Cells(i, 1).Value = context
.Cells(i, 2).Value = “古い用語”
.Cells(i, 3).Value = “新しい用語”
End With
i = i + 1
‘ 置換した箇所の後ろへ移動して検索続行
rng.Collapse wdCollapseEnd
Loop
End With
MsgBox “置換完了！レポートを確認してください。”
End Sub
—
3. 初学者が陥りやすい「3つの罠」
コードを書いていると、必ず「なぜか動かない」「エラーで止まる」という壁にぶつかります。この3つを意識するだけで、トラブルは激減します。
① ループから抜け出せない（無限ループの恐怖）
`rng.Collapse wdCollapseEnd` を忘れると、同じ箇所を永遠に検索し続け、Wordがフリーズします。必ず`Execute`が終わった後は、範囲を「置換した箇所の最後」に移動させてください。
② Excelのインスタンスが消えない
コード実行後にタスクマネージャーを見ると、裏で`EXCEL.EXE`が残り続けていることがあります。これを防ぐには、最後に `Set xlApp = Nothing` を行うのがマナーです。
③ 文字列の「正規表現」を使いたい場合
今回紹介したのはWord標準の検索ですが、複雑なパターン（例：「202x年」をすべて見つけたい等）には正規表現（VBScript.RegExp）を組み合わせます。これについては、また別の機会に深く語りましょう。まずはこの「標準置換でのログ出力」を完璧に使いこなすことが先決です。
—
4. 最後に：エンジニアとしての一歩先へ
「マクロの記録」で生成されるコードは、あくまで「初心者が動かすためのプロトタイプ」に過ぎません。今回のような、「外部アプリケーションと連携し、業務プロセス自体を可視化する」という設計思想こそが、現場で重宝される自動化エンジニアの証です。
まずはこのコードを自分の環境で動かし、`rng.Duplicate` の範囲を調整して「文脈をどれだけ詳しく拾えるか」を試してみてください。
ここをクリアすれば、あなたはもうただの事務担当ではありません。「ドキュメントの品質を保証する自動化アーキテクト」の入り口に立っています。応援していますよ！
