CorelDRAW VBAを掌握する極限の知見：ActiveDocument.Pagesコレクションの安全なトランザクション制御
CorelDRAWを用いた数百ページ規模のカタログ、仕様書、あるいは可変データ（VDP）を伴うパンフレットの自動生成において、最大のボトルネックとなるのは「ページ構造の動的変動」である。
世の多くのサンプルコードは、平穏なドキュメントを前提としたナイーブなループ処理を描く。だが、実務の現場――とりわけERPやPIM（商品情報管理）システムと連携する自動組版の最前線においては、データの欠損、CSVの不正、メモリの断片化、そしてCorelDRAW独自のドキュメントライフサイクルの揺らぎが容赦なくVBAランタイムを襲う。
本稿では、`ActiveDocument.Pages`コレクションに対する動的な「追加・並び替え・削除」を、予期せぬクラッシュやメモリリークから完全に守り抜くための「安全なトランザクション制御モデル」を提示する。
—
1. CorelDRAWオブジェクトモデルの深層：なぜページ操作は崩壊するのか？
CorelDRAWのVBAエンジンは、COM（Component Object Model）ベースで動作しているが、UIスレッドとドキュメントの内部ツリー構造（Node Graph）の間には特有の非同期性や同期のラグが存在する。
特に`Pages`コレクションを操作する際、以下の罠がエンジニアの前に立ち塞がる。
1. インデックスの動的シフト（Dynamic Index Shifting）
ループ内でページを削除または挿入すると、コレクションのインデックス番号が即座に再割り当てされる。`For i = 1 To ActiveDocument.Pages.Count` のような単純な順方向ループは、必ず範囲外エラー（Runtime Error 9）や意図しないスキップを引き起こす。
2. Undoバッファの肥大化とメモリ枯渇
ページ単位の重いグラフィック要素（高解像度リンク画像や膨大なベクターパス）を含むオブジェクトの生成・削除を無秩序に行うと、CorelDRAWのUndoスタックが爆発し、GDIリソースが枯渇して強制終了（Fatal Error）に至る。
3. アクティブコンテキストの喪失
ページを動的に操作している最中、どのページが「アクティブ」であるかのフォーカスが外れると、メソッドが意図しないレイヤーやページに対して実行される。
これらを克服するためには、「メモリの明示的管理」「逆方向ループによるインデックス固定」「トランザクション的ロールバック構造」の3つをコードに組み込まなければならない。
—
2. 実装アーキテクチャ：堅牢なページトランザクション・エンジン
以下に、実務の現場で耐えうる堅牢性を持ったVBAコードを示す。このモジュールは、外部データソースから受け取った構造定義に基づき、ページの過不足を動的に調整しつつ、エラー発生時には安全に処理を中断・解放する。
Option Explicit
‘ Windows API: 処理の合間にUIスレッドを解放し、CorelDRAWのフリーズを防ぐ
If VBA7 Then
Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
Public Sub ExecutePageTransactionPipeline()
Dim targetDoc As Document
Dim isTransactionStarted As Boolean
isTransactionStarted = False
‘ 1. エラーハンドリングの初期化（安全なクリーンアップへの布石）
On Error GoTo ErrorHandler
Set targetDoc = Application.ActiveDocument
If targetDoc Is Nothing Then
Err.Raise 10001, “PageManager”, “アクティブなドキュメントが存在しません。”
End If
‘ 2. パフォーマンス最適化：画面描画とイベントの凍結
Application.Optimization = True
targetDoc.BeginCommandGroup “Dynamic Page Transaction”
isTransactionStarted = True
‘ — 【トランザクション処理本体】 —
‘ Step A: 不要なページの安全な削除（逆方向イテレーション）
Call PurgeRedundantPages(targetDoc, targetCount:=5)
‘ Step B: 不足ページの動的追加と初期化
Call EnsurePageCapacity(targetDoc, requiredCount:=10)
‘ Step C: ページ順序の再整理（ビジネスロジックに基づく並び替え）
Call ReorderPagesSequence(targetDoc)
‘ — 【トランザクション正常終了】 —
targetDoc.EndCommandGroup
Application.Optimization = False
Application.Refresh
MsgBox “ページトランザクションが正常に完了しました。”, vbInformation, “チーフアーキテクトからの通知”
Exit Sub
ErrorHandler:
‘ — 【異常系トランザクション制御：ロールバックとリソース解放】 —
Dim errDesc As String
errDesc = Err.Description
If isTransactionStarted Then
On Error Resume Next
‘ コマンドグループのロールバック（可能な限り元の状態へ復元）
targetDoc.AbortCommandGroup
On Error GoTo 0
End If
‘ 最適化フラグの強制復旧
Application.Optimization = False
Application.Refresh
‘ オブジェクトの明示的解放
Set targetDoc = Nothing
MsgBox “致命的なエラーが発生しました。トランザクションを中断し、変更を破棄しました。” & vbCrLf & _
“詳細: ” & errDesc, vbCritical, “致命的エラー”
End Sub
‘ —————————————————————–
‘ サブプロシージャ: ページの安全な削除（逆方向イテレーション）
‘ —————————————————————–
Private Sub PurgeRedundantPages(doc As Document, targetCount As Long)
Dim i As Long
Dim totalPages As Long
totalPages = doc.Pages.Count
‘ 指定数より多い場合、後ろから削除する（インデックスシフトを防ぐ唯一の確実な方法）
If totalPages > targetCount Then
For i = totalPages To (targetCount + 1) Step -1
‘ 各ページのレイヤーおよびオブジェクトを明示的にクリア
Dim p As Page
Set p = doc.Pages(i)
‘ ページ削除前のガベージコレクション促進
p.Delete
‘ 参照の即時破棄
Set p = Nothing
‘ 頻繁なDOM操作の合間にCPUへ息継ぎを与える（超大規模ドキュメント対策）
If i Mod 10 = 0 Then DoEvents
Next i
End If
End Sub
‘ —————————————————————–
‘ サブプロシージャ: 必要容量に応じたページの動的追加
‘ —————————————————————–
Private Sub EnsurePageCapacity(doc As Document, requiredCount As Long)
Dim currentCount As Long
Dim diff As Long
Dim i As Long
currentCount = doc.Pages.Count
If currentCount < requiredCount Then
diff = requiredCount - currentCount
For i = 1 To diff
' 末尾にページを追加 (AddPages メソッドを使用)
doc.InsertPages 1, False, doc.Pages.Count
' 必要に応じて新規追加したページに対するマスターレイヤー設定等を記述
Next i
End If
End Sub
' -----------------------------------------------------------------
' サブプロシージャ: ページの並び替え（Moveレイヤー/ページ制御）
' -----------------------------------------------------------------
Private Sub ReorderPagesSequence(doc As Document)
' 例: 最終ページを先頭に移動する（ビジネスロジックのプレースホルダー）
Dim totalPages As Long
totalPages = doc.Pages.Count
If totalPages >= 2 Then
‘ CoreldRAW VBAにおけるページ移動構文
‘ doc.Pages(index).MoveTo メソッド、または InsertPages の応用
‘ ※バージョン依存の挙動を吸収するため、ここではMove動作の安全なラッパーを想定
doc.Pages(totalPages).MoveTo doc.Pages(1)
End If
End Sub
—
3. チーフアーキテクトが解説するコードの急所と極意
① `Application.Optimization = True` の絶対性と副作用
大量のページを追加・削除する際、CorelDRAWはデフォルトで画面の再描画（Redraw）とUIの同期を試みる。これがパフォーマンスを数倍〜数十倍に悪化させ、メモリリークの温床となる。
`Optimization = True` にすることでこれらを完全に遮断できるが、エラー発生時に `False` に戻し忘れると、CorelDRAWのUIが完全にフリーズしたままゾンビプロセス化する。そのため、必ず `On Error GoTo` の例外処理ブロック内で復旧させる構造（RAIIパターン的アプローチ）が必須となる。
② コマンドグループ（`BeginCommandGroup` / `AbortCommandGroup`）によるトランザクション
CorelDRAW VBAは本格的なRDBのようなACIDトランザクションを持たない。しかし、ドキュメントの操作履歴機能を利用した `BeginCommandGroup` は事実上のトランザクション境界として機能する。
万が一、途中のページ挿入やデータバインド処理で例外が発生した場合、`AbortCommandGroup` を叩くことで、CorelDRAWの内部Undoバッファを利用してドキュメントを「処理前の安全な状態」へと巻き戻すことが可能になる。
③ 逆方向ループ（Backward Iteration）の鉄則
`For i = totalPages To (targetCount + 1) Step -1` のイテレーションは、コレクション操作のバグを防ぐための黄金律である。
前から順番に削除していくと、本来消すべきではないページが繰り上がりによってスキップされ、最終的に `Subscript out of range` で沈没する。このアーキテクチャ上の物理法則を無視したコードは、実務では使い物にならない。
—
4. レガシー環境およびシステム間連携における運用知見
社内ニッチな基幹システム（VB.NETやC#で書かれたWindowsサービス等）から、COMオートメーション経由でこのCorelDRAWマクロを呼び出すケースも多いだろう。その際の極意を最後に授ける。
- COMオブジェクトの完全解放（ReleaseComObject）
外部プロセスからCorelDRAWを操作する場合、`VBA.CreateObject` や `New` で取得したインスタンス、あるいはドキュメント参照は、`.NET` 側で `Marshal.ReleaseComObject` を用いて確実に参照カウンタをデクリメントしなければならない。VBA側でグローバル変数にドキュメントやページを保持し続けると、CorelDRAWプロセスがメモリ上に残留し、タスクマネージャーがゾンビで埋め尽くされる。
- ヘッドレス実行時の例外ハンドリング
UIを持たない自動化バッチサーバー上でCorelDRAWを動作させる場合、`MsgBox` などのインタラクティブなダイアログはプロセスを完全にハングさせる。本稿のコードをサーバー連携させる際は、`MsgBox` をテキストログ出力（`FileSystemObject` による `Error.log` への書き込み）へと差し替える設計に拡張してほしい。
真に安定した自動化システムとは、華麗なアルゴリズムではなく、「失敗したときにどう安全に元に戻るか（Fail-Safe & Rollback）」の周到な配慮によってのみ築かれる。このトランザクション制御モデルをあなたのアーキテクチャに組み込み、レガシーの呪縛から解放された強靭な自動組版システムを構築してほしい。
