こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して、生成されたコードを眺めてみたものの、「なんだか難しそう…」「ページを切り替えるたびに画面がチラついて遅いな…」と感じていませんか？
大丈夫、ここをクリアすれば、CorelDRAW VBAの基本はバッチリです！
今回は、膨大なページ数を持つ多ページドキュメントを、まるで風のように軽快に駆け抜ける「Documentオブジェクトの走査とページ切り替えの極意」を、優しく、そして本質的なところまで深く解説していきます。
マクロの記録から脱却し、真の業務自動化エンジニアへの第一歩を一緒に踏み出しましょう。
—
1. なぜ「ページ一括処理」で躓くのか？（オブジェクトモデルの正体）
CorelDRAWを開くと、そこには `Application` という巨大な宇宙が広がっています。その中に現在開いているファイルである `Document` があり、さらにその中に `Page` や `Layer`、そして図形（`Shape`）が存在しています。
私たちがやりがちな失敗は、「画面上でページをめくるように、VBAでも一ページずつアクティブ（選択）にしようとする」ことです。
‘ 【やってはいけないアンチパターン】
Dim i As Long
For i = 1 to ActiveDocument.Pages.Count
ActiveDocument.Pages(i).Activate ‘ 画面を無理やり書き換える
‘ 何らかの処理…
Next i
これ、ページ数が100ページを超えてくると、画面の再描画（レンダリング）が走るせいで恐ろしく処理が遅くなります。画面は人間が見るためのもの。VBAが仕事をするときは、画面をチラつかせてはいけません。
—
2. 爆速処理の秘訣：画面描画の凍結（ScreenUpdating）
大量のページを一括処理するプロのエンジニアは、処理の最初に「画面の更新をストップ」させます。これだけで、実行スピードが何倍も跳ね上がります。
‘ 画面描画をストップ（魂のテクニック1）
Application.Optimization = True
処理が終わったら、必ず元の状態に戻す（`False`にする）のを忘れないでくださいね。これを忘れると、CorelDRAWの画面がフリーズしたような幽霊状態になってしまいます。
—
3. 実践！全ページをスマートに走査するマクロ
それでは、すべてのページを安全かつ爆速で巡回し、例えば「全ページの特定の位置にノンブル（ページ番号）や共通の処理を入れる」ようなシチュエーションを想定したコードを見てみましょう。
Sub ProcessAllPagesLikeAPro()
‘ —————————————————-
‘ 複数ページ一括処理の模範解答テンプレート
‘ —————————————————-
‘ 1. ドキュメントが開かれているかチェック（基本の防衛策）
If Documents.Count = 0 Then
MsgBox “処理対象のドキュメントが開かれていません。”, vbCritical, “エラー”
Exit Sub
End If
Dim doc As Document
Set doc = ActiveDocument
‘ 2. 爆速化のための最適化スイッチON
Application.Optimization = True
‘ 画面の自動再描画をオフにする
doc.ClearSelection
Dim p As Page
Dim originalPage As Page
Set originalPage = doc.ActivePage ‘ 処理が終わった後に元のページに戻すための親切設計
On Error GoTo ErrorHandler ‘ エラー時に最適化が戻らない悲劇を防ぐ
‘ 3. Pagesコレクションを優雅にループ
For Each p In doc.Pages
‘ ページをアクティブにする（オブジェクトとしてのコンテキストを切り替え）
p.Activate
‘ — ここから各ページに対する実際の処理 —
‘ 例として、現在のページ番号をイミディエイトウィンドウに出力
Debug.Print “処理中: ページ ” & p.Index & ” / ” & doc.Pages.Count
‘ 例：このページにある特定のレイヤーの図形を操作するなど
‘ Dim s As Shape
‘ For Each s in p.Layers(“レイヤー 1”).Shapes
‘ ‘ 何かする…
‘ Next s
‘ ——————————————
Next p
ErrorHandler:
‘ 4. 必ず最適化と画面を元に戻す（ライフサイクル管理の鉄則）
Application.Optimization = False
doc.BreezeMode = False
originalPage.Activate ‘ 元のページを復元
If Err.Number <> 0 Then
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
Else
MsgBox “すべてのページの処理が完了しました！”, vbInformation, “完了”
End If
End Sub
—
4. コードの深掘りポイント（初心者が押さべき3原則）
上記のコードには、現場で生き残るための知恵が詰まっています。
① `For Each`構文の美しさ
`For i = 1 To doc.Pages.Count` でも間違いではありませんが、`For Each p In doc.Pages` を使うことで、コレクションのインデックスズレや余計なバグを回避できます。オブジェクトモデルと対話する時は、コレクションを直接舐めるのがVBAの作法です。
② エラーハンドリング（`On Error GoTo`）の重要性
大規模な処理の途中でエラーが発生し、コードが途中で止まってしまった場合、`Application.Optimization = True`（画面描画停止）のままになってしまいます。これを防ぐために、必ず `ErrorHandler` ラベルを用意し、異常時でも環境をクリーンアップする仕組みを作りましょう。これがプロとアマの分かれ道です。
③ コンテキストの復元
マクロが終了したとき、ユーザーが作業していたページとは違うページがアクティブになっていると、地味にストレスを与えます。処理の最初に `originalPage` を変数に記憶しておき、最後に送り返してあげる。こういう「気配り」ができるエンジニアは素敵です。
—
まとめ
いかがでしたでしょうか？
今回は、複数ページのデザインを一括処理するためのDocumentオブジェクトの走査と、ページ切り替えのテクニックを解説しました。
- 画面の最適化（`Application.Optimization = True`）で爆速化する
- `For Each` でエレガントにコレクションを走査する
- エラー時や終了時の後始末を忘れない
ここさえ押さえておけば、何百ページあるカタログやパンフレットのデータであっても、CorelDRAW VBAはあなたの一番の忠実な部下になってくれます。
それでは、快適なCorelDRAW自動化ライフを！次回の記事もお楽しみに。
