【上級プロ向け】逆順ループアルゴリズムによる安全な複数ページ削除とインデックス崩れの完全防止
こんにちは。CorelDRAW VBAの世界へようこそ。
「マクロの記録」を使って、やりたいことを形にする。それは素晴らしい第一歩です。しかし、ある程度複雑な処理——例えば「特定の条件に合うページをまとめて削除する」といった処理に挑もうとしたとき、あなたは必ずと言っていいほど「見えない壁」にぶつかることになります。
「コードは間違っていないはずなのに、なぜかエラーが出る」
「削除したはずのページが残っている、あるいは、消してはいけないページまで消えてしまった」
もしあなたが今、そんな現象に悩んでいるとしたら、おめでとうございます。あなたは今、「プログラミングの基礎」から「ソフトウェアの構造を理解する設計思想」へと脱皮する境界線に立っています。
今日は、CorelDRAW VBAにおけるオブジェクト操作の極意、「逆順ループ（Reverse Loop）」という魔法について、その本質を解き明かしていきましょう。ここをクリアすれば、あなたの自動化プログラムの信頼性は劇的に向上します。
1. なぜ「前から順に」消すと失敗するのか？
多くの初心者が陥る罠、それは「1ページ目から順番にチェックして、不要なら消す」という、直感に頼ったロジックです。
陥りやすいバグのメカニズム
例えば、3枚のページ（Page 1, Page 2, Page 3）があるドキュメントを想像してください。あなたの目的は「すべてのページを削除する」ことです。
1. ループ1回目： `i = 1` を処理。Page 1を削除。
- ここで事件が起きます。 Page 1が消えた瞬間、もともとPage 2だったものが「新しいPage 1」へと昇格します。Page 3は「Page 2」になります。
2. ループ2回目： 次の対象は `i = 2` です。
- しかし、現在のドキュメントのPage 2は、もともとPage 3だったページです。
- 結果： もともとのPage 2は、インデックスがズレたために「チェックすらされずに残ってしまう」のです。
これが、「インデックスの崩れ（Index Shifting）」と呼ばれる現象です。前から順に処理を進めると、要素を削除した瞬間に「後ろに控えている要素の背番号（インデックス）」が書き換わってしまう。これがエラーや予期せぬ挙動の正体です。
2. 解決策：逆順ループ（Step -1）の設計論
この問題をエレガントに解決する唯一の方法。それが「後ろから順に処理する」という設計です。
逆順ループのロジック図解
ページが [P1, P2, P3] と並んでいるとき、後ろから処理を行うとどうなるでしょうか。
1. ループ1回目： `i = 3`（最後尾）を処理。Page 3を削除。
- 残ったのは [P1, P2]。P1とP2のインデックスは変わりません。
2. ループ2回目： `i = 2` を処理。Page 2を削除。
- 残ったのは [P1]。P1のインデックスは変わりません。
3. ループ3回目： `i = 1` を処理。Page 1を削除。
- すべて完了。
見ての通り、後ろから消していくことで、「これから処理しようとしている要素のインデックス」に影響を与えないのです。これが、プロフェッショナルが現場で必ず使う「逆順ループ」の鉄則です。
3. 実践コード：安全なページ削除マクロ
それでは、実際に使えるコードを見てみましょう。
今回は「ページ名に “DeleteMe” という文字が含まれているページを、安全にすべて削除する」という実用的なシナリオで実装します。
Option Explicit
''' <summary>
''' 条件に一致するページを安全に一括削除するプロフェッショナル用マクロ
''' </summary>
Sub DeleteSpecificPagesSafely()
Dim pg As Page
Dim i As Long
Dim targetKeyword As String
' 削除の条件となるキーワードを設定
targetKeyword = "DeleteMe"
' 高速化のための最適化設定（画面更新の停止）
' 大量のページを操作する場合、これがないと非常に低速になります
Optimization = True
On Error GoTo ErrorHandler ' エラーハンドリングの準備
' --- ここが極限の知見：逆順ループの開始 ---
' Pages.Count から 1 に向かって、1ずつ減らしながらループする (Step -1)
For i = ActiveDocument.Pages.Count To 1 Step -1
Set pg = ActiveDocument.Pages(i)
' ページ名にキーワードが含まれているか判定
If InStr(1, pg.Name, targetKeyword, vbTextCompare) > 0 Then
' 条件に一致した場合、そのページを削除
' ※注意：ページが1枚しかない状態で削除しようとするとエラーになるため、
' 運用ルールとして「最低1枚は残す」前提、またはエラー処理が必要です。
pg.Remove
Debug.Print "Deleted: " & pg.Name & " (Index: " & i & ")"
End If
Next i
' ---------------------------------------
' 最適化を解除して画面を再描画
Optimization = False
ActiveWindow.Refresh
MsgBox "処理が完了しました。", vbInformation, "完了"
Exit Sub
ErrorHandler:
' エラーが発生した場合、最適化設定を必ず元に戻す（重要！）
Optimization = False
MsgBox "エラーが発生しました: " & Err.Description, vbCritical, "エラー"
End Subコードの解説（エンジニアの視点）
1. `Step -1`: これが今回の主役です。`For i = Count To 1 Step -1` と書くことで、カウントダウン形式のループを実現しています。
2. `Optimization = True`: プロのコードには欠かせません。CorelDRAWの画面描画を一時停止させることで、処理速度を劇的に向上させ、画面のチラつきを抑えます。
3. `On Error GoTo ErrorHandler`: 予期せぬエラー（例えば、全てのページを消そうとしてページがゼロになる等）が発生した際、`Optimization = True` のままプログラムが止まってしまうと、CorelDRAWの操作が重く、不安定な状態になってしまいます。必ずエラー時に設定を戻す（`False`にする）設計にしてください。
4. `InStr` 関数: 文字列の中に特定の文字が含まれているかを判定する、非常に軽量で高速な関数です。
4. まとめ：この知見をどう広げるか
今回学んだ「逆順ループ」は、ページ操作に限った話ではありません。
- レイヤーの削除
- オブジェクト（図形）の削除
- 特定の条件に合うグループの削除
これらすべてに共通する「黄金律」です。コレクション（集まり）から要素を削除する際は、常に「インデックスのズレ」を意識してください。
「マクロの記録」は、あなたがやりたいことを教えてくれる「辞書」です。しかし、その辞書をどう組み合わせて、いかに堅牢な（壊れにくい）システムを構築するかは、あなた自身の「設計思想」にかかっています。
一歩ずつ、着実に。
この逆順ループをマスターしたあなたは、もう昨日までの初心者ではありません。
次回の記事では、さらに踏み込んで「オブジェクトのライフサイクルとメモリ管理」についてお話ししましょう。お楽しみに。
