こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して「動いたはいいけれど、中身が全然読めない……」と頭を抱えていませんか？
今回は、カタログやパンフレットの自動生成で避けて通れない「ページ操作（追加・並び替え・削除）」をテーマに取って置きのノウハウをお伝えします。
ページがダイナミックに入れ替わるドキュメント構築において、VBAの制御を誤ると、CorelDRAWが突如として強制終了したり、意図しないページが消えてしまったりという「恐怖のパニック」を引き起こします。
でも、安心してください。オブジェクトのライフサイクルと「正しいトランザクション制御（安全管理）」の概念さえ押さえれば、CorelDRAW VBAはあなたの最強の相棒になります。
ここをクリアすれば、基本はバッチリです！一緒にマスターしていきましょう。
—
1. CorelDRAWのページモデルと「ズレる」恐怖
まず、CorelDRAWの `Pages` コレクションの仕様を知ることから始めましょう。
Excel VBAを触ったことがある人なら、シートの追加や削除は直感的にできると思うかもしれません。しかし、CorelDRAWのページ管理には特有の「罠」があります。
たとえば、次のようなコードを実行したとします。
‘ 悪い例：ループの中でページを直接削除していく
Dim i As Long
For i = 1 To ActiveDocument.Pages.Count
ActiveDocument.Pages(i).Delete
Next i
――はい、これ、大爆死します。
なぜか？
CorelDRAWのコレクションは、要素が削除されるたびに、後続のインデックスが「前へ詰まる」からです。
1ページ目を消すと、さっきまで2ページ目だったものが1ページ目に繰り上がります。それをインデックスの数だけループさせようとすると、存在しないページを参照してエラーになるか、意図しないページが生き残ることになります。
これが、動的なページ操作において「安全なトランザクション制御」が絶対に必要な理由です。
—
2. 安全なページ構築のための「3つの鉄則」
現場で生き残るプロのエンジニアは、ページの増減を場当たり的に行いません。以下の3つのルールを鉄則としています。
1. 逆順ループ（逆から攻める）の原則
削除や一括処理を行うときは、必ず「最後のページ（Max）」から「最初のページ（1）」に向かって処理します。これならインデックスがズレても、処理済みの領域には影響しません。
2. 常に「Active」に頼らない参照の保持
`ActivePage` や `ActiveDocument` は非常に便利ですが、自動化スクリプトが高速に走っている最中にユーザーが画面を触ったりすると、フォーカスがズレて予期せぬバグを生みます。オブジェクト変数を明示的に宣言し、ドキュメントのコンテキストを固定しましょう。
3. トランザクション（一括処理）の概念
ページ構造を大きく変更する際は、画面の描画を一度ストップさせ、メモリ上で安全に処理を完結させてから最後に画面を更新します。これにより、パフォーマンスが劇的に向上し、描画エラーを防げます。
—
3. 実践！安全なページ追加・並び替え・削除のテンプレートコード
それでは、実際の現場でそのままコピペして使える、極めて堅牢なページ制御プロシージャをお見せします。
このコードでは、「不要なページを全削除したのち、指定枚数のテンプレートページを動的に生成し、特定のページを移動（並び替え）する」という一連の流れを安全にコントロールします。
Sub SafePageTransactionDemo()
‘ ==========================================
‘ 安全なページトランザクション制御のサンプル
‘ ==========================================
Dim doc As Document
Set doc = ActiveDocument
‘ 【重要】画面描画を停止し、処理速度の向上とチラつき（エラー）を防止する
doc.Holder.LayerManager.EventsEnabled = False
Application.Optimization = True
On Error GoTo ErrorHandler ‘ 予期せぬエラー時に必ず描画を戻すためのセーフティネット
‘ ——————————————
‘ ステップ1: 安全な全ページ削除（後ろからループ！）
‘ ——————————————
Dim i As Long
Dim pageCount As Long
pageCount = doc.Pages.Count
‘ ドキュメントには最低1ページは必要なので、最後の1ページになるまで後ろから削除
For i = pageCount To 2 Step -1
doc.Pages(i).Delete
Next i
‘ 残った最後の1ページを「表紙」としてリネーム
doc.Pages(1).Name = “Cover_Page”
‘ ——————————————
‘ ステップ2: 必要なページを動的に追加する
‘ ——————————————
Dim targetPages As Long
targetPages = 4 ‘ ここでは例として合計4ページ構成にする
Dim p As Page
For i = 2 To targetPages
‘ 最終ペジェットの後ろに新規ページを追加していく
Set p = doc.AddPages(1)
p.Name = “Catalog_Page_” & i
Next i
‘ ——————————————
‘ ステップ3: ページの並び替え（Moveレイアウト操作）
‘ ——————————————
‘ 例：最後に作ったページ（4ページ目）を、2ページ目の直後に移動させる
Dim targetPage As Page
Set targetPage = doc.Pages(4)
‘ PageオブジェクトのMove方法：指定したページの「前」または「後」に移動
‘ ここでは2ページ目の後ろ(After)に移動させます
targetPage.Move doc.Pages(2), False ‘ False = 後ろへ配置 (True = 前へ配置)
‘ ——————————————
‘ 終了処理: 正常終了
‘ ——————————————
GoTo CleanUp
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “トランザクション異常終了”
CleanUp:
‘ 【超重要】止めていた描画とイベントを必ず元の状態に戻す
Application.Optimization = False
doc.Holder.LayerManager.EventsEnabled = True
doc.Window.Refresh
MsgBox “ページの動的構築が正常に完了しました！”, vbInformation, “完了”
End Sub
—
4. コードの深掘り：なぜこの書き方が「神」なのか？
上記のコードには、CorelDRAW VBAを極めたエンジニアならではのこだわりが詰まっています。
- `Application.Optimization = True` の魔法
これを行うと、CorelDRAWは画面の再描画を完全に無視してバックグラウンドで処理に専念します。何十ページもあるカタログを一瞬で構築する際には必須の呪文です。
- `On Error GoTo ErrorHandler` と `CleanUp` のセット
もし処理の途中でエラー（例えば、存在しないページを指定してしまった等）が発生したとき、画面描画が止まったままVBAが終了すると、CorelDRAWの画面がフリーズしたような状態になりユーザーを絶望させます。どんな結果になろうとも、`CleanUp` ラベルを通って環境を復旧させるのがプロの作法です。
- `doc.AddPages(1)` の戻り値の捕捉
ページを追加した直後に `Set p = …` でオブジェクト変数に捉えています。これにより、追加されたその瞬間に名前を変更したり、レイヤー操作を行ったりすることが安全に可能になります。
—
最後に：ここをクリアすれば、もう怖くない
CorelDRAW VBAのオブジェクトモデルは、最初は少し気難しく感じるかもしれません。しかし、「コレクションの増減は逆から行う」「重い処理の前には必ず最適化（Optimization）をかけ、例外処理で確実に元に戻す」という基本方針さえ守れば、意のままにドキュメントを操ることができます。
ページ構成がどれだけ複雑な動的カタログであっても、もうあなたを悩ませることはありません。
ぜひ、あなたの開発現場の自動化ツールにこのトランザクション制御を取り入れてみてください。圧倒的な安定感に驚くはずです。
それでは、次回の極限の知見でお会いしましょう！バッチリ使いこなしてくださいね！
