CorelDRAW VBAを掌握する極限の知見：動的ページ数取得と堅牢なドキュメント制御の鉄則
開発プロジェクトの現場において、VBAコードの良否を分ける境界線はどこにあるか。それは「決め打ち（ハードコーディング）」を排除し、環境の変化や予期せぬデータ構造に耐えうる「動的適応力」を持っているかどうかだ。
CorelDRAWの自動化において、ページ数やレイヤー構造を固定値で処理するコードを見かけることがよくある。だが、それは業務効率化の名を借りた「将来のバグ製造機」に他ならない。クライアントから納品されるデータは、常にページ数が変動する。
今回は、CorelDRAW VBAにおけるマルチページ制御の基本にして極意である「ドキュメントの総ページ数の動的取得」をテーマに、実務の現場で即座に通用するプロダクションコードの書き方を伝授しよう。
—
1. なぜ「マジックナンバー」を排除すべきなのか
多くの初学者がやりがちなミスは、以下のようなコードだ。
‘ 【アンチパターン】絶対に真似してはならないコード
Sub BadExample()
‘ 3ページあると決めつけて処理を回す
ActiveDocument.Pages(1).Activate
‘ 処理…
ActiveDocument.Pages(2).Activate
‘ 処理…
ActiveDocument.Pages(3).Activate
‘ 処理…
End Sub
このコードの何が問題か。
1. 保守性の欠如: ページが増減するたびにコードの修正が必要になる。
2. 実行時エラーの温床: 2ページのドキュメントに対して`Pages(3)`にアクセスした瞬間、CorelDRAWは容赦なく実行時エラー（インデックスが有効範囲にありません）を吐き出して強制終了する。
プロのエンジニアであれば、ドキュメントの現在の状態をAPIからリアルタイムかつ安全に取得し、その結果に基づいて処理のスコープを動的に決定させなければならない。
—
2. `ActiveDocument.Pages.Count` プロパティの正しい理解
CorelDRAWのオブジェクトモデルにおいて、アクティブなドキュメントの全ページを統括しているのが `ActiveDocument.Pages` コレクションである。
このコレクションが持つ `Count` プロパティ を使うことで、現在開かれているドキュメントに何枚のページが存在するのかを瞬時に取得できる。
ライフサイクルとパフォーマンスの注意点
`Pages.Count` は非常に軽量なプロパティであり、参照するたびに描画エンジンに負荷をかけるようなものではない。しかし、ループ処理の条件式（`For i = 1 To ActiveDocument.Pages.Count`）の都度評価させるのは、大規模ドキュメントにおいてわずかだが無駄なオーバーヘッドを生む。
プロダクションコードでは、ループに入る前に変数へキャッシュ（格納）するのが、シニアエンジニアの美学であり定石だ。
—
3. 【コピペで動く】堅牢なプロダクションコード例
それでは、実務の現場でそのまま使用できる、安全かつエレガントなマクロを提示しよう。このコードは、現在のページ数を安全に取得し、イミディエイトウィンドウへログ出力すると同時に、全ページを巡回する基本構造（スケルトン）を備えている。
‘ ==============================================================================
‘ モジュール名: ModPageAnalyzer
‘ 概要 : ドキュメントの総ページ数を動的に取得し、安全に巡回処理を行うテンプレート
‘ 開発者 : 首席チーフアーキテクト
‘ ==============================================================================
Option Explicit
Public Sub AnalyzeAndLogTotalPages()
‘ 1. エラーハンドリングの有効化（外部要因によるクラッシュを防ぐ）
On Error GoTo ErrorHandler
‘ 2. ドキュメントが開かれているかどうかの事前検証（Null参照防止）
If Documents.Count = 0 Then
MsgBox “処理対象となるドキュメントが開かれていません。”, vbCritical, “エラー”
Exit Sub
End If
Dim targetDoc As Document
Set targetDoc = ActiveDocument
‘ 3. 総ページ数を動的に取得し、変数にキャッシュする
Dim totalPages As Long
totalPages = targetDoc.Pages.Count
‘ 4. ログ出力（イミディエイトウィンドウへの詳細出力）
Debug.Print “========================================”
Debug.Print “ドキュメント名: ” & targetDoc.Name
Debug.Print “総ページ数 : ” & totalPages & ” ページ”
Debug.Print “========================================”
‘ 5. 動的ページ数を用いた安全なループ処理の構築
Dim i As Long
Dim currentPage As Page
For i = 1 To totalPages
‘ インデックスによる安全なページ参照
Set currentPage = targetDoc.Pages(i)
‘ 各ページに対する処理をここに記述
Debug.Print ” -> 処理中: ページ ” & i & ” (名前: ” & currentPage.Name & “)”
‘ 例: ページごとのオブジェクト数を出力するなどの実務的拡張
‘ Debug.Print ” 図形数: ” & currentPage.Shapes.Count
Next i
MsgBox “ページ情報の取得と解析が正常に完了しました。” & vbCrLf & _
“総ページ数: ” & totalPages, vbInformation, “処理完了”
Exit Sub
ErrorHandler:
‘ 予期せぬ例外処理
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “致命的エラー”
‘ オブジェクトの解放
Set targetDoc = Nothing
Set currentPage = Nothing
End Sub
—
4. コードの設計思想と現場で活きるポイント
上記のコードには、単に「ページ数を取得してログを出す」以上の、実務を生き抜くための設計思想が組み込まれている。
① ドキュメント存在チェック (`Documents.Count = 0`)
CorelDRAWが起動していながら、編集中のドキュメントが1つもない（すべて閉じられている）状態でマクロを実行すると、`ActiveDocument` を呼び出した瞬間に実行時エラーでマクロが落ちる。これを未然に防ぐため、処理の最上流でドキュメントの存在有無をガードしている。
② エラーハンドリングの標準装備
「動くはずのないエラー」を想定するのがプロの仕事だ。`On Error GoTo ErrorHandler` を記述し、万が一のメモリ不足やファイルロック等の例外が発生した場合でも、CorelDRAWごと強制終了するのではなく、优雅にメッセージボックスを表示して安全に終了する設計にしている。
③ イミディエイトウィンドウの活用
GUI（メッセージボックス）だけに頼らず、`Debug.Print` を用いてVBAの「イミディエイトウィンドウ」にログを出力する癖をつけよう。大量のページを持つドキュメント処理において、処理の進捗やデバッグ情報を視覚的に確認するための必須テクニックである。
—
総括
今回解説した `ActiveDocument.Pages.Count` による動的なページ数取得は、CorelDRAW自動化の海原へ漕ぎ出すための「羅針盤」となる。
ハードコーディングの呪縛から脱却し、環境やデータに応じて自律的に挙動を変える堅牢なコードを書くこと。それこそが、業務効率化を真の成功へと導く唯一の道である。この基本形をマスターした読者であれば、レイヤーの動的制御や一括エクスポート処理といった、さらなる高度な自動化への扉を叩く資格は十分にある。
