こんにちは！Wordマクロ（VBA）の世界へようこそ。
「マクロの記録」ボタンを押してカタカタと自動化を試してみたものの、いざ自分でコードを書こうとすると、Excelとは違う独特の挙動に頭を悩ませていませんか？
「あれ？さっき指定したはずの場所なのに、文字を入れたら消えてしまった……」
「表の中にデータを流し込んだら、レイアウトが盛大に崩れてグチャグチャになった……」
よくぞここにたどり着いてくれました。実はそれ、Word VBAの『オブジェクトモデル』と『範囲（Range）の寿命』という最大の関門につまずいている証拠です。
今回は、マクロの記録から一歩抜け出し、業務で即戦力となる「動く帳票」の作り方を、知的な先輩エンジニアが優しく、かつ本質的なところまで徹底的に解説します。ここをクリアすれば、Word VBAの基本はバッチリですよ！
—
1. なぜWord VBAは難しいのか？（Excelとの決定的な違い）
Excel VBAは、いわば「方眼紙のセル（マス目）」にデータを放り込む作業です。座標が決まっているので非常にシンプルですよね。
一方、Wordは「流動的なテキストの海」です。
ユーザーがEnterキーを叩けば全体のレイアウトが下へズレますし、文字を追加すればその前後の空間の広さが刻一刻と変わります。
この「動く文書」をVBAで自在に操るための三種の神器が、`Application`（Word全体）、`Document`（文書）、そして今回の主役である`Range`（範囲）です。
魔法の言葉：ブックマークは「目印」であって「器」ではない
多くの初心者が犯す最大の勘違いがこれです。
「ブックマーク（Bookmark）」という機能は、文字通り文書内の「ここだよ」と指し示す付箋（目印）にすぎません。
【誤解】 ブックマーク ＝ 箱（そこにデータを詰め替えられる）
【現実】 ブックマーク ＝ 位置を示す旗（文字を書き換えると、旗ごと消えることがある）
だからこそ、ブックマークの位置を起点にして「Range（範囲オブジェクト）」をしっかりとコード上で捕まえ、その中で安全にデータの出し入れを行う必要があるのです。
—
2. 陥りやすい罠：「範囲の消失（消滅バグ）」の正体
では、実際にやりがちな「危ないコード」を見てみましょう。
‘ 【やってはいけないアンチパターン】
Sub BadExample()
Dim rng As Range
‘ ブックマークの範囲をRangeオブジェクトに代入
Set rng = ActiveDocument.Bookmarks(“CustomerName”).Range
‘ その範囲に文字を流し込む
rng.Text = “株式会社山田商事”
‘ もう一度同じrngを使おうとする……ここでエラーや意図しない挙動が発生！
rng.Bold = True ‘ ← ？？？ 文字が消えたり、エラーになったりする！
End Sub
なぜこれがダメなのか？
Wordの`Range.Text = “…”`を実行した瞬間、その範囲（Range）のメモリ上の寿命が一度リセット（消滅）される仕様になっています。文字を上書きしたことで、Wordが「あ、さっきの範囲はもう用済みね」と認識してしまうからです。
この仕様を知らずに、消滅したあとの `rng` オブジェクトに対してさらに装飾（太字にするなど）を加えようとすると、バグが起きてしまいます。これが「範囲の消失」の正体です。
—
3. 解決策：プロが使う「Rangeの再定義」テクニック
この問題をエレガントに解決する方法はシンプルです。
「データを流し込んだら、もう一度ブックマークを捕まえ直してRangeを再定義する」これだけです。
以下の実用的なコードを見てください。これが現場で使える「動的帳票」の基本形です。
Sub CreateDynamicReport()
Dim doc As Document
Set doc = ActiveDocument
‘ 流し込むデータ（実際にはExcelやDBから取得します）
Dim custName As String
Dim issueDate As String
custName = “株式会社 技研プロフェッショナル”
Format(Date, “yyyy年mm月dd日”)
issueDate = Format(Date, “yyyy年mm月спек日”)
On Error GoTo ErrorHandler ‘ エラーハンドリングの準備
‘ ==========================================
‘ 1. 顧客名の流し込みとレイアウト崩れ防止
‘ ==========================================
Call InsertDataToBookmark(doc, “bm_CustomerName”, custName, True)
‘ ==========================================
‘ 2. 日付の流し込み
‘ ==========================================
Call InsertDataToBookmark(doc, “bm_IssueDate”, issueDate, False)
MsgBox “帳票の作成が正常に完了しました！”, vbInformation, “成功”
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
End Sub
‘ ————————————————–
‘ 汎用プロシージャ：ブックマークへ安全にデータを流し込む
‘ ————————————————–
Sub InsertDataToBookmark(targetDoc As Document, bmName As String, data As String, isBold As Boolean)
Dim rng As Range
‘ ブックマークが存在するかチェック
If targetDoc.Bookmarks.Exists(bmName) Then
‘ 1. ブックマークの範囲を取得
Set rng = targetDoc.Bookmarks(bmName).Range
‘ 2. データを流し込む（ここで元のRangeは一度消滅する）
rng.Text = data
‘ 3. 【重要】消滅した範囲を維持するため、ブックマークを「張り直し」てRangeを再取得する
Set rng = targetDoc.Range(Start:=rng.Start, End:=rng.Start + Len(data))
targetDoc.Bookmarks.Add Name:=bmName, Range:=rng
‘ 4. 必要に応じて装飾を加える
If isBold Then
rng.Font.Bold = True
End If
Else
MsgBox “指定されたブックマークが見つかりません: ” & bmName, vbExclamation, “警告”
End If
End Sub
このコードの美しいポイント
1. 処理の部品化（モジュール化）: データの流し込み処理を `InsertDataToBookmark` という専用のプロシージャに切り出しているため、項目が何個増えてもメインのコードが汚れません。
2. Rangeの再定義: `rng.Text = data` の直後に、文字数 (`Len(data)`) を計算して `targetDoc.Range` で範囲を再構築し、さらに `Bookmarks.Add` でブックマーク自体を復活させています。これにより、後続の処理でブックマークが消えてしまう事故を防げます。
3. 堅牢なエラーハンドリング: `On Error GoTo` を仕込むことで、万が一Wordのテンプレート構造が壊れてブックマークが消えていた場合でも、強制終了せずに優しくユーザーに通知できます。
—
4. レイアウト崩れを防ぐための実務上のワンポイントアドバイス
帳票作成において、ユーザーから最も嫌がられるのが「データを流し込んだら、表の枠線が歪んだ」「改行位置がおかしくなって2ページにはみ出た」というレイアウト崩れです。
これを防ぐためのプロの知見を授けます。
- セルの中のブックマークは「段落記号」を含めない
表のセル（TableCell）の中にブックマークを設定するとき、セルの右端にある見えない「段落記号（改行マーク）」までブックマークに含めてしまうと、テキストを流し込んだ瞬間にセルの高さや行全体が盛大に崩れます。ブックマークは「文字列そのもの」だけに細心の注意を払って設定してください。
- フォントや文字サイズの継承を利用する
`rng.Text = data` を実行すると、基本的にはそのブックマークが元々持っていたフォントスタイルを引き継ぎます。デザインを統一するため、Wordのテンプレート側で「標準」スタイルや「表内文字」スタイルをあらかじめ美しく整えておくことが、VBAを書く前の最大の準備となります。
—
まとめ
いかがでしたでしょうか？
今回は、Word VBAにおける「動的帳票」のキモである、ブックマークとRangeの正しい付き合い方とレイアウト崩れを防ぐ再定義テクニックを解説しました。
- ブックマークは単なる「目印（旗）」である。
- `Range.Text` に代入した瞬間、元のRangeは消滅する。
- 消滅したら、文字数をもとに `Range` を再定義し、必要であれば `Bookmarks.Add` でブックマークを再登録する。
この原則さえ頭に入っていれば、どれほど複雑な社内フォーマットや契約書、請求書の自動生成であっても、恐れることはありません。
あなたの日常的な手作業の地獄を、エレガントなコードで一瞬にして終わらせてやりましょう。それでは、次のステップでお会いしましょう！
