Word VBAの「聖域」を守れ：Selectionを捨て、Rangeを支配せよ
Word VBAで自動化ツールを開発する際、初心者が最初に犯す最大の過ちは「マクロの記録」に頼りすぎることだ。記録されたコードは `Selection.TypeText` や `Selection.Move` のような記述で埋め尽くされている。
これをそのままプロダクションコードとして採用するのは、「ブレーキを踏みながらアクセルを全開にする」ような愚行だ。なぜこれほどまでに `Selection` が忌避されるのか。そして、なぜプロフェッショナルは `Range` にこだわるのか。
今日は、Wordのオブジェクトモデルの深層に触れ、あなたのコードを「おもちゃ」から「業務インフラ」へと昇華させるための極限の知見を授ける。
—
1. なぜ「Selection」を使ってはいけないのか
`Selection` とは、ユーザーが画面上で操作している「現在のカーソル位置や選択範囲」を指すオブジェクトだ。
- 描画コストの肥大化: `Selection` を操作するたびに、WordのUIはカーソル位置の更新や画面の再描画を強制される。数千行のドキュメントを処理する際、この「視覚的な追従」が実行速度を劇的に低下させる。
- 不確定な状態: ユーザーが処理中に誤って別の場所をクリックしたり、別のウィンドウにフォーカスを移したりすれば、コードは瞬時に迷子になる。
- 脆弱性の温床: `Selection` は常に「今どこにいるか」というコンテキストに依存する。これは堅牢な自動化において最大の敵だ。
対して `Range` とは、文書内の「ある一地点から別の地点まで」を指す、目に見えない仮想的なマーカーだ。画面のカーソルを動かす必要も、再描画を待つ必要もない。メモリ上で完結するこのオブジェクトこそが、高速処理の鍵となる。
—
2. 破壊的な性能差を生む「Range」の真髄
`Range` を使いこなすとは、文書構造を「論理的な抽象レイヤー」として扱うことだ。
プロダクションコード例：Selection vs Range
以下のコードは、文書内の特定キーワードを置換し、太字にする処理だ。どちらが「業務で使い物になるか」は一目瞭然だろう。
‘ 【非推奨】Selectionを使った低速かつ不安定なコード
Sub SlowProcess()
Selection.Find.ClearFormatting
Selection.Find.Execute FindText:=”重要”, ReplaceWith:=”【重要】”
‘ UIの描画が逐次発生し、処理が極めて遅い
End Sub
‘ 【推奨】Rangeを使った高速かつ堅牢なコード
Sub FastProcess()
Dim rng As Range
Set rng = ActiveDocument.Content ‘ 文書全体をRangeで取得
‘ 画面描画を停止してパフォーマンスを最大化
Application.ScreenUpdating = False
With rng.Find
.Text = “重要”
.Replacement.Text = “【重要】”
.Forward = True
.Format = False
.Execute Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub
`Application.ScreenUpdating = False` を併用することで、Wordは内部計算のみに専念する。この設計こそが、大規模なレポート生成やデータベース連携の基礎体力となる。
—
3. 堅牢な設計のための「3つの鉄則」
現場で生き残るコードを書くためには、以下のアーキテクチャを遵守せよ。
1. オブジェクトを定義（Set）し、使い回せ:
`Range` は `Set rng = ActiveDocument.Paragraphs(1).Range` のように、特定の段落やセクションに対して生成できる。これを使い回すことで、コードの可読性とメンテナンス性が劇的に向上する。
2. エラーハンドリングの義務化:
`Range.Find` や特定箇所の取得は、対象が存在しない場合にエラーになる。必ず `On Error Resume Next` と組み合わせたガード節を配置すること。
3. 文書を汚さない:
`Selection` を使うとカーソル位置が勝手に変わるが、`Range` は文書の「どこ」をいじっているかを完全にコード側で制御できる。処理終了後にカーソル位置が意図せず飛ぶようなバグは、プロとして許されない。
—
4. データベース連携時の落とし穴
Word VBAでDB連携（AccessやSQL Server）を行う際、最も多い失敗は「Word上のテキストを直接操作して、値を取り出す」ことだ。
これを行う際は、「RangeをBookmark（ブックマーク）と紐付ける」のが正解だ。
‘ ブックマーク位置への高速データ挿入の例
Sub InsertDataToBookmark(bookmarkName As String, data As String)
Dim rng As Range
If ActiveDocument.Bookmarks.Exists(bookmarkName) Then
Set rng = ActiveDocument.Bookmarks(bookmarkName).Range
rng.Text = data
‘ 挿入後、ブックマークが消えないように再定義するテクニック
ActiveDocument.Bookmarks.Add bookmarkName, rng
End If
End Sub
このように `Range` を介することで、文書デザインを崩すことなく、データだけを動的に差し替える堅牢なシステムが構築できる。
—
最後に：プロのエンジニアであるために
VBAは「初心者向け」などという言葉を信じてはいけない。Wordのオブジェクトモデルは、極めれば極めるほど、DOM操作に近い緻密な制御が可能になる。
`Selection` に依存する者は、Wordというアプリケーションの「表層」しか見えていない。
`Range` を操る者は、Wordというドキュメント構造そのものを「支配」している。
今日から、すべての `Selection` をコードから追放せよ。それが、あなたのツールが「ただ動くもの」から「信頼に足る業務インフラ」へと進化する第一歩だ。
