CorelDRAW VBAの「迷宮」を突破する：Pagesコレクションを完璧に制御する極意
CorelDRAWの自動化を始めたばかりの多くの人が、最初にぶつかる壁。それが「ページの操作」です。
「マクロでページを整理しようとループを回したら、インデックスがずれてエラーが起きた」「削除したはずのページが残っている、あるいは違うページが消えた」。そんな経験はありませんか？
実は、CorelDRAWの`Pages`コレクションを操作する際に、素直な順方向ループ（1から最後まで）を使うのは「自ら地雷を踏みに行く」ようなものです。今日は、現場で生き残るための「安全なトランザクション制御」の極意を伝授しましょう。
—
なぜ「順方向ループ」が破滅を招くのか？
まず、以下のコードを見てください。やってはいけない「アンチパターン」です。
‘ 【絶対NG】削除ループの罠
For i = 1 To ActiveDocument.Pages.Count
ActiveDocument.Pages(i).Delete ‘ 1番を消すと、元2番が1番に繰り上がる！
Next i
なぜこれがダメなのか？
1. 1ページ目を削除すると、もともと2ページ目だったものが「1ページ目」に昇格します。
2. 次のループで `i = 2` になると、システムは「もともと3ページ目だったもの」を操作します。
3. 結果、削除したい対象がどんどんズレていき、最終的に `Index out of range`（インデックスが範囲外です）というエラーで沈没します。
—
解決策：逆順ループ（Backwards Iteration）という戦略
この問題を解決する最もエレガントで、世界中のプロが採用している手法が「逆順ループ」です。
「後ろから処理すれば、前のインデックスには影響を与えない」。このシンプルな事実に気づけるかどうかが、初級者と中級者の分かれ道です。
安全にページを削除するコード例
Sub SafeDeletePages()
Dim doc As Document
Dim i As Long
Set doc = ActiveDocument
‘ ページを後ろから数えて、1番目までループさせる
‘ Step -1 がこのロジックの心臓部です
For i = doc.Pages.Count To 1 Step -1
‘ 最後のページから消していくため、インデックスのズレが発生しない
doc.Pages(i).Delete
Next i
End Sub
—
応用編：ページの並び替え（トランザクションの重要性）
ページの「並び替え」は、`Move` メソッドを使います。ここでも注意が必要なのは、「移動先（After/Before）」をどう指定するかです。
特に「現在の順番を維持しつつ、特定のページを末尾に移動する」といった操作は、現在のインデックスを正確に把握しておく必要があります。
安全な並び替えの思考プロセス
並び替えを行う際は、以下の手順を徹底してください。
1. オブジェクトのキャッシュ: 操作対象のページを一度変数に格納する。
2. 存在確認: インデックスが生きているか `doc.Pages.Count` で都度確認する。
3. エラーハンドリング: 万が一の停止に備えて、Undo（元に戻す）ポイントを設定する。
Sub MoveLastPageToFirst()
Dim doc As Document
Dim pgs As Pages
Set doc = ActiveDocument
Set pgs = doc.Pages
‘ ページが2枚以上あるか安全確認
If pgs.Count < 2 Then Exit Sub
' 最後のページを最初のページの前へ移動する
' Move(BeforePage) または Move(AfterPage) を活用
pgs(pgs.Count).Move Before:=pgs(1)
MsgBox "ページの並び替えが完了しました。"
End Sub
---
プロとしてのアドバイス：ここをクリアすれば「無敵」です
CorelDRAW VBAで複雑な処理を行う際の鉄則を3つだけ覚えて帰ってください。
1. インデックスを信用するな:
コレクションの操作（追加・削除）を行うと、インデックスは動的に変化します。常に「現在のCount」を正とすること。
2. Undo（元に戻す）を意識せよ:
自動化スクリプトは、失敗した時にユーザーの作業を破壊しかねません。`Optimization = True` で描画を止め、最後に `Optimization = False` に戻すことで、処理速度の向上と「Undo履歴の一括化」が可能です。
3. 「直感的」は罠:
「1から順に処理すれば良さそう」という直感こそが、バグの温床です。常に「逆順」や「参照渡し」というエンジニアリング的な視点を持ってください。
—
まとめ
CorelDRAW VBAのオブジェクト操作は、まるでチェスのようなものです。一手打つごとに盤面（インデックス）が変わることを理解していれば、どんな複雑なページ構成も思いのままに制御できます。
今日学んだ「逆順ループ」と「オブジェクトのキャッシュ」。この2つを武器に、ぜひマクロの記録から脱却した「真の自動化エンジニア」への道を歩んでください。
次にあなたが書くスクリプトは、もっと力強く、そして壊れないものになるはずです。応援していますよ！
