CorelDRAW VBAを掌握する極限の知見
第1回：ページ追加イベントの罠と、自動連番リネームの堅牢な設計
業務自動化の現場において、デザイン工程の効率化は常に命題だ。特に複数ページにわたるカタログ、パッケージ展開、多言語マニュアルなどをCorelDRAWで扱う際、最もフラストレーションが溜まるのが「ページの管理」である。
デフォルトで生成される「ページ 1」「ページ 2」という無機質な名前。これをプロジェクトの進行に合わせて手動でリネームしていく作業は、エンジニアの観点から見れば完全な「無駄な工数」であり、ヒューマンエラーの温床だ。
今回は、新規ページが追加された瞬間に、あるいはバッチ処理の過程で、あらかじめ定められた命名規則（例：`Layout_01`, `Layout_02`…）に自動でリネームするプロダクション品質のVBAコードを伝授する。
—
なぜ「素朴なループ処理」では実務で破綻するのか？
初心者がやりがちなアプローチは、現在の総ページ数を取得し、単純にループを回して名前を書き換えるコードだ。しかし、CorelDRAWのオブジェクトモデルの特性を知る者にとって、それは悪夢の始まりに等しい。
CorelDRAWの `ActiveDocument.Pages` コレクションは、1ベース（1から始まる）であり、レイアウトやマスターページの概念が絡むと、インデックスのズレや予期せぬ実行時エラーを引き起こす。さらに、すでにリネーム済みのページに対して再度名前を上書きしようとしたり、存在しないページを参照したりする「余計な処理」が走ることで、パフォーマンスが著しく低下する。
真に堅牢な自動化とは、以下の条件を満たしているものだ。
1. べき等性（Idempotency）：何度同じコードを実行しても、結果が常に安全かつ正しく保たれること。
2. 例外処理の完備：予期せぬドキュメント状態であっても、VBA特有の冷たい「実行時エラー」で強制終了させないこと。
3. パフォーマンスの最適化：画面描画のちらつき（ScreenUpdating）を抑制し、ミリ秒単位で処理を完了させること。
—
【実務仕様】自動連番リネーム・メインエンジン
以下のコードは、現在のドキュメント内の全ページをスキャンし、指定されたプレフィックス（接頭辞）と連番で美しく再命名するプロシージャだ。単にページを追加した時だけでなく、ページが削除されて歯抜けになった命名規則を「再整列（リインデックス）」するためにも機能する。
‘ ==============================================================================
アクティブドキュメントの全ページを指定ルールで一括リネームする堅牢なプロシージャ
‘ Author: Lead Automation Engineer
‘ ==============================================================================
Public Sub AutoRenamePages()
‘ エラーハンドリングの有効化
On Error GoTo ErrorHandler
‘ 1. ドキュメントが開かれているか厳格にチェック
If Application.Documents.Count = 0 Then
MsgBox “処理対象となるドキュメントが開かれていません。”, vbCritical, “CorelDRAW Automation”
Exit Sub
vbEnd If
Dim doc As Document
Set doc = ActiveDocument
‘ 2. 画面描画を停止し、処理速度を極限まで引き上げる（最重要プラクティス）
doc.Optimization = True
Application.EventsEnabled = False
Dim p As Page
Dim i As Long
Dim baseName As String
Dim newName As String
‘ プレフィックスの定義（必要に応じて外部設定やダイアログに変更可能）
baseName = “Layout_”
i = 1
‘ 3. ページコレクションを安全に走査
For Each p In doc.Pages
‘ ゼロ埋め2桁のフォーマットを適用（例: Layout_01, Layout_02…）
newName = baseName & Format(i, “00”)
‘ 既に同じ名前がついている場合の無駄な代入を避ける（最適化）
If p.Name <> newName Then
p.Name = newName
End If
i = i + 1
Next p
CleanUp:
‘ 4. 必ず描画フラグとイベントを復元する（これを怠るとCorelDRAWがフリーズ個体に）
doc.Optimization = False
Application.EventsEnabled = True
doc.Window.Refresh
Exit Sub
ErrorHandler:
‘ 予期せぬエラー発生時も環境を破壊しないためのフェイルセーフ
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “Critical Error”
Resume CleanUp
End Sub
—
プロが仕込むべき「3つのエンジニアリング知見」
上記のコードを単なるコピペで終わらせず、現場のチーフとしてなぜこの構造にたどり着いたのか、その背景にあるアーキテクチャを解説する。
1. `doc.Optimization = True` の絶対性
CorelDRAW VBAにおいて、ページ名変更やオブジェクト操作を行う際、裏ではGUIの再描画（UIのレンダリング）が走っている。これを放置して一括処理を行うと、ページ数が増えるにつれて指数関数的に処理が重くなる。`Optimization` を `True` にすることで、UIの更新を完全にブラックボックス化し、メモリ上のデータ操作だけに絞ることで最大10倍以上の高速化を実現できる。
2. ゼロ埋めフォーマット (`Format(i, “00”)`) の採用
プロフェッショナルなアセット管理において、`Layout_1`, `Layout_2`… と一桁・二桁が混在する命名規則は、エクスプローラーでのファイルソートや外部データベース（PDM/ERP）連携時に致命的なバグを生む。必ず `Format(i, “00”)` を用いて桁数を統一せよ。将来的に100ページを超えることが確実な場合は `”000″` へ拡張する設計にしておくこと。
3. イベントとエラーハンドリングの生還保証
VBAで最も恐ろしいのは、エラー発生時に `Optimization = True` や `EventsEnabled = False` が解除されないままコードが停止し、CorelDRAW自体が操作を受け付けなくなる現象だ。必ず `CleanUp` ラベルを用意し、エラーの有無に関わらず環境変数が元の状態に復元される「try-finally」的な構造を担保しなければならない。
—
データベース・外部ファイル連携への拡張性
実務の現場では、この自動リネーム処理単体で終わることは少ない。例えば、「ExcelやCSVからインポートしたシート名（または製品型番リスト）を、そのままCorelDRAWのページ名に流し込む」という要件が必ず降ってくる。
その場合、上記コードの `newName = baseName & Format(i, “00”)` の部分を、外部配列やDictionaryオブジェクトから値を取得するロジックに差し替えるだけで対応できる。
‘ 疑似コード：外部データと同期させる場合のイメージ
‘ Dim pageNames() As String
‘ pageNames = LoadNamesFromCSV(“C:\Data\layout_list.csv”)
‘ newName = pageNames(i)
‘ p.Name = newName
ファイルパスのハードコーディングを避け、INIファイルや環境変数、あるいは現在開いているCDRファイル名から規則性を動的に導き出す設計こそが、保守性の高いシステムの条件だ。
—
総括
たかが「ページのリネーム」と侮るなかれ。
自動化における細部へのこだわり（堅牢性、パフォーマンス、例外処理）の積み重ねこそが、チーム全体の生産性を担保し、深夜のトラブルシューティングという無駄なコストを消し去る。
CorelDRAW VBAの限界を嘆く前に、まずは自身のコードの「防衛力」を高めよ。あなたの手元にあるそのマクロは、明日からでもプロダクション環境に耐えうるものになっているはずだ。
