CorelDRAW VBAを掌握せよ：Pagesコレクションの「破壊」と「再構築」における安全なトランザクション制御
CorelDRAWのVBA開発において、最も多くのエンジニアが「泥沼」に足を踏み入れる瞬間がある。それは、`ActiveDocument.Pages` コレクションを操作する時だ。
「なぜかインデックスがズレる」「削除したはずのページが残っている」「実行時エラーで強制終了する」。これらは技術力不足ではない。CorelDRAWの内部メモリ管理とオブジェクトライフサイクルの本質を理解していないだけだ。
今回は、数百ページのドキュメントを動的に制御する現場で叩き込まれる、「落ちない、狂わない」コレクション操作の鉄則を授ける。
—
1. なぜ「順方向のループ」が地獄への入り口なのか
多くの初心者が犯す致命的なミスがこれだ。
‘ 【アンチパターン】絶対にやってはいけないコード
For i = 1 To ActiveDocument.Pages.Count
If ActiveDocument.Pages(i).Name = “DeleteMe” Then
ActiveDocument.Pages(i).Delete ‘ 削除した瞬間、i+1番目のページがi番目に繰り上がる
End If
Next i
このコードが破綻するのは自明だ。1ページ目を削除すれば、2ページ目は自動的に1ページ目へと昇格する。しかし、ループカウンタ `i` は無慈悲にも「次は2ページ目」へと進む。結果、1ページ目の削除判定がスキップされ、最後は必ずインデックス範囲外エラーでプログラムがクラッシュする。
鉄則：コレクションを操作（削除・並び替え）する際は、常に「逆順ループ」で処理せよ。
—
2. 堅牢なPagesコレクション操作：プロダクションコード
現場でそのまま使える、安全かつ保守性の高いページ管理テンプレートを提示する。この設計の肝は、「操作対象の参照を確定させてから処理する」ことにある。
Public Sub SafePageCleanup()
Dim doc As Document
Dim i As Long
Dim targetPage As Page
Set doc = ActiveDocument
‘ トランザクション開始を意識したエラーハンドリング
On Error GoTo ErrorHandler
‘ 【重要】削除や並び替えは、必ず後ろのインデックスから開始する
For i = doc.Pages.Count To 1 Step -1
Set targetPage = doc.Pages(i)
‘ 判定ロジック：ここでは「Temp_」で始まるページを削除する例
If InStr(targetPage.Name, “Temp_”) > 0 Then
targetPage.Delete
End If
Next i
Exit Sub
ErrorHandler:
MsgBox “エラー発生: ” & Err.Description, vbCritical
End Sub
なぜこのコードが「強い」のか
1. 逆順ループ（Step -1）: 削除によるインデックスの繰り上げの影響を、既に処理済みの範囲に限定できる。
2. オブジェクトのキャッシュ: `targetPage` という変数に明示的に参照をセットすることで、ループ内の評価式で何度も `ActiveDocument.Pages(i)` を呼び出すオーバーヘッドを回避している。これはメモリ管理の観点でも極めて重要だ。
3. エラーガード: `On Error` を付与することで、意図しない破壊的な操作を即座に検出し、システム全体のクラッシュを防ぐ。
—
3. 並び替え（Move）の落とし穴と解決策
ページを移動させる際、`Page.Move` メソッドを使用するが、これも動的なコレクション操作であることに変わりはない。
例えば、「全てのページを逆順にする」といった複雑なロジックを組む場合、`ActiveDocument.Pages` に直接アクセスし続けるのは非効率的だ。
解決策：`Collection` オブジェクトに一度退避させる
1. 必要なページを一時的な `Collection` オブジェクトに格納する。
2. CorelDRAW上のページを全てクリア（あるいは特定の状態にする）。
3. `Collection` をループさせ、`Add` または `Move` を実行して再構築する。
これにより、「現在のPagesの状態」に依存しない、極めて予測可能性の高いプログラムが完成する。
—
4. データベース連携時の注意点：同期の哲学
自動化ツールが外部データベースと連携する場合、「ドキュメントの状態」と「データソース」は、常に非同期であると認識せよ。
- ページ名＝ID: ページ名にデータベースの主キーを埋め込む際は、必ず一意性を保証すること。
- 整合性チェック: 処理の冒頭で `doc.Pages.Count` とデータベースのレコード数を比較し、乖離がある場合は処理を中断し、ユーザーに警告を出せ。「サイレントな不整合」こそが、業務現場で最も恐ろしいバグだ。
—
最後に：エンジニアとしての矜持
CorelDRAW VBAは古い言語だが、そのオブジェクトモデルは非常に精緻に設計されている。APIが古いからと侮るなかれ。今回解説した「逆順ループ」や「参照の管理」は、モダンな言語においてもオブジェクトコレクションを扱う際の普遍的なベストプラクティスだ。
コードを書くときは常に想像力を働かせろ。「今この瞬間、メモリ上で何が起きているか」を。それができれば、あなたの書くスクリプトは、ただ動くだけのコードから、堅牢な業務ソリューションへと昇華する。
健闘を祈る。
