こんにちは！Word VBAの世界へようこそ。
マクロを使って帳票作成や契約書の自動生成に取り組んでいると、必ずと言っていいほどぶつかる「謎の現象」がありますよね。
「ブックマークにVBAでテキストを流し込んだら、2回目以降の実行でエラーになる…」
「流し込んだ瞬間、せっかく設定したブックマークが消えてしまった！？」
マクロの記録から一歩抜け出し、実務で使える自動化を目指す中で、この「ブックマーク消去問題」は誰もが一度は頭を抱える壁です。
でも、安心してください。
この記事を読めば、なぜブックマークが消えるのかという内部メカニズムから、何度データを流し込んでも決して壊れない「動的再定義（再バインド）」の極意まで、すっきりと理解できます。
ここをクリアすれば、Word VBAの基本オブジェクトモデル（Application / Document / Range）の扱いはバッチリですよ！一緒に本質を学んでいきましょう。
—
1. なぜ？ブックマークに文字を入れると「消滅」するメカニズム
まずは、多くの開発者が遭遇する「事件」の現場を再現してみましょう。
Word文書に `CustomerName` という名前のブックマークを作成し、VBAで以下のようなシンプルなコードを実行したとします。
‘ ［NG例］一見正しそうに見えるコード
Sub WriteToBookmark_NG()
Dim doc As Document
Set doc = ActiveDocument
‘ ブックマークの範囲を取得して文字を代入
doc.Bookmarks(“CustomerName”).Range.Text = “株式会社サンプル”
End Sub
これを実行すると、1回目は無事に「株式会社サンプル」と挿入されます。
しかし、もう一度マクロを実行するか、後続の処理で `doc.Bookmarks(“CustomerName”)` を参照しようとすると…… 「実行時エラー ‘5941’: 指定されたコレクションのメンバーが存在しません。」 が発生します。
一体、Wordの内部で何が起きたのでしょうか？
図解：Range.Text 代入時に起きていること
Wordにおける「ブックマーク」とは、文字と文字の間に打たれた「付箋（タグ）」のようなものです。
1. 初期状態（範囲型ブックマーク）
[株式会社〇〇] ← この範囲に `CustomerName` という付箋が貼られている
2. `Range.Text = “株式会社サンプル”` を実行
Wordは「指定された範囲のテキストをまるごと消去して、新しいテキストに置き換える」という処理を行います。
3. 結果
テキストが置換された瞬間、その範囲に付いていた「付箋（ブックマーク）」も一緒に削り取られてゴミ箱へ捨てられてしまうのです！
【実行前】 [ 既存のテキスト ] (ブックマーク “CustomerName” が存在)
↓ Range.Text を上書き代入
【実行後】 株式会社サンプル (テキストは変わったが、ブックマークは消滅！)
これが、ブックマーク消滅の正体です。
Word VBAで自動化を行うには、テキストを置き換えた後に「付箋を貼り直す（再定義する）」という作法が不可欠なのです。
—
2. 解決の鍵：Word VBAの「Rangeオブジェクト」の特性を知る
「付箋を貼り直す」と言っても、テキストを入れた後に新しく入った文字列の「開始位置」と「終了位置」をどうやって特定すればいいのでしょうか？
ここで登場するのが、Word VBAの心臓部である `Range` オブジェクト です。
実は、`Range` オブジェクトには非常に賢い特性があります。
`Range.Text = “新しい文字列”` を実行した直後、その `Range` オブジェクト自身は「今挿入された新しい文字列の範囲」を自動的に指し続け伝えてくれるのです。
1. Set rng = doc.Bookmarks(“CustomerName”).Range → rngは「旧テキスト」を指す
2. rng.Text = “株式会社サンプル” → 文字列が置き換わる
3. （この瞬間、rng は「株式会社サンプル」の範囲に自動追従している！）
4. doc.Bookmarks.Add Name:=”CustomerName”, Range:=rng → 新しい範囲でブックマークを再登録！
この「Rangeが新しい文字列の範囲を保持してくれる」という挙動さえ知っていれば、ブックマークの維持は決して難しくありません。
—
3. 現場でそのまま使える！堅牢な「動的再定義」プロシージャ
それでは、プログラミング初学者の方でも安全に使える、極限まで洗練された「ブックマーク安全更新用サブプロシージャ」をご紹介します。
以下のコードを標準モジュールにコピペして、実務でお使いください。
Option Explicit
”’
”’
”’ 対象のDocumentオブジェクト
”’ ブックマーク名
”’ 挿入したい新しい文字列
Public Sub UpdateBookmark(ByRef targetDoc As Document, ByVal bmName As String, ByVal newText As String)
‘ 1. ガード節：ドキュメントやブックマークが存在しない場合は何もしない
If targetDoc Is Nothing Then Exit Sub
If Not targetDoc.Bookmarks.Exists(bmName) Then
Debug.Print “警告: ブックマーク [” & bmName & “] が見つかりませんでした。”
Exit Sub
End If
Dim targetRange As Range
‘ 2. 該当ブックマークの Range（範囲）を取得
Set targetRange = targetDoc.Bookmarks(bmName).Range
‘ 3. テキストを書き換える
‘ ※この操作により、既存の Bookmarks(bmName) は消滅しますが、
‘ targetRange 変数は「新たに挿入されたテキストの範囲」を保持し続けます。
targetRange.Text = newText
‘ 4. 保持されている Range を使って同名のブックマークを再作成（動的再定義）
targetDoc.Bookmarks.Add Name:=bmName, Range:=targetRange
End Sub
このコードの使い方（メイン処理の例）
呼び出す側は、たったこれだけで記述できます。何度実行してもブックマークが壊滅することはありません。
Sub Test_UpdateBookmark()
Dim doc As Document
Set doc = ActiveDocument
‘ 画面描画を停止して高速化＆ちらつき防止
Application.ScreenUpdating = False
‘ 何度実行してもブックマークが維持される！
Call UpdateBookmark(doc, “CustomerName”, “株式会社ネクストイノベーション”)
Call UpdateBookmark(doc, “IssueDate”, Format(Date, “yyyy年mm月dd日”))
Call UpdateBookmark(doc, “Amount”, “￥1,250,000-“)
‘ 画面描画を再開
Application.ScreenUpdating = True
MsgBox “データの流し込みが完了しました！”, vbInformation
End Sub
—
4. プロの解説：コードの裏側で何が起きているのか？
上記の `UpdateBookmark` 関数で押さえておくべき「プロのポイント」を3点に絞って解説します。
① `Bookmarks.Exists(bmName)` で安全ガード
存在しないブックマーク名を指定すると、VBAは容赦なく実行時エラーを吐いて停止します。`Exists` メソッドであらかじめ存在確認を行うのは、業務自動化ツールにおける鉄則のエラーハンドリングです。
② 代入後すぐに `Bookmarks.Add`
`targetRange.Text = newText` を行った直後に、`targetDoc.Bookmarks.Add Name:=bmName, Range:=targetRange` を実行しています。
`Bookmarks.Add` は、同名のブックマークが既に存在すれば上書きし、消滅していれば新規作成するという非常に便利な仕様を持っています。これにより、「常に最新の文字列を囲むブックマーク」として再定義（再バインド）されるわけです。
③ `ByRef targetDoc As Document` による参照渡し
ドキュメントオブジェクトを関数の引数として渡すことで、アクティブな文書だけでなく、裏で開いているテンプレート文書や別ファイルに対しても汎用的にこの関数を使い回すことができます。
—
5. 陥りやすい罠：空のブックマーク（位置型）とテキスト範囲（範囲型）
Wordのブックマークには、実は2つの種類があることをご存知でしょうか？
| 種類 | 見ため（Word画面） | 特徴 |
| :— | :— | :— |
| 位置型（ポイント） | 縦棒 `|` のような形 | 文字を選択せず、カーソルを置いただけで作ったブックマーク（長さ0） |
| 範囲型（レンジ） | 文字を囲む `[ ]` の形 | 文字を選択した状態で作成したブックマーク（長さ1以上） |
今回ご紹介した `UpdateBookmark` プロシージャは、どちらのタイプからスタートしても、最終的にテキストを流し込んだ後は「範囲型 `[ ]` 」へと昇華して維持されます。
もし「文字列を挿入したあとも、文字を囲むのではなく『カーソルの位置（長さ0）』としてブックマークを残したい」という特殊な要件がある場合は、以下のように `Collapse`（折りたたみ）メソッドを使用します。
‘ （応用）文字挿入後、文字列の後ろに「位置型」としてブックマークを残したい場合
targetRange.Text = newText
targetRange.Collapse Direction:=wdCollapseEnd ‘ 範囲を末尾の1点に折りたたむ
targetDoc.Bookmarks.Add Name:=bmName, Range:=targetRange
実務の帳票データ流し込みであれば、「流し込んだ文字そのものを範囲型として残す」スタイル（前述のプロシージャ）が最も扱いやすく、後から「流し込んだ文字を削除・再置換する」といった処理にも柔軟に対応できるため圧倒的におすすめです。
—
6. まとめ：Word VBA掌握への第一歩
お疲れ様でした！今回のポイントを振り返ってみましょう。
1. `Range.Text` で文字を代入すると、既存のブックマークは消滅する
2. 文字代入後も、`Range` オブジェクト変数は新しい文字列の範囲を指し続けている
3. その `Range` を使って `Bookmarks.Add` することで、動的に再定義（維持）できる
Word VBAは、Excel VBAに比べて「範囲（Range）」の概念がやや複雑に感じるかもしれません。しかし、「テキストを操作したら、Rangeを再定義してブックマークを更新する」というパターンさえ掴んでしまえば、Wordの制御はあなたの思い通りになります。
このテクニックを使えば、テンプレート文書を使った美しい見積書・契約書の自動発行システムも安全に構築できるようになりますよ。
ここをクリアできれば、Word VBAの基本構造はバッチリマスターできた証拠です！
ぜひ自信を持って、日々の業務自動化に役立ててくださいね。応援しています！
