CorelDRAW VBAの極意：Pagesコレクションの「死」を回避するトランザクション制御
CorelDRAWのオートメーションにおいて、最も安易かつ最も破壊的な実装が「`ActiveDocument.Pages`に対する直接的な順次操作」だ。シニアエンジニアであれば、一度は経験したはずだ。「なぜ削除したはずのページが残っているのか？」「なぜインデックス範囲外エラーが突如として発生するのか？」という悪夢を。
CorelDRAWの`Pages`コレクションは、インデックスが可変であるという点において、極めて脆弱な動的構造体だ。これを制御するには、単なるコーディングスキルではなく、オブジェクトのライフサイクルとメモリ管理に対する深い洞察が求められる。
—
1. インデックスの崩壊を防ぐ「逆順処理」の鉄則
初心者エンジニアは、コレクションを操作する際に必ずと言っていいほど前方ループ（`For i = 1 To Pages.Count`）を用いる。しかし、`Pages.Remove`を実行した瞬間に、以降の全オブジェクトのインデックスが前方にシフトする。その結果、残すべきオブジェクトを飛ばしたり、範囲外へアクセスしたりする。
極限の解法：逆順ループによるポインタの固定
‘ ページの削除を行う際の安全なトランザクション
Public Sub SafeDeletePages(doc As Document, targetIndices As Collection)
Dim i As Long
‘ 削除対象を降順で処理することで、インデックスのシフトを無効化する
‘ これにより、削除後も未処理のページインデックスがずれることはない
For i = doc.Pages.Count To 1 Step -1
If IsTargetForDeletion(i, targetIndices) Then
doc.Pages(i).Delete
End If
Next i
End Sub
2. オブジェクトの明示的解放とメモリリークの遮断
CorelDRAWのVBAは、COMベースである以上、参照カウンタの呪縛から逃れられない。特に`Document`や`Page`、`Layer`オブジェクトを多用する複雑なスクリプトでは、ガベージコレクションを待つ余裕などない。
大規模な処理を行う際は、必ず「オブジェクトの明示的解放」と「エラーハンドリングの局所化」を徹底せよ。
Public Sub PerformComplexPageManipulation()
Dim doc As Document
Dim p As Page
On Error GoTo Cleanup
Set doc = ActiveDocument
‘ 処理の本体
‘ …（大量のページ生成や移動）…
Cleanup:
‘ 明示的な解放
If Not p Is Nothing Then Set p = Nothing
If Not doc Is Nothing Then Set doc = Nothing
‘ Windows APIによるメモリ解放の強制（必要に応じて）
‘ SetProcessWorkingSetSize を呼び出し物理メモリを圧縮する技法もあるが
‘ 基本は参照を切るだけで十分だ
End Sub
3. トランザクションの整合性を保つための「状態の固定」
Pagesの並び替え（`Page.Move`）を行う際、操作対象が動的に変化すると、どのページがどこに移動したかの論理整合性が崩壊する。これを防ぐには、「操作対象のメタデータを一度配列に保持し、インデックスではなくオブジェクトの参照（ポインタ）で管理する」のがプロの流儀だ。
‘ 並び替えの安全な実装例
Public Sub ReorderPages(doc As Document)
Dim arrPages() As Page
Dim i As Long
‘ 1. 現在の参照を配列にキャッシュする
ReDim arrPages(1 To doc.Pages.Count)
For i = 1 To doc.Pages.Count
Set arrPages(i) = doc.Pages(i)
Next i
‘ 2. 配列上で並び替えロジックを完結させる
‘ 3. CorelDRAW側のページを移動させる際は、参照（arrPages(i)）を直接操作する
‘ これにより、インデックスのズレによる致命的なバグを完全に排除できる
End Sub
4. シニアエンジニアへの提言：レガシーとの対峙
CorelDRAWのVBA環境は、進化を止めたレガシーなCOMインターフェースに依存している。ここで重要なのは「新機能に頼るな」ということだ。
- APIの呼び出し： `DoEvents`を不用意に使うな。これはメッセージキューを乱し、CorelDRAWの描画スレッドと競合して不安定化を招く元凶だ。
- イベントの無効化： 大規模な操作を行う前には、`Application.EventsEnabled = False`を忘れずに行え。この一手間が、数万回発生する可能性のある不要な再描画イベントを抑制し、パフォーマンスを劇的に向上させる。
結び：コードは常に「壊れる」前提で書け
「正しく動くコード」を書くのはジュニアの仕事だ。シニアの仕事は、「どれだけ酷いデータが入力されても、オブジェクトモデルが崩壊しない堅牢な構造」を作り上げることにある。
CorelDRAWのオブジェクトモデルは、強力だが繊細だ。今回伝授した「逆順ループ」「参照のキャッシュ」「イベントの抑制」は、あなたが今後どのような大規模案件を任されても、CorelDRAWという巨大なプラットフォームを制御下に置くための最低限の武装である。
コードに魂を込めろ。そして、決してオブジェクトのライフサイクルを疎かにするな。
