1. 悲劇の構造：なぜ、ブックマークは「消滅」するのか
Word VBAによるドキュメント自動生成システムを構築する際、エンジニアが必ず突き当たる致命的な壁がある。それが「ブックマークへのデータ流し込み時における、範囲の崩壊およびブックマーク自身の消滅」である。
プログラミング初心者や浅い経験のエンジニアは、以下のようなコードを記述して満足してしまう。
‘ 破綻へのカウントダウン：素人による典型的な実装
ThisDocument.Bookmarks(“CustomerName”).Range.Text = “株式会社 ACME Corporation”
一見すると、このコードで意図したテキストが正しく挿入されたように見えるだろう。しかし、内部ではCOMオブジェクトの破壊的変容が起きている。
代入が行われた瞬間、`CustomerName` というブックマークは文字通り文書構造から消滅するか、長さゼロの「点（Start = End）」へと退縮する。その後、再度同じブックマークにアクセスを試みれば、プログラマブルな制御は即座に例外（エラー 5941「指定されたコレクションのメンバーは存在しません」）を吐いてクラッシュする。
内部ポインタ（Start / End）の物理的振る舞い
なぜこの現象が発生するのか。Wordの内部構造において、`Bookmark` オブジェクトはテキストそのものを保持しているわけではない。特定の `Document` のメモリ空間における「開始文字位置（Start）」と「終了文字位置（End）」のオフセットを記憶する単なるラベル（ポインタ参照）に過ぎない。
`Bookmark.Range.Text = “…”` を実行した際、Wordのテキストエンジンの内部動作は以下のステップを踏む：
1. 指定された `Range` の領域に含まれる文字データを破棄する。
2. 新しい文字列を挿入する。
3. 文字データの破棄に伴い、当該範囲を参照していた既存の `Bookmark` インデックスを無効化（または自動削除）する。
結果として、テキストの置換動作がブックマークというメタデータの存在そのものを抹消してしまうのだ。連続的な帳票出力や、テンプレートの再利用、動的なセクションの再描画を行うエンタープライズシステムにおいて、この挙動は到底許容できるものではない。
—
2. アーキテクチャの解剖：BookmarkとRangeの幾何学的制御
この問題を根本解決するためには、Word COMオブジェクトモデルの挙動を完全に掌握し、「テキスト置換」と「ポインタの動的再構築（Re-definition）」をアトミックなトランザクションとして設計する必要がある。
物理的な文字位置の遷移を幾何学的に追跡してみよう。
【更新前】
Start (pos: 120) End (pos: 130)
| |
▼ ▼
…..[旧テキスト]…..
▲
└── Bookmark “Target”
【テキスト代入直後 (COMによる無効化)】
Start (pos: 120) End (pos: 120)
|
▼
…..株式会社 ACME Corporation…..
(Bookmark “Target” は消失または収縮)
【再定義（Re-definition）後】
Start (pos: 120) End (pos: 145)
| |
▼ ▼
…..[株式会社 ACME Corporation]…..
▲
└── Bookmark “Target” が正しい範囲を保持して復活
正攻法アプローチは以下のロジックを厳密に組み上げることである：
1. 対象ブックマークの存在有無を非破壊チェックする。
2. ブックマークが占有する `Range` オブジェクトを取得し、その Start位置 を保持する。
3. `Range.Text` に新たな文字列を流し込む。
4. 流し込み完了後、`Range.End` を Start位置 + 挿入文字列の文字長 へと明示的に拡張する。
5. 更新された `Range` を用いて、同名の `Bookmark` を `Bookmarks.Add` メソッドで再定義（上書き生成） する。
6. メモリリークを防ぐため、取得した COM `Range` オブジェクト参照を明示的に解放する。
—
3. 実装：堅牢性を極めた「SafeBookmarkUpdate」モジュール
以下に示すのは、数万ページのドキュメント生成や複数スレッドでのバッチ処理にも耐えうる、エンタープライズグレードのVBA実装である。エラーハンドリング、描画抑止、メモリ管理を完全に網羅している。
Option Explicit
‘ ==============================================================================
‘ Module: ModBookmarkController
‘ Description: Wordブックマークの動的再定義および破綻なきデータ代入モジュール
‘ Architect: Chief Enterprise Architect
‘ ==============================================================================
”’
”’
”’ 対象のDocumentオブジェクト
”’ ブックマーク名
”’ 挿入するテキスト文字列
”’
Public Function UpdateBookmarkValue( _
ByRef doc As Word.Document, _
ByVal bkmkName As String, _
ByVal newText As String _
) As Boolean
On Error GoTo ErrorHandler
UpdateBookmarkValue = False
‘ ガードクローズ：引数検証
If doc Is Nothing Then Exit Function
If Len(Trim$(bkmkName)) = 0 Then Exit Function
If Not doc.Bookmarks.Exists(bkmkName) Then
‘ ブックマークが存在しない場合は安全に脱出（ログ記録等をここで行う）
Debug.Print “[WARN] Bookmark missing: ” & bkmkName
Exit Function
End If
‘ COMオブジェクト参照の宣言
Dim targetBkmk As Word.Bookmark
Dim targetRng As Word.Range
Dim startPos As Long
‘ 描画の停止によるパフォーマンス最適化
Dim originalScreenUpdating As Boolean
originalScreenUpdating = doc.Application.ScreenUpdating
doc.Application.ScreenUpdating = False
‘ 1. オブジェクトの参照取得
Set targetBkmk = doc.Bookmarks(bkmkName)
Set targetRng = targetBkmk.Range
‘ 2. 開始位置の記憶
startPos = targetRng.Start
‘ 3. テキストの更新（この時点で既存のブックマーク範囲は破壊される）
targetRng.Text = newText
‘ 4. Rangeの再調整（新テキストの長さに合わせてEndを延伸）
‘ ※ targetRng.Text 代入後、Start位置は維持されるがEnd位置の調整を明示的に行う
targetRng.Start = startPos
targetRng.End = startPos + Len(newText)
‘ 5. ブックマークの動的再定義（同名でAddすることで再生成）
doc.Bookmarks.Add Name:=bkmkName, Range:=targetRng
UpdateBookmarkValue = True
CleanUp:
‘ 明示的メモリ解放（COMオブジェクトの確実なディスポーズ）
Set targetRng = Nothing
Set targetBkmk = Nothing
‘ 描画設定の復元
If Not doc Is Nothing Then
doc.Application.ScreenUpdating = originalScreenUpdating
End If
Exit Function
ErrorHandler:
‘ ログ出力および例外補獲
Debug.Print “[ERROR] Failed to update bookmark ‘” & bkmkName & “‘: ” & Err.Description
UpdateBookmarkValue = False
Resume CleanUp
End Function
利用例：バッチ挿入処理の呼び出し
Public Sub ExecutiveReportGeneration()
Dim doc As Word.Document
Set doc = ThisDocument
‘ アトミックなブックマーク更新の実行
Call UpdateBookmarkValue(doc, “bm_ReportDate”, Format$(Date, “YYYY年MM月DD日”))
Call UpdateBookmarkValue(doc, “bm_CompanyName”, “グローバルテクノロジーソリューションズ株式会社”)
Call UpdateBookmarkValue(doc, “bm_TotalAmount”, “￥125,000,000-“)
MsgBox “すべてのブックマーク範囲を維持したまま更新が完了しました。”, vbInformation
End Sub
—
4. エンタープライズ開発における高度な領域
実務の現場では、単にテキストを書き換えるだけでは済まない複雑な文脈が存在する。シニアエンジニアが考慮すべき3つの極限状態とその処方箋を提示する。
① ネストされたブックマークの崩壊伝搬とその抑止
Wordでは、あるブックマークの `Range` 内に別のブックマークが包含される「ネスト構造」を作ることが可能である。親ブックマークのテキストを更新すると、子ブックマークは完全に消滅する。
これを防ぐためには、テキスト更新前に親範囲に含まれる全子ブックマークの `Name` と `Start/End` の相対オフセットを記録し、親の更新完了後に全子ブックマークを幾何学的に再配置するスタック処理アルゴリズムが必要となる。
② メモリ最適化とCOM参照の明示的解放
VBAはガベージコレクタを持たず、参照カウンタ方式（COMの `IUnknown`）でメモリを管理している。大規模なループ（例: 10,000件のPDF出力処理）の中で `Document.Bookmarks(i).Range` を安易に呼び出しつづけると、インターフェース参照が解放されずにプロセス型メモリ（Private Bytes）が急増し、最悪の場合 Word が無言でクラッシュする。
- ループ内で生成した `Range` や `Bookmark` 変数は、必ず `Set obj = Nothing` で解放すること。
- 大量処理時は定期的に `DoEvents` を挟むか、定型ドキュメントのオープン/クローズを適切な周期でリセットすること。
③ Windows APIを活用した超高速化（画面描画の超絶抑止）
Word VBAの `Application.ScreenUpdating = False` は、時として完全に描画をブロックしきれず、フリッカー（画面チラツキ）を発生させ、レンダリングコストによって処理が遅延する。
極限のパフォーマンスを追求する場合、Windows APIの `LockWindowUpdate` を使用して、Wordのメインウィンドウの再描画を直接カーネルレベルで凍結するアプローチが有効である。
‘ Windows APIの宣言
If VBA7 Then
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” (ByVal hwndLock As LongPtr) As Long
Else
Private Declare Function LockWindowUpdate Lib “user32” (ByVal hwndLock As Long) As Long
End If
Public Sub HighPerformanceBatchProcess()
Dim appHwnd As LongPtr
appHwnd = Application.hwnd
‘ ウィンドウ描画を強力に凍結
LockWindowUpdate appHwnd
On Error GoTo Finalize
‘—————————————————
‘ 大量のブックマーク書き換え処理（数千箇所）
‘—————————————————
Finalize:
‘ 解除（必ず通過させること）
LockWindowUpdate 0
End Sub
> 警告: `LockWindowUpdate` に `0` を渡して解凍しないままマクロが異常終了すると、Windows全体の描画がロックされるリスクがある。必ず `Finally` または `CleanUp` ブロックで確実に解除される構造を徹底せよ。
—
5. まとめ：アーキテクトが刻むべき鉄則
Word VBAにおけるブックマーク制御は、単なる「文字列置換」ではない。それは「Wordドキュメントのメモリマップに対する正確なアドレス再割り当て作業」である。
1. `Bookmark.Range.Text` への直代入は悪であると知れ。 ブックマークは確実に破壊される。
2. `Start` 位置を基準とし、挿入文字列長から `End` を動的に再計算して `Add` せよ。
3. COMオブジェクトの参照（`Range`, `Bookmark`）は確実に `Nothing` へ帰結させよ。
4. 描画抑止とエラー処理を怠ったマクロは、エンタープライズの現場ではコードにあらず。
この基本原理を徹底することによってのみ、何年経っても壊れず、数万回のデータ流し込みに耐えうる真の堅牢なWord自動化システムが完成するのだ。
