Word VBAの真髄：数百の文書を一瞬で書き換える「横断置換パイプライン」の構築
こんにちは。業務自動化の深淵へようこそ。
「マクロの記録」ボタンを押して生成されたコードを眺め、「なぜ動くのかわからないけれど動いている」という段階から卒業したいあなたへ。今日は、Word VBAの心臓部である`Find`オブジェクトを自在に操り、フォルダ内の全ファイルを一括処理する「プロフェッショナルなバッチ処理」の極意を授けます。
多くの初心者が陥る「ファイルを開きすぎてメモリがパンクする」「検索漏れが発生する」という罠を回避し、堅牢で美しいパイプラインを構築しましょう。
—
1. なぜ「Range」を操作するのか？
Word VBAで最も重要な概念は「Selection（選択範囲）」を使わないことです。
画面上のカーソルを動かして置換するのは人間がやること。プログラムは、背後で静かに`Range`（文書の一部を指すオブジェクト）を制御すべきです。
`Selection`は処理速度が極端に遅く、画面描画を伴うためパフォーマンスを著しく低下させます。我々は`Document.Range`を直接叩き、高速にメモリ上で処理を完結させます。
—
2. 横断置換パイプラインの全体像
このスクリプトは、以下の3つのステップで構成されます。
1. FSO (File System Object) でフォルダ内のファイルを走査する。
2. 各文書に対してFindオブジェクトを適用する。
3. 変更を確定し、静かにファイルを閉じる。
実践コード：一括置換エンジン
Option Explicit
Sub BatchReplaceInFolder()
Dim fso As Object, targetFolder As Object, file As Object
Dim doc As Document
Dim folderPath As String
‘ 1. 処理対象フォルダの指定（ダイアログを使用すると親切です）
folderPath = “C:\Your\Target\Folder\”
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set targetFolder = fso.GetFolder(folderPath)
‘ 画面更新を停止して高速化（地味ですが必須のテクニック）
Application.ScreenUpdating = False
‘ 2. ファイルを一つずつ巡回
For Each file In targetFolder.Files
If LCase(fso.GetExtensionName(file.Path)) Like “doc” Then
Set doc = Documents.Open(file.Path, Visible:=False) ‘ 非表示で開くのがプロの流儀
‘ 3. 置換処理の実行
Call ExecuteAdvancedReplace(doc, “旧文字列”, “新文字列”)
doc.Close SaveChanges:=wdSaveChanges
End If
Next file
Application.ScreenUpdating = True
MsgBox “全ファイルの置換が完了しました。”
End Sub
‘ 置換ロジックを分離することで、メンテナンス性を高める
Sub ExecuteAdvancedReplace(doc As Document, findText As String, replaceText As String)
With doc.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = findText
.Replacement.Text = replaceText
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False ‘ 大文字小文字を区別しない
.MatchWholeWord = False ‘ 部分一致
.MatchWildcards = False ‘ 正規表現を使いたい場合はここをTrueに
‘ 一括置換を実行
.Execute Replace:=wdReplaceAll
End With
End Sub
—
3. ここがプロの知見：陥りやすい罠と解決策
① `Visible:=False` の恩恵
`Documents.Open`の際に `Visible:=False` を設定することで、Wordが次々と立ち上がる不快なチラつきを抑え、処理速度を劇的に向上させます。
② `ClearFormatting` の重要性
`Find`オブジェクトは、前回の検索条件（太字設定やフォント指定など）を記憶して引き継いでしまいます。検索を実行する前に必ず `ClearFormatting` を呼び出すのが、予期せぬエラーを防ぐための鉄則です。
③ 正規表現（Wildcards）の魔力
コード内の `.MatchWildcards = True` を有効にすれば、Word独自の正規表現が使えます。例えば、`[0-9]{4}` と指定すれば、4桁の数字を一括で検索可能です。ただし、Wordの正規表現は一般的なPCのそれとは微妙に仕様が異なるため、まずは「検索と置換」ダイアログでテストしてからコードに落とし込むのが安全です。
—
まとめ：次に目指すべき場所
このスクリプトは、あなたの業務自動化の「土台」となります。
ここから発展させるなら、以下のような機能を追加してみてください。
- ログ出力機能: どのファイルで置換が起きたのかをテキストファイルに書き出す。
- エラーハンドリング: `On Error Resume Next` を使い、読み取り専用ファイルで止まらないようにする。
- 正規表現の詳細化: Wordの標準正規表現では足りない場合、VBScriptの`RegExp`オブジェクトを併用する。
Word VBAの世界は深く、そして強力です。このコードがあなたの「手作業による苦しみ」を解放する最初の一歩になれば幸いです。また何か行き詰まったら、いつでも聞きに来てくださいね。応援しています！
