破壊の設計論：インデックス崩壊を防ぐ「逆順ループ」による堅牢なページ削除アルゴリズム
業務自動化の現場において、「動くコード」を書くことは初歩に過ぎない。我々プロフェッショナルに求められるのは、予期せぬデータ構造の変化に耐えうる「壊れない設計」である。
CorelDRAWのVBA開発において、多くのジュニアエンジニアが陥る罠がある。それは、ドキュメント内のページやレイヤーといった「コレクション（集合）」を操作する際、そのインデックス（添字）の動的な変化を軽視することだ。
本稿では、ページ削除処理において不可避的に発生する「インデックス・シフト・バグ」を根絶し、実務レベルのプロダクションコードへと昇華させるための、極限の設計思想を伝授する。
1. なぜ、あなたのコードは「一部のページ」を見落とすのか
まず、典型的な失敗例を見てみよう。特定の条件（例えば、ページ名に “Temp” が含まれる場合）に基づいてページを削除するコードを書くとしよう。
【アンチパターン：前方ループによる破壊】
' ❌ 致命的なバグを内包するコード
Sub BadPageDeletion()
Dim i As Integer
' 前から順に（1からCountへ）ループを回す
For i = 1 To ActiveDocument.Pages.Count
If InStr(ActiveDocument.Pages(i).Name, "Temp") > 0 Then
' 条件に合致したら削除
ActiveDocument.Pages(i).Delete
End If
Next i
End Subなぜこれが「非効率」ではなく「致命的」なのか
このコードには、論理的な欠陥が潜んでいる。
例えば、ページ1、2、3が存在し、すべてが削除対象だった場合を想定してほしい。
1. `i = 1` のとき：ページ1が削除される。この瞬間、元のページ2が「新しいページ1」へと昇格（インデックスが繰り上がり）する。
2. `i = 2` のとき：ループは次に「新しいページ2」を見に行く。しかし、今昇格してきた「新しいページ1（元ページ2）」はスキップされてしまう。
結果として、削除対象であるはずのページが残ってしまう。これは単なるバグではない。自動化ツールが「中途半端な状態」で終了することを意味し、後続のプロセス（PDF出力やデータベース連携）において、ゴミデータが混入する原因となる。
2. 解決策：逆順ループ（Reverse Loop）によるインデックスの固定化
コレクションから要素を削除する場合、「末尾から先頭に向かって走査する」のが鉄則である。
数学的に考えれば明白だ。末尾の要素を削除しても、それより前にある要素のインデックスには一切の影響を与えない。インデックスのシフトが発生するのは「削除した要素より後ろ」だけだ。ループを逆方向に回せば、常に「未処理の要素」のインデックスは不変となる。
【プロフェッショナル・パターン：逆順ループ】
' ✅ 安全で堅牢な設計
Sub SafePageDeletion()
Dim pg As Page
Dim i As Long
Dim doc As Document
Set doc = ActiveDocument
' 描画更新を停止し、パフォーマンスを最大化する（極めて重要）
Optimization = True
On Error GoTo ErrorHandler
' 逆順ループ：Countから1へ、Step -1で減少させる
For i = doc.Pages.Count To 1 Step -1
Set pg = doc.Pages(i)
' 削除条件の判定
If InStr(pg.Name, "Temp") > 0 Then
pg.Delete
End If
Next i
CleanUp:
' 描画更新を再開し、変更を反映
Optimization = False
ActiveWindow.Refresh
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました: " & Err.Description, vbCritical
Resume CleanUp
End Sub3. プロダクションレベルへ引き上げるための3つの設計原則
単にループを逆にするだけでは、現場で通用する「ツール」とは言えない。大規模な業務フローに組み込むためには、以下の3点を実装に組み込む必要がある。
① パフォーマンス・最適化（Optimizationの制御）
CorelDRAWのVBAにおいて、`Optimization = True` は単なるテクニックではない。ページ削除のような構造変化を伴う操作では、削除のたびに画面の再描画（Redraw）が発生し、指数関数的に処理時間が悪化する。これを抑制することで、処理速度は数十倍に跳ね上がる。
② トランザクションとエラーハンドリング
自動化ツールが途中で死ぬことは、ユーザーの業務を止めることを意味する。
`On Error GoTo` を用い、万が一エラーが発生しても、必ず `Optimization = False` を通って描画制御を元に戻す設計にせよ。これを怠ると、ツール終了後にCorelDRAWの画面が固まったように見える「操作不能状態」を招く。
③ 外部データ（DB/ファイル）との整合性
ページ削除を伴うツールは、多くの場合、外部の管理データ（ExcelやSQL Database）と連動している。
- 設計思想: 「CorelDRAW内のページ削除」と「DB内のレコード削除」は、アトミック（不可分）でなければならない。
- ページを削除した直後にDB更新に失敗した場合、ドキュメントとDBの整合性が崩壊する。
- 実装戦略: まず「削除対象のリスト」をメモリ上に完全に構築し、CorelDRAWの操作が完了した直後に、一括で外部データを更新する「Two-Phase Commit」的なアプローチを検討すべきだ。
4. まとめ：エンジニアとしての規律
「動けばいい」という考え方は、複雑な業務システムにおいては毒となる。
コレクションの操作において、インデックスの動的な変化を予見し、「逆順ループ」を選択することは、エンジニアとしての最低限の規律である。
1. 破壊的な操作（Delete/Remove）を行う際は、常に末尾から走査せよ。
2. 描画制御（Optimization）を掌握し、実行速度と安定性を担保せよ。
3. エラー発生時のリカバリ経路を設計に組み込め。
これらの原則を遵守することで、あなたの作成するコードは、単なる「スクリプト」から、信頼に足る「業務基盤」へと進化する。
