【入門編】【中級者向け】FSOを使用して「置換リスト（CSV）」を読み込み、順次置換を行うバッチ処理 – Word VBA解析バイブル

【中級者向け】FSOを使って「置換リスト（CSV）」を読み込み、Word VBAで一括置換するバッチ処理

はじめに：もう手動置換にサヨナラ！自動化の扉を開こう

皆さん、こんにちは！ Word VBAの奥深き世界へようこそ。業務で大量のWord文書を扱っていると、特定の文字列を別の文字列に置き換える作業が頻繁に発生しますよね。一つや二つなら手作業でも良いのですが、これが何十、何百というパターンになると、途端に非効率的になり、ミスも増えてしまいます。

「マクロの記録」で簡単な置換はできたけど、ルールが増えるたびにコードを書き換えるのは面倒だし、もっとスマートな方法はないかな？と思っているあなた。まさにその悩みを解決し、Word VBAの可能性を大きく広げるための記事がこれです。

今回は、外部ファイル（CSV）で置換ルールを管理し、そのリストをWord VBAで読み込んで、自動的にドキュメント内の文字列を置換するバッチ処理を構築します。これにより、コードを一切変更することなく、置換内容を自在に更新できる、運用保守性の高いシステムが手に入ります。

さあ、私たちと一緒に、Word VBAを次のレベルへと引き上げましょう！ここをクリアすれば、Word VBAの基本はバッチリですよ。

なぜ今、FSOと外部ファイルなのか？（運用の本質を見据えて）

「置換ルールをコードに直接書いてはいけないのか？」

もちろん、それでも動きます。しかし、私たちプロフェッショナルは、常に「その先」を見据えます。

コード内直接記述の「見えないコスト」

もし置換ルールをVBAコードの中に直接記述してしまうと、どうなるでしょうか？

保守性の悪化: ルールが増えるたびにVBAエディタを開き、コードを編集・保存し直す必要があります。
エラーリスクの増加: コードに不慣れな人が変更しようとすると、誤ってVBAの構文を壊してしまうリスクが高まります。
運用担当者の負担: プログラミング知識がないとルールを更新できないため、特定の担当者に作業が集中しがちです。
変更履歴の管理の困難さ: どのルールがいつ、誰によって変更されたのかを追跡するのが難しくなります。

これは、一見すると些細なことのように見えて、長期的に見ると莫大な「見えないコスト」となって跳ね返ってきます。

外部ファイル（CSV）化がもたらす「本質的な価値」

そこで、置換ルールをCSVのような外部ファイルで管理する出番です。

1. 分離と独立: コード（処理ロジック）とデータ（置換ルール）が完全に分離されます。
2. 運用効率の劇的向上: VBAコードに触れることなく、CSVファイルをExcelなどで編集するだけでルールを更新できます。プログラミングの知識は一切不要です。
3. エラーリスクの低減: コードの変更による意図しない不具合のリスクを最小限に抑えられます。
4. 変更履歴の管理: CSVファイルをGitなどのバージョン管理システムで管理したり、ファイルサーバー上で変更ログを追跡したりするのが容易になります。
5. 拡張性と柔軟性: 将来的に置換以外のオプション（例えば、大文字小文字の区別、単語単位の置換など）を追加したい場合でも、CSVの列を追加するだけで対応しやすくなります。

この設計思想は、単なるWord VBAのテクニックに留まらず、あらゆる業務システム開発における「保守性」と「運用性」の根幹をなすものです。この感覚を掴むことが、まさに「中級者」への第一歩と言えるでしょう。

FSO（FileSystemObject）の役割

外部ファイルを扱う上で、VBAには `FileSystemObject` (FSO) という非常に強力なオブジェクトが用意されています。これを使うことで、ファイルの作成、読み込み、書き込み、削除、フォルダ操作など、システム上のファイルやフォルダに関するあらゆる操作が可能になります。

今回のケースでは、FSOを使って置換ルールを記述したCSVファイルを「開いて」「一行ずつ読み込む」という重要な役割を担ってもらいます。

今回のシステム概要：CSVとVBAが連携するスマートな仕組み

では、具体的にどのようなシステムを構築するのか、その全体像をイメージしてみましょう。

![システムフローイメージ図](https://via.placeholder.com/800×300/F0F8FF/000000?text=CSV%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%A8Word+VBA%E3%81%AB%E3%82%88%E3%82%8B%E7%BD%AE%E6%8F%9B%E3%83%90%E3%83%83%E3%83%81%E5%87%A6%E7%90%86%E3%83%95%E3%83%AD%E3%83%BC)

ステップ1: 置換リストCSVの作成
Excelなどのテキストエディタで、置換したい「検索文字列」と「置換文字列」、そして「正規表現を使うかどうか」を示すフラグを記述したCSVファイルを作成します。
ステップ2: Word VBAマクロの実行
対象のWordドキュメントを開き、作成したVBAマクロを実行します。
ステップ3: FSOによるCSV読み込み
VBAコード内でFSOを使い、指定されたCSVファイルを読み込みます。
ステップ4: ルールを適用して置換
CSVファイルから読み込んだ置換ルール（検索文字列、置換文字列、正規表現フラグ）を一つずつ解析し、Wordの`Find`オブジェクトを利用してドキュメント内の文字列を一括置換します。

この流れを理解すれば、もうあなたはWord VBAのプロフェッショナルへの階段を一段昇ったも同然ですよ！

準備：置換リストCSVファイルの作成

まずは、置換ルールの元となるCSVファイルを作成しましょう。Excelを使って作成するのが最も簡単です。

CSVファイルのフォーマット

今回はシンプルに、以下の3つの列を持つCSVファイルとします。

1. `検索文字列`: ドキュメント内で探し出す文字列。
2. `置換文字列`: 検索文字列と置き換える文字列。
3. `正規表現使用`: `TRUE` または `FALSE`。`TRUE` の場合、検索文字列を正規表現として解釈します。

ファイル名: `ReplacementList.csv` （任意ですが、この名前に合わせてコードを記述します）
保存場所: マクロを実行するWordファイルと同じフォルダ（これもコードで設定します）

具体的なCSVの例

| 検索文字列 | 置換文字列 | 正規表現使用 |
| :——— | :——— | :———– |
| 株式会社 | (株) | FALSE |
| ワード | Word | FALSE |
| VBA | VBA (Visual Basic for Applications) | FALSE |
| \[a-z]{3,} | XXX | TRUE |
| TEL:(\d{2,4}-\d{2,4}-\d{4}) | 電話番号:$1 | TRUE |

これをメモ帳などで開くと、以下のようにカンマ区切りで表示されます。

検索文字列,置換文字列,正規表現使用
株式会社,(株),FALSE
ワード,Word,FALSE
VBA,VBA (Visual Basic for Applications),FALSE
[a-z]{3,},XXX,TRUE
TEL:(\d{2,4}-\d{2,4}-\d{4}),電話番号:$1,TRUE

【CSV作成時の注意点】

エンコーディング: 日本語を含む場合は、UTF-8 (BOM付き) または Shift-JIS で保存してください。VBAの `TextStream` は通常、システムの既定のエンコーディング（日本語WindowsならShift-JIS）で読み込みますが、UTF-8 BOM付きであれば自動判別してくれます。
区切り文字: カンマ `,` を使用してください。
引用符: 検索文字列や置換文字列にカンマが含まれる場合は、Excelで保存すると自動的にダブルクォーテーション `”` で囲まれます。VBA側でこれに対応できるよう、後述のコードでは `Replace(Replace(strLine, “”””, “”), Chr(13), “”)` のように、余分な引用符や改行文字を除去する処理を入れています。
空行: CSVファイルに空行が含まれないようにしてください。もし含まれてしまう場合は、コード側で空行をスキップする処理が必要です。

コアロジック：Word VBAコードの実装

それでは、いよいよVBAコードを書いていきましょう。
Wordを開き、`Alt + F11` を押してVBAエディタを起動します。
`挿入` -> `標準モジュール` を選択し、新しいモジュールに以下のコードを記述していきます。

事前準備：FSOの参照設定

`FileSystemObject` を使うためには、VBAプロジェクトで参照設定を行う必要があります。

1. VBAエディタで `ツール` -> `参照設定` をクリック。
2. 「参照設定」ダイアログボックスが表示されます。
3. リストの中から `Microsoft Scripting Runtime` を探し、チェックを入れて `OK` をクリックします。

![参照設定のスクリーンショット](https://via.placeholder.com/600×400/F0F8FF/000000?text=Microsoft+Scripting+Runtime+%E5%8F%82%E7%85%A7%E8%A8%AD%E5%AE%9A)
この作業を忘れると、「ユーザー定義型は定義されていません」などのエラーが発生しますので注意してくださいね。

コード全体

Option Explicit

‘
‘ プロシージャ名: BatchReplaceFromCSV
‘ 概要: 外部CSVファイルから置換ルールを読み込み、Wordドキュメントの文字列を一括置換します。
‘ FSO (FileSystemObject) を使用してCSVファイルを処理します。
‘ 正規表現の利用もサポートします。
‘
Sub BatchReplaceFromCSV()

‘ ———————————————————————————-
‘ 宣言部: 使用するオブジェクトや変数を事前に宣言します。
‘ オブジェクトの明示的な宣言は、タイプミスを防ぎ、コードの可読性を高めます。
‘ ———————————————————————————-
Dim fso As Object ‘ FileSystemObject: ファイルシステム操作用オブジェクト
Dim ts As Object ‘ TextStream: テキストファイルの読み書き用オブジェクト
Dim strCsvFilePath As String ‘ CSVファイルのパス
Dim strLine As String ‘ CSVファイルから読み込んだ1行分の文字列
Dim varLineData As Variant ‘ 1行のCSVデータを配列として格納
Dim strFind As String ‘ 検索文字列
Dim strReplace As String ‘ 置換文字列
Dim bUseRegEx As Boolean ‘ 正規表現を使用するかどうかのフラグ
Dim doc As Word.Document ‘ 現在アクティブなWordドキュメント
Dim rng As Word.Range ‘ ドキュメント全体を対象とするRangeオブジェクト

‘ ———————————————————————————-
‘ 処理開始前の設定: ユーザー体験とパフォーマンス向上のための設定を行います。
‘ ———————————————————————————-
Set doc = ActiveDocument ‘ 現在アクティブなドキュメントを設定

‘ 画面更新を停止: これにより、Wordが画面を再描画するのを防ぎ、処理速度が向上します。
‘ 大量の置換を行う際には必須のテクニックです。
Application.ScreenUpdating = False

‘ ———————————————————————————-
‘ CSVファイルのパス設定: マクロがあるWordファイルと同じフォルダ内のCSVを探します。
‘ ———————————————————————————-
‘ ThisDocument.Path は、現在開いているWord文書が保存されているフォルダのパスを返します。
‘ これにより、コードの移植性が高まります。
strCsvFilePath = ThisDocument.Path & “\ReplacementList.csv”

‘ ———————————————————————————-
‘ エラーハンドリング: ファイルが見つからない場合などに備えます。
‘ ———————————————————————————-
On Error GoTo ErrorHandler

‘ ———————————————————————————-
‘ FSOの初期化とCSVファイルのオープン
‘ ———————————————————————————-
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ CSVファイルが存在するかチェック
If Not fso.FileExists(strCsvFilePath) Then
MsgBox “エラー: 置換リストCSVファイルが見つかりません。” & vbCrLf & _
“パス: ” & strCsvFilePath, vbCritical
GoTo CleanUp ‘ エラーハンドラではなく、クリーンアップルーチンへ直接ジャンプ
End If

‘ CSVファイルを読み取りモードでオープン
‘ 1: ForReading (読み取り専用)
‘ False: Create (ファイルが存在しない場合に作成しない)
‘ -1: Format (TristateTrue: システム既定のエンコーディングまたはBOMで自動判別)
Set ts = fso.OpenTextFile(strCsvFilePath, 1, False, -1)

‘ ———————————————————————————-
‘ ヘッダー行のスキップ: CSVの最初の行は通常、列名なので読み飛ばします。
‘ ———————————————————————————-
If Not ts.AtEndOfStream Then
ts.ReadLine ‘ 1行目を読み飛ばす
End If

‘ ———————————————————————————-
‘ WordのFindオブジェクトの設定: ドキュメント全体を対象とします。
‘ ———————————————————————————-
‘ ActiveDocument.Content は、ドキュメントの全内容を表すRangeオブジェクトを返します。
‘ これにより、ドキュメント全体を検索対象とすることができます。
Set rng = doc.Content

‘ Findオブジェクトの初期設定:
‘ これらのプロパティはループの外で一度だけ設定することで、パフォーマンスが向上します。
With rng.Find
.ClearFormatting ‘ 既存の書式設定をクリア
.Replacement.ClearFormatting ‘ 置換文字列の書式設定もクリア
.MatchWholeWord = False ‘ 単語単位で一致させるか（今回は部分一致も許容）
.MatchCase = False ‘ 大文字小文字を区別するか
.MatchByte = False ‘ 半角と全角を区別するか (日本語環境で重要)
.MatchWildcards = False ‘ ワイルドカード（正規表現）を使用するかはCSVから判断
.MatchSoundsLike = False ‘ 音の似た単語を検索するか
.MatchAllWordForms = False ‘ すべての単語の形式を検索するか
.Forward = True ‘ ドキュメントの先頭から末尾へ検索
.Wrap = wdFindContinue ‘ ドキュメントの最後まで検索したら先頭に戻る（今回はRangeが固定なので不要だが習慣として）
End With

‘ ———————————————————————————-
‘ CSVファイルを1行ずつ読み込み、置換処理を実行
‘ ———————————————————————————-
Do While Not ts.AtEndOfStream
strLine = ts.ReadLine ‘ 1行読み込み

‘ 空行やコメント行（先頭が#など）をスキップする処理を追加するとより堅牢になります。
If Trim(strLine) = “” Then GoTo NextLine ‘ 空行はスキップ
If Left(Trim(strLine), 1) = “#” Then GoTo NextLine ‘ #で始まる行はコメントとしてスキップ

‘ CSVデータをカンマで分割
varLineData = Split(strLine, “,”)

‘ データが3列あることを確認
If UBound(varLineData) >= 2 Then
‘ 前後の空白を除去し、引用符があれば除去
strFind = Replace(Trim(varLineData(0)), “”””, “”)
strReplace = Replace(Trim(varLineData(1)), “”””, “”)
‘ 正規表現フラグをブール値に変換
bUseRegEx = (UCase(Replace(Trim(varLineData(2)), “”””, “”)) = “TRUE”)

‘ 実際の置換処理
If strFind <> “” Then ‘ 検索文字列が空でなければ実行
With rng.Find
.Text = strFind ‘ 検索文字列を設定
.Replacement.Text = strReplace ‘ 置換文字列を設定
.MatchWildcards = bUseRegEx ‘ 正規表現フラグを適用

‘ 極限の知見: Find.ExecuteとFind.Replacement.Executeの違い
‘ Find.Executeは「検索して見つかったらTrueを返す」だけです。
‘ 置換を行う場合は、Find.Replacement.Execute を使うのが最も効率的です。
‘ これにより、ドキュメント全体に対して一括で置換処理が実行されます。
‘ ループ内でFind.Executeを繰り返すのは、非常に非効率で遅くなります。
.Execute Replace:=wdReplaceAll ‘ ドキュメント内の全てを置換
End With
End If
Else
MsgBox “警告: CSVファイルのフォーマットが不正な行があります。” & vbCrLf & _
“行: ” & strLine, vbExclamation
End If
NextLine: ‘ 次の行へジャンプするためのラベル
Loop

MsgBox “置換処理が完了しました。”, vbInformation

CleanUp:
‘ ———————————————————————————-
‘ クリーンアップ処理: オブジェクトの解放と画面更新の再開は非常に重要です。
‘ ———————————————————————————-
‘ TextStreamオブジェクトがオープンされていればクローズします。
‘ ファイルハンドルを確実に解放し、ファイルロックを防ぎます。
If Not ts Is Nothing Then
ts.Close
Set ts = Nothing
End If

‘ FileSystemObjectを解放します。
Set fso = Nothing

‘ WordのRangeオブジェクトとDocumentオブジェクトも解放します。（必須ではないが習慣として）
Set rng = Nothing
Set doc = Nothing

‘ 画面更新を再開: 処理後にWordの表示が元に戻ります。
Application.ScreenUpdating = True

Exit Sub ‘ 正常終了時はエラーハンドラをスキップ

ErrorHandler:
‘ エラーが発生した場合の処理
MsgBox “エラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical
Resume CleanUp ‘ エラー発生時もクリーンアップ処理へジャンプ
End Sub

コードの解説と「極限の知見」

上記のコードには、ただ動くだけでなく、効率性、堅牢性、保守性を高めるための重要なポイントがいくつも含まれています。一つずつ見ていきましょう。

1. `Option Explicit` の重要性

Option Explicit

これはモジュールの先頭に必ず記述しましょう。変数の宣言を強制することで、タイプミスによるバグを防ぎ、コードの可読性と安定性を高めます。プロフェッショナルなVBA開発では必須の設定です。

2. 画面更新の停止と再開 (`Application.ScreenUpdating`)

Application.ScreenUpdating = False
‘ … 処理 …
Application.ScreenUpdating = True

Wordが画面を再描画する処理は、非常に多くのCPUリソースと時間を消費します。複数の置換処理を行う際に、画面がチカチカと更新されるのはユーザーエクスペリエンスを損なうだけでなく、処理速度も大幅に低下させます。

`Application.ScreenUpdating = False` を処理の前に設定し、処理後に `True` に戻すことで、画面描画を一時的に停止させ、劇的に処理速度を向上させることができます。これは、Word VBAのパフォーマンスチューニングにおける基本中の基本であり、真っ先に考慮すべきポイントです。

3. CSVファイルのパス設定 (`ThisDocument.Path`)

strCsvFilePath = ThisDocument.Path & “\ReplacementList.csv”

CSVファイルのパスをハードコード（例: `”C:\Users\…\ReplacementList.csv”`) するのではなく、`ThisDocument.Path` を使用しています。これは、マクロが記述されているWord文書と同じフォルダにCSVファイルが置かれていることを想定しています。

この書き方をすることで、Word文書とCSVファイルをセットで別のPCや別の場所に移動させても、コードを修正することなくそのまま動作させることができます。これは、コードの移植性と運用性を高める上で非常に重要な設計です。

4. FSOオブジェクトのライフサイクル管理

Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ …
If Not ts Is Nothing Then
ts.Close
Set ts = Nothing
End If
Set fso = Nothing

`FileSystemObject` や `TextStream` のようなファイル関連のオブジェクトは、システムのファイルハンドル（ファイルへのアクセス権）を握っています。

`Set fso = CreateObject(“Scripting.FileSystemObject”)`: FSOオブジェクトを作成。
`Set ts = fso.OpenTextFile(…)`: `TextStream` オブジェクトを作成し、CSVファイルを開く。
`ts.Close`: 読み込みが終わったら、`TextStream` オブジェクトを必ずクローズします。これを怠ると、ファイルがロックされたままになり、他のアプリケーションからファイルにアクセスできなくなったり、VBAが再度ファイルを開こうとした際にエラーになったりする可能性があります。
`Set ts = Nothing`、`Set fso = Nothing`: オブジェクトを解放します。これは、メモリ上のリソースを適切に解放し、リークを防ぐための重要なステップです。特に、`FileSystemObject` のようなシステムリソースを扱うオブジェクトは、必ず明示的に `Nothing` に設定して解放する習慣をつけましょう。

これらのライフサイクル管理は、安定したプログラムを構築する上で欠かせない「極限の知見」と言えます。

5. Word `Find` オブジェクトの最適化

Set rng = doc.Content
With rng.Find
‘ … 初期設定 …
.Text = strFind
.Replacement.Text = strReplace
.MatchWildcards = bUseRegEx
.Execute Replace:=wdReplaceAll
End With

`doc.Content` の利用: `ActiveDocument.Content` は、ドキュメント全体をカバーする `Range` オブジェクトを返します。これにより、ドキュメント全体を効率的に検索対象とすることができます。`Selection.Find` を使うと、選択範囲が移動するたびにパフォーマンスが低下する可能性がありますが、`Range.Find` は検索範囲が固定されるため、安定したパフォーマンスが得られます。
`Find` オブジェクトの初期設定: `MatchWholeWord`, `MatchCase` などのプロパティは、CSVから読み込むたびに設定し直す必要がない（今回はCSVで一律に設定している）ため、`Do While` ループの外で一度だけ設定しています。これにより、無駄な処理を省き、パフォーマンスを向上させています。
`Execute Replace:=wdReplaceAll` の活用: これが最も重要なポイントです。
初心者は `Find.Execute` で検索し、見つかったら `Selection.Text = “新しい文字列”` のように置換し、再度 `Find.Execute` を繰り返すコードを書きがちです。しかし、これは非常に非効率的です。
Wordの `Find` オブジェクトは、検索と置換を同時に、かつドキュメント全体に対して一括で実行する強力な機能を持っています。それが `Find.Execute Replace:=wdReplaceAll` です。
`Replace:=wdReplaceAll` を指定することで、指定された `Text` (検索文字列) に一致する全ての箇所を、`Replacement.Text` (置換文字列) で一度に置き換えることができます。これにより、VBAコード内でのループ処理が不要になり、Word内部の最適化された処理が実行されるため、圧倒的な高速化が実現されます。これは、Word VBAのFind/Replacement機能を「掌握する」上で、最も重要な「極限の知見」の一つです。

6. 正規表現の活用 (`MatchWildcards`)

.MatchWildcards = bUseRegEx

CSVファイルの3列目で `TRUE` と指定された場合、`Find` オブジェクトの `MatchWildcards` プロパティを `True` に設定しています。これにより、`Find.Text` に指定した文字列が、Wordのワイルドカード（正規表現に近い機能）として解釈され、より柔軟な検索・置換が可能になります。

例えば、`[a-z]{3,}` は「3文字以上の小文字アルファベット」にマッチします。`TEL:(\d{2,4}-\d{2,4}-\d{4})` は「TEL:」に続く電話番号のパターンにマッチし、`$1` で括弧内のマッチした部分（電話番号本体）を参照できます。正規表現は奥深いですが、使いこなせると文字列処理の幅が格段に広がります。

7. 堅牢なエラーハンドリング (`On Error GoTo` と `CleanUp`)

On Error GoTo ErrorHandler
‘ … 処理 …
CleanUp:
‘ … クリーンアップ処理 …
Exit Sub
ErrorHandler:
‘ … エラーメッセージ …
Resume CleanUp

`On Error GoTo ErrorHandler` は、コード実行中にエラーが発生した場合に、指定したラベル (`ErrorHandler`) に処理をジャンプさせます。これにより、予期せぬエラーでプログラムが停止するのを防ぎ、ユーザーにエラーメッセージを適切に表示できます。

そして、`ErrorHandler` からも `Resume CleanUp` で `CleanUp` ラベルにジャンプさせています。これは非常に重要な設計です。エラーが発生した場合でも、画面更新を再開したり、開いているファイルをクローズしたりといった後処理（クリーンアップ）を必ず実行させることで、Wordが異常な状態のまま残ったり、ファイルがロックされたりするのを防ぎます。

正常終了時も、`Exit Sub` で `ErrorHandler` をスキップし、`CleanUp` ルーチンへと進むようにしています。このように、エラーの有無にかかわらず、終了処理を一点に集約するパターンは、安定したプログラムを構築するための「ベストプラクティス」です。

先輩からのアドバイス（極限の知見をさらに深める）

ここまでで、あなたは基本的な自動置換システムを構築できるようになりました。しかし、私たちはここで止まりません。さらに一歩踏み込んで、このシステムの可能性を広げ、より堅牢で賢いものにするためのヒントを共有しましょう。

1. 正規表現のさらなる深化

Wordの`MatchWildcards`は強力ですが、本格的な正規表現（Perl互換正規表現など）に比べると機能が限定的です。もしさらに複雑なパターンマッチングが必要な場合は、VBAから`VBScript.RegExp`オブジェクトを利用することも検討してみてください。

‘ 参照設定: Microsoft VBScript Regular Expressions 5.5
‘ Dim objRegExp As New RegExp
‘ Dim objMatch As Match
‘ Dim objMatches As MatchCollection

‘ With objRegExp
‘ .Pattern = “ここに正規表現パターン”
‘ .Global = True ‘ 全ての出現箇所を検索
‘ .IgnoreCase = False ‘ 大文字小文字を区別
‘ End With

‘ If objRegExp.Test(strTargetText) Then
‘ Set objMatches = objRegExp.Execute(strTargetText)
‘ For Each objMatch In objMatches
‘ ‘ マッチした文字列やサブマッチ($1, $2など)を処理
‘ Next
‘ End If

`VBScript.RegExp`はWordのFind機能とは別のオブジェクトなので、置換処理は手動でループを回して行うことになりますが、より高度なパターン（例：後方参照、先読み・後読みなど）を扱いたい場合に非常に有効です。ただし、パフォーマンスとコードの複雑さのバランスを考慮して選択しましょう。

2. CSVフォーマットの拡張性

現在のCSVは3列ですが、将来的に以下のようなオプションを追加することも考えられます。

`MatchCase`: 大文字小文字を区別するか (TRUE/FALSE)
`MatchWholeWord`: 単語の途中で一致させるか、単語全体として一致させるか (TRUE/FALSE)
`FormatMatch`: 書式設定を検索条件に含めるか (例: 太字の「ワード」だけを置換)
`Scope`: ドキュメント全体か、ヘッダー/フッター、特定のセクションのみか

これらの列をCSVに追加し、VBAコード側で `varLineData(3)`、`varLineData(4)` のように読み込んで `rng.Find` オブジェクトのプロパティに適用することで、さらに柔軟な置換システムを構築できます。設計段階で将来の拡張性を考慮することは、チーフアーキテクトの重要な視点ですよ。

3. 進捗表示の導入

大量の置換処理では、完了までに時間がかかることがあります。ユーザーに「今、何をしているのか」「あとどれくらいで終わるのか」を伝えるための進捗表示（ステータスバーやプログレスバー）を導入すると、ユーザーエクスペリエンスが向上します。

‘ ループ内で進捗を表示
‘ Application.StatusBar = “処理中: ” & i & ” / ” & totalLines & ” 件の置換ルールを適用中…”
‘ ループ終了後またはエラー発生時
‘ Application.StatusBar = False ‘ ステータスバーをクリア

`Application.StatusBar` を使うと、Wordウィンドウの下部にメッセージを表示できます。これは非常に手軽で効果的な方法です。

よくあるエラーとその解決策

皆さんがこのコードを実際に動かす上で、つまずきやすいポイントとその解決策をまとめました。

1. エラー: 「ユーザー定義型は定義されていません。」

原因: `FileSystemObject` や `TextStream` を使おうとしたときに、`Microsoft Scripting Runtime` への参照設定が行われていない。
解決策: VBAエディタで `ツール` -> `参照設定` を開き、`Microsoft Scripting Runtime` にチェックを入れてください。

2. エラー: 「実行時エラー ’53’: ファイルが見つかりません。」

原因: 指定したCSVファイルが存在しないか、パスが間違っている。
解決策:
`strCsvFilePath` に設定されたパスが正しいか確認してください。
CSVファイルが、マクロが記述されているWordファイルと同じフォルダに `ReplacementList.csv` という名前で保存されているか確認してください。
ファイル名に誤字脱字がないか、拡張子 `.csv` が付いているか確認してください。

3. エラー: 「実行時エラー ’70’: 書き込みできません。」またはファイルがロックされる。

原因: CSVファイルが他のアプリケーション（Excelなど）で開かれたままになっているか、VBAコードで `ts.Close` や `Set ts = Nothing` が適切に実行されていない。
解決策:
CSVファイルを閉じ、再度マクロを実行してみてください。
コードの `CleanUp` セクションで `ts.Close` と `Set ts = Nothing` が確実に実行されるか確認してください。特にエラーハンドリングのパスを通ってもクリーンアップされるように設計されているか重要です。

4. 置換が期待通りに動作しない

原因:
検索オプションの誤り: `MatchCase`, `MatchWholeWord`, `MatchWildcards` などの `Find` プロパティが意図しない設定になっている可能性があります。コード内の `rng.Find` の初期設定や、CSVの `正規表現使用` フラグを確認してください。
全角/半角、似た文字: `MatchByte` や `MatchSoundsLike` の設定によっては、意図しない文字がマッチしたり、マッチしなかったりすることがあります。
正規表現の記述ミス: `MatchWildcards = True` の場合、検索文字列が正規表現のルールに則っていないと正しくマッチしません。正規表現のパターンが正しいか確認しましょう。
CSVのデータに余分な空白や引用符: CSVから読み込んだ文字列の前後に不要な空白や、Excelが自動で付与するダブルクォーテーションが含まれている場合があります。コード内の `Trim` や `Replace(…, “”””, “”)` が適切に機能しているか確認してください。

これらのエラーは、落ち着いて原因を特定すれば必ず解決できます。デバッグ機能（F8キーでステップ実行）を使いながら、変数の値を確認していく練習もしてみましょう。

まとめ：あなたはもう一歩先のWord VBAエンジニア！

今回は、`FileSystemObject` を活用して外部CSVファイルから置換ルールを読み込み、Wordドキュメントに適用するバッチ処理を構築しました。

FSOによる外部ファイル操作の基本
Find/Replacementオブジェクトを使った効率的な一括置換
正規表現の活用
パフォーマンス向上のための最適化（`ScreenUpdating`、`Find.Execute Replace`）
堅牢性を高めるためのエラーハンドリングとオブジェクトライフサイクル管理

これらの知識を身につけたあなたは、もう「マクロの記録」から卒業し、自らの手で運用保守性の高い、スマートな自動化システムを設計・実装できる「一歩先のWord VBAエンジニア」です。

この知識はWord VBAに限らず、Excel VBAやAccess VBAなど、他のMicrosoft Officeアプリケーションでの自動化にも応用できる普遍的なものです。ぜひ、今回の学びを活かして、あなたの業務をさらに効率化し、より創造的な仕事に時間を費やしてください。

これからも一緒に、自動化の可能性を追求していきましょう！