Word VBAを掌握する極限の知見：『Rangeの比較』が生死を分ける瞬間
Word VBAの初学者が最初に陥る罠、そして中級者でさえ見落としがちな最大の盲点――それが「オブジェクトの同一性判定」と「文書上の位置関係の把握」だ。
セル単位できれいにアドレスが振られているExcelの`Range`とは異なり、Wordの`Range`は「文書という流動的な空間の中の一部分」を指し示す抽象概念に過ぎない。変数が同じオブジェクトを指しているかを問うのか、それとも文書上の全く同じ文字位置を指しているかを問うのか。この違いを理解していないコードは、巨大な文書を処理した瞬間にメモリリークを起こすか、あるいはサイレントバグ（沈黙するエラー）を発生させてデータをごっそり吹き飛ばす。
今回は、二つの`Range`の同値性を暴く`IsEqual`メソッドと、包含関係や位置関係を数学的に制御する`Start` / `End`の論理演算について、プロダクション（現場）の最前線で通用する堅牢な設計論とともに解説しよう。
—
1. なぜ「`=` (等価演算子)」でRangeを比較してはいけないのか
多くのプログラマブルな言語やVBAの他オブジェクトの感覚で、以下のようなコードを書いたことがないだろうか？
‘ 【アンチパターン】絶対にやってはいけない比較
If rngA = rngB Then
‘ 処理…
End If
これは完全な誤りである。
`Range`はオブジェクトであるため、単純な `2つの変数が同じインスタンスを指しているか（参照の比較）` を `等価演算子` は評価してしまう。たとえ文書上の全く同じ文字「ABC」を指していても、メモリ上の異なるインスタンスであれば、この条件式は `False` を返す。
さらに言えば、Word VBAにおけるオブジェクトの比較に `Is` 演算子を使っても、それは「ポインタが同じか」を見ているにすぎない。
‘ これも「別のインスタンスだが同じ場所を指している」ケースを拾えない
If rngA Is rngB Then
‘ …
End If
文書構造を解析し、重複する段落やタグを排除するような高度な自動化ツールにおいて、「インスタンスが同じか」ではなく「指し示している文書上の位置が完全に一致しているか」を判定しなければ、ロジックは完全崩壊する。ここで登場するのが `IsEqual` メソッドだ。
—
2. 完全一致を暴く：`IsEqual` メソッドの真価
二つの `Range` が文書上の全く同じ開始位置と終了位置を共有しているかを判定するためには、`IsEqual` メソッドを使用する。
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = ActiveDocument.Paragraphs(1).Range
Set rng2 = ActiveDocument.Paragraphs(1).Range
‘ IsEqualによる完全一致判定
If rng1.IsEqual(rng2) Then
MsgBox “二つのRangeは文書上の完全に同一の領域を指しています。”, vbInformation
End If
`IsEqual` の内部挙動とパフォーマンス
`IsEqual` は、単に `Start` と `End` の数値（文字位置のオフセット）を比較しているだけではない。背後でストーリー（本文、ヘッダー、フッター、コメント等）のIDも含めて厳密に評価している。異なるストーリー間（例：本文のRangeとヘッダーのRange）で比較した場合は安全に `False` を返すため、予期せぬクロスオーバーエラーを防ぐ盾となる。
しかし、「完全に一致しているか」だけでは、実際の文書解析タスクでは不十分なことが多い。実務で求められるのは、「範囲の包含関係（重なり合い）」の検知である。
—
3. 包含関係と交差判定：`Start` と `End` の論理演算
「あるRange Aの中に、別のRange Bがすっぽり含まれているか？」
「二つのRangeが一部でも重複しているか？」
これらを判定するには、`Range.Start`（開始文字位置の整数）とキレイに紐づいた `Range.End` を数学的に比較するアプローチが最も堅牢かつ高速である。Word VBAのオブジェクトモデルを深く理解したエンジニアは、複雑なメソッドチェーンに頼らず、このプリミティブな数値の論理演算を好む。
包含関係（AがBを完全に内包しているか）の判定ロジック
[A.Start]—————————-[A.End]
[B.Start]————–[B.End]
この状態を数学的に表現すると、以下の条件式になる。
- `A.Start <= B.Start` かつ `A.End >= B.End`
これをVBAの関数としてカプセル化しておくと、実務でのコードの可読性と保守性が劇的に向上する。
—
4. 【プロダクションコード】重複・包含レンジの安全なクレンジングエンジン
実際の業務で遭遇する「コメントや特殊書式が入り組んだ文書から、特定の重複範囲を効率的に排除する」ための堅牢な関数群を提示する。
コピペしてそのままプロジェクトの標準モジュールに組み込めるクオリティで設計してある。
Option Explicit
‘ ==============================================================================
‘ 業務自動化プロフェッショナル向け：Range解析・比較ユーティリティ
‘ ==============================================================================
/
- 二つのRangeが完全に同一の領域を指しているか判定する（IsEqualの安全なラッパー）
/
Public Function IsExactMatch(ByVal rngTarget As Range, ByVal rngCompare As Range) As Boolean
If rngTarget Is Nothing Or rngCompare Is Nothing Then Exit Function
IsExactMatch = rngTarget.IsEqual(rngCompare)
End Function
/
- RangeAがRangeBを完全に包含（内包）しているかを判定する
- @return True if rngParent fully contains rngChild
/
Public Function ContainsRange(ByVal rngParent As Range, ByVal rngChild As Range) As Boolean
‘ ストーリー（本文・ヘッダー等の違い）が異なる場合はFalse
If rngParent.StoryType <> rngChild.StoryType Then
ContainsRange = False
Exit Function
End If
‘ 数値的な包含関係の評価
If rngParent.Start <= rngChild.Start And rngParent.End >= rngChild.End Then
ContainsRange = True
Else
ContainsRange = False
End If
End Function
/
- 二つのRangeが一部でも交差（オーバーラップ）しているかを判定する
/
Public Function IsOverlapping(ByVal rngA As Range, ByVal rngB As Range) As Boolean
If rngA.StoryType <> rngB.StoryType Then
IsOverlapping = False
Exit Function
End If
‘ 交差判定の論理式： (A.Start < B.End) And (A.End > B.Start)
If (rngA.Start < rngB.End) And (rngA.End > rngB.Start) Then
IsOverlapping = True
Else
IsOverlapping = False
End If
End Function
‘ ==============================================================================
‘ 【実践利用例】重複するハイライト範囲の統合・削除ロジック
‘ ==============================================================================
Public Sub Demo_CleanOverlappingRanges()
Dim doc As Document
Set doc = ActiveDocument
Dim rngBase As Range
Dim rngCheck As Range
‘ サンプルとしての動作確認用（先頭段落を基準とする）
Set rngBase = doc.Paragraphs(1).Range
If doc.Paragraphs.Count < 2 Then MsgBox "テストには最低2つ以上の段落が必要です。", vbExclamation Exit Sub End If Set rngCheck = doc.Paragraphs(2).Range ' 包含関係のテスト If ContainsRange(rngBase, rngCheck) Then Debug.Print "BaseはCheckを包含しています。" Else Debug.Print "包含関係はありません。" End If ' 交差テスト If IsOverlapping(rngBase, rngCheck) Then Debug.Print "二つのRangeは重複しています。" Else Debug.Print "二つのRangeは独立しています。" End If End Sub ---
5. チーフアーキテクトが教える「実務運用の罠とパフォーマンス最適化」
大規模なWord文書（例えば数百ページの仕様書や契約書）をVBAで処理する際、`Range` の比較や走査を雑に行うと、実行速度が劇的に低下する。以下の鉄則をプロジェクトのコーディング規約に定めてほしい。
1. スクリーン・アップデートの完全遮断
ループ内で `Range` の比較や操作を行うたびにWordが画面描画を行わないよう、マクロの冒頭と末尾で以下の処理を挟むのは常識だ。
Application.ScreenUpdating = False
Application.Calculation = wdCalculationManual ‘ 必要に応じて
‘ — 処理 —
Application.ScreenUpdating = True
2. `StoryType` のチェックをケチらないこと
ヘッダー、フッター、本文（`wdMainTextStory`）など、異なるストーリー間で `Start` や `End` の数値だけで比較を行うと、「偶然数値が一致した別セクションの領域」を誤認して破壊するという致命的なバグを生む。必ずストーリーの一致を担保するか、前述の `IsEqual` の仕様を念頭に置くこと。
3. オブジェクトの解放（`Set … = Nothing`）
処理が終わったローカルの `Range` 変数に明示的に `Nothing` を代入する必要は現代のVBAランタイムではないが、巨大な文書オブジェクトを扱うループのなかでは、メモリの断片化を防ぐために参照を切る意識を持つことが、安定稼働するエンタープライズツールの必須条件となる。
—
総括
Word VBAにおける `Range` の比較は、単なる条件分岐のテクニックではない。それは「流動的なドキュメント構造をエンジニアの意のままに幾何学的に制御する」ための核心的アプローチである。
`IsEqual` による完全一致の担保と、`Start` / `End` を駆使した論理演算のコンビネーションをあなたの武器庫に加えれば、どんなに複雑怪奇なWord文書解析要件であっても、恐れることなくエレガントに自動化を完遂できるはずだ。妥協のない堅牢なコードで、手作業の地獄からユーザーを解放してほしい。
