【実務・中級編】【中級者向け】特定の文字列を検索し、その直後に画像を挿入する自動化ツール – Word VBA解析バイブル

Word VBAを掌握する極限の知見：特定の文字列の直後に「画像」をミリ単位でねじ込む技術

業務自動化の現場において、Word文書の生成・修飾は避けて通れない領域だ。特に「特定のキーワード（例：`【ここに図表】`など）を検出し、その直後に動的に画像を挿入する」という要件は、仕様書自動生成、契約書への印影押印、レポート作成などの業務で頻繁に発生する。

だが、ここで多くのVBAエンジニアが暗礁に乗り上げる。
「検索してヒットしたはいいが、なぜか画像が文書の先頭に飛ぶ」
「ヒットした文字列が画像に置き換わって消えてしまう」
「複数箇所への一括置換で無限ループに陥る」

これらは、Wordの `Find` オブジェクトのライフサイクルと、`Range` の概念を正確に理解していないがために起こる典型的なバグだ。

今回は、Word VBAの挙動を知り尽くしたチーフアーキテクトの視点から、`Find.Range.Collapse` メソッドを極限まで活かし、バグの起きない堅牢な画像挿入自動化ツールの設計思想と実装を伝授する。

—

1. なぜ「普通の置換」では失敗するのか？

Wordの検索・置換機能（`Selection` や `Find`）は、GUIの操作をそのままコードに落とし込もうとすると痛い目を見る。

初心者がやりがちな間違いは、`Find` でヒットした `Range` に対して直接 `InlineShapes.AddPicture` を実行することだ。`Find` がヒットした瞬間、その `Range` は「検索にヒットした文字列そのもの」を指している。その範囲に対して画像を挿入すると、検索キーワード自体が画像によって上書き破壊（消失）される。

私たちが求めているのは、「キーワードは残す（あるいは適切に消去する）、またはその直後（直前）に画像を安全に配置する」という精密な位置制御だ。

—

2. 堅牢な設計の要：`Collapse` メソッドの真価

ここで登場するのが `Collapse` メソッドである。
`Find` が文字列をヒットさせたとき、`Range` オブジェクトは「その文字列全体」を囲む選択範囲となっている。

ここで `Collapse` を使う。

• `wdCollapseStart`：範囲の先頭（左端）にカーソルを縮小する
• `wdCollapseEnd`：範囲の末尾（右端）にカーソルを縮小する

今回やりたいことは「特定の文字列の直後に画像を挿入する」ことだ。
つまり、`Find` がヒットした `Range` を末尾側に折りたたみ（Collapse）、そのゼロ幅のポイントに対して画像をインサートする。これが唯一無二の正解アプローチである。

—

3. プロダクションコード：実務で耐えうる堅牢な画像挿入マクロ

実務の現場では、ファイルが存在しない場合のエラー処理、画面描画の抑止（パフォーマンス向上）、そして無限ループの防止が不可欠だ。これらをすべて網羅したプロダクションコードを提示する。

Option Explicit

‘ ==============================================================================
‘ 処理名 : InsertImageAfterKeyword
‘ 概要 : 指定したキーワードを検索し、その直後に外部画像ファイルを挿入する
‘ 備考 : 検索キーワードはそのまま保持される設計
‘ ==============================================================================
Sub InsertImageAfterKeyword()
‘ — 定数定義 —
Const TARGET_KEYWORD As String = “【図表挿入位置】”
Const IMAGE_PATH As String = “C:\Automation\Images\sample_chart.png”

‘ — オブジェクトの宣言 —
Dim targetDoc As Document
Dim fso As Object
Dim searchRange As Range

‘ — 1. 実行前バリデーション（フェールセーフ） —
Set targetDoc = ActiveDocument

‘ 外部画像の存在確認（FSOを使用）
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FileExists(IMAGE_PATH) Then
MsgBox “指定された画像ファイルが存在しません。” & vbCrLf & IMAGE_PATH, vbCritical, “ファイルエラー”
Exit Sub
End If

‘ — 2. パフォーマンスとUIの最適化 —
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
End With

‘ — 3. 検索と挿入のメインロジック —
Set searchRange = targetDoc.Content ‘ 文書全体の範囲からスタート

With searchRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = TARGET_KEYWORD
.Forward = True
.Wrap = wdFindStop ‘ 文書の末尾で検索を停止する（無限ループ防止）
.Format = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False ‘ 必要に応じてワイルドカードを有効化

‘ 該当するすべての文字列をループ処理
Do While .Execute
‘ 【極限の知見】ヒットしたRangeの「末尾」にCollapse（縮小）する
‘ これにより、キーワードの直後のゼロ幅ポイントが特定される
searchRange.Collapse wdCollapseEnd

‘ 画像を挿入（InlineShapeとして挿入し、文書レイアウトの崩れを防ぐ）
‘ ※必要に応じて Width / Height プロパティでサイズ調整を行うこと
Dim inlinePic As InlineShape
Set inlinePic = targetDoc.InlineShapes.AddPicture( _
FileName:=IMAGE_PATH, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Range:=searchRange
)

‘ 【重要】画像を挿入したことで searchRange は画像の末尾に移動している。
‘ 次の検索を正しく継続するため、文書の残りの部分へRangeを再設定し、
‘ さらに次の検索開始位置へ進めるためにCollapseを行う。
searchRange.Start = inlinePic.Range.End
searchRange.End = targetDoc.Content.End

Loop
End With

‘ — 4. 後処理 —
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With

MsgBox “画像の挿入処理が正常に完了しました。”, vbInformation, “完了”

End Sub

—

4. チーフアーキテクトが教える実装上の急所とチューニング

上記のコードを実務展開するにあたり、プロとして押さえておくべき「3つの急所」を解説する。

① `InlineShape` か `Shape` かの選択

コード内では `InlineShapes.AddPicture` を使用している。

• InlineShape（行内配置）：文字と同じ扱いになるため、意図しないレイアウト崩れが起きにくく、文書管理上極めて安定する。帳票やレポート自動化では第一選択。
• Shape（浮動配置）：文字の背後に置いたり自由な座標指定ができるが、Wordの段落構造と独立するため、テキストの増減で画像の位置が狂いやすい。図解などで絶対座標が必要な場合以外は避けるべき。

② 無限ループの回避 (`wdFindStop`)

`.Wrap = wdFindContinue` に設定すると、文書の最後まで検索した後に先頭に戻ってしまい、挿入された画像やキーワードを再度検知して無限ループ（または意図しない多重挿入）を引き起こす。
自動化スクリプトにおいては、必ず `.Wrap = wdFindStop` を指定し、検索範囲を明示的に縮めていくロジックを組むこと。

③ 画面描画の凍結 (`ScreenUpdating = False`)

大量のプレースホルダーに対して画像を高頻度で挿入する場合、WordのGUI描画が走ると処理速度が何倍にも低下し、最悪の場合はフリーズする。
処理の冒頭で `ScreenUpdating = False`、最後に `True` に戻すお作法は、プロダクションコードでは絶対の義務である。

—

総括

Word VBAにおけるテキスト操作とオブジェクト挿入は、一見泥臭く見えがちだが、オブジェクトモデルの挙動原理（Rangeの伸縮とCollapse）さえ掌握していれば、極めてエレガントかつ高速な自動化システムに昇華できる。

コピペで動かすだけにとどまらず、なぜこのコードが安全なのかという「設計の文脈」を理解し、あなたの現場の業務効率を次の次元へと引き上げてほしい。