【実務・中級編】ActiveDocument.Pagesコレクションに対する動的追加・並び替え・削除の安全なトランザクション制御 – CorelDRAW VBA解析バイブル

【CorelDRAW VBAを掌握する極限の知見】第1回：ActiveDocument.Pagesコレクションの安全なトランザクション制御

開発プロジェクトのリーダーである私から、現場で即座に使える「生きた知見」を伝授しよう。

カタログやパンフレットの自動生成システムにおいて、ページ構成の動的な変動（挿入・並び替え・削除）は避けて通れない。しかし、CorelDRAW VBAにおける `Pages` コレクションの操作は、甘く見ていると「インデックスのズレ」「存在しないページへのアクセスによる実行時エラー」「最悪の場合のドキュメント破損」という悪夢を引き起こす。

ネット上によくある「上から順にループさせて削除・追加する」といった安易なコードは、プロダクション環境では使い物にならない。
今回は、実務の現場で絶対に破綻しない、堅牢なトランザクション制御の設計思想と実装パターンを解説する。

—

1. なぜ従来のページ操作コードは破綻するのか？

初心者がやりがちな典型的なアンチパターンを見てみよう。

‘ 【悪夢のアンチパターン】絶対に真似してはならない例
Dim i As Long
For i = 1 To ActiveDocument.Pages.Count
If ShouldDelete(i) Then
ActiveDocument.Pages(i).Delete
End If
Next i

このコードの何が問題か？
CorelDRAWのコレクション操作において、要素を削除（または追加）すると、残りの要素のインデックス番号がその場で動的に振り直される。
結果として、ループカウンタ `i` と実際のページの対応関係が完全に崩壊し、予期せぬページのスキップや、`Subscript out of range`（インデックスが有効範囲にありません）エラーが発生する。

また、APIの実行コスト（重み）を考慮していないコードは、数百ページ規模のドキュメント生成時にメモリリークや描画のフリーズを引き起こす。

—

2. 堅牢なトランザクション制御の設計思想

プロフェッショナルな現場で求められるのは、データベースのトランザクションと同様の「全か無か（All-or-Nothing）」の思想、あるいは「安全なロールバックの担保」だ。

CorelDRAW VBAでこれを実現するためには、以下の3原則を厳守する。

1. 逆順ループ（Backward Iteration）の徹底
コレクションを削除・変更する場合は、常に最後の要素から最初に向かって（`Count` から `1` へ）ループを回す。これにより、未処理の要素のインデックスが変動するのを防ぐ。
2. UI描画の完全な凍結（ScreenUpdating / Optimization）
ページの追加・削除のたびにCorelDRAWが画面を再描画すると、パフォーマンスが数倍〜数十倍悪化する。`Optimization = True` を使ってDOMの更新をメモリ上に閉じ込める。
3. 明示的なオブジェクト参照の保持
`ActivePage` や `ActiveDocument` の暗黙的なグローバル参照に頼らず、変数を厳密に型付けしてスコープを管理する。

—

3. 【プロダクションコード】安全なページ構築・再構築エンジン

以下のコードは、外部データ（CSVやDB等）から動的にページ構成を読み込み、不要なページを削除しつつ、不足分のページを安全に構築・並び替えを行う実務用のテンプレートだ。

Option Explicit

Public Sub ExecuteSecurePageTransaction()
Dim startTime As Double
startTime = Timer

‘ 1. 最重要：パフォーマンス最適化とエラーハンドリングの準備
With Application
.Optimization = True
.EventsEnabled = False ‘ イベント発火を抑制し、意図せぬマクロの連鎖を防ぐ
End With

On Error GoTo ErrorHandler

Dim doc As Document
Set doc = ActiveDocument

If doc Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “致命的エラー”
GoTo Finally
End If

‘ — 【トランザクション開始】 —

‘ 2. ターゲットとなるページ構成の定義（本来は外部DBやCSVから動的取得）
‘ 例として「残すべきページ名（またはID）」のマスターリストを想定
Dim targetPages As Collection
Set targetPages = GetTargetPageStructureFromDataSource()

‘ 3. 削除処理：逆順ループによる安全なパージ
Dim i As Long
Dim p As Page
Dim isFound As Boolean
Dim targetName As Variant

For i = doc.Pages.Count To 1 Step -1
Set p = doc.Pages(i)

‘ 表紙（1ページ目）など、絶対に削除してはならない保護ペーグルールを設ける
If p.Index > 1 Then
isFound = False
For Each targetName In targetPages
If p.Name = targetName Then
isFound = True
Exit For
End If
Next targetName

‘ マスターリストに存在しない場合は安全に削除
If Not isFound Then
p.Delete
End If
End If
Next i

‘ 4. 追加・並び替え処理：不足しているページの動的生成と位置調整
Dim desiredIndex As Long
desiredIndex = 1

For Each targetName In targetPages
‘ 該当する名前のページがすでに存在するか確認
Set p = Nothing
On Error Resume Next
Set p = doc.Pages(CStr(targetName))
On Error GoTo ErrorHandler

If p Is Nothing Then
‘ ページが存在しない場合は新規追加
‘ ※ CorelDRAWでは InsertPages が一般的だが、末尾追加後に移動する方法が確実
Set p = doc.AddPages(1)
p.Name = CStr(targetName)
End If

‘ ページの順序を厳密にターゲットの位置（desiredIndex）へ移動
‘ MoveTo 指定により、ドキュメントの構造を意図通りに調停する
p.MoveTo desiredIndex

desiredIndex = desiredIndex + 1
Next targetName

‘ — 【トランザクション正常終了】 —
MsgBox “ページ構成の再構築が正常に完了しました。” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00秒”), vbInformation, “完了”

Finally:
‘ 5. 環境の確実なクリーンアップ（エラー発生時も必ず実行される）
With Application
.Optimization = False
.EventsEnabled = True
.Refresh
End With
Exit Sub

ErrorHandler:
‘ 異常系ハンドリング：必要に応じてロールバック処理（バックアップからの復元等）を記述
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “トランザクション異常終了”
Resume Finally
End Sub

‘ —————————————————————–
‘ ダミーのデータソース取得関数（実務ではADODBやFileSystemObjectに置換）
‘ —————————————————————–
Private Function GetTargetPageStructureFromDataSource() As Collection
Dim col As New Collection
‘ カタログの仕様書に基づき、必要なページ名を動的に決定
col.Add “Cover”
col.Add “Chapter_01”
col.Add “Chapter_02”
col.Add “Chapter_03”
col.Add “Index”
Set GetTargetPageStructureFromDataSource = col
End Function

—

4. チーフアーキテクトからの実践的アドバイス

ファイル・データベース連携時の注意点

外部のCSVやSQL Serverなどのデータベースからページ構成を読み込む際、「文字列の不一致（全角半角、前後のスペース）」や「重複したページ名」が原因でCorelDRAW側で例外が発生しやすい。
データソース側で一意のプライマリーキー（PageIDなど）を保証し、CorelDRAW側の `Page.Name` もしくは `Page.Properties` にメタデータとして埋め込む設計にすると、極めて堅牢な連携システムが構築できる。

パフォーマンスの限界を見据えたバッチ処理

ページ数が300を超えるような大型ドキュメントの場合、一括処理ではなく、50ページごとに `DoEvents` を挟む、あるいはメモリ解放のためにこまめにドキュメントをセーブ＆リロード（セッション分割）するアプローチも検討してほしい。VBAのメモリ管理の癖を知る者だけが、巨大なデザインファイルを制することができる。

実務の現場で「動かない」「重い」と言わせないための設計。ぜひあなたの開発プロジェクトに組み込んで、その圧倒的な安定性を体感してほしい。