CorelDRAW VBAを掌握せよ：ページ管理の「名付け」こそがDTP自動化の第一歩である
CorelDRAWの自動化において、多くの初心者が陥る罠がある。それは、「ページをただのキャンバスとして扱う」ことだ。
しかし、実務で数百ページに及ぶカタログや可変データを作成する際、デフォルトの「Page 1」「Page 2」という名称は、もはやノイズでしかない。管理性を放棄したファイルは、いずれ複雑なスクリプトを実行した瞬間に破綻する。
今日は、ページのリネームという「地味だが極めて重要なプロセス」を、プロダクション環境で耐えうる堅牢なコードとして実装する方法を伝授する。
—
なぜ「連番リネーム」が自動化の要なのか
DTPの現場では、クライアントの修正や差し替えが頻繁に発生する。スクリプトで自動配置やエクスポートを行う際、対象となるページを「インデックス番号（1, 2, 3…）」で指定していると、ページ順序を入れ替えた瞬間に全ての整合性が崩れる。
「ページ名＝識別子（ID）」として運用する。これが、大規模DTP自動化における鉄則だ。
—
実務で通用する堅牢なページリネーム・スクリプト
初心者が書きがちな「エラーハンドリング無しのコード」は、例外発生時にCorelDRAW自体をフリーズさせる危険性がある。以下のコードは、オブジェクトの存在確認と安全なループ処理を意識した、保守性の高いプロダクションコードだ。
Option Explicit
‘ ———————————————————
‘ 機能：指定した接頭辞で全ページをリネームする
‘ 理由：インデックス依存の処理を廃し、管理性を高める
‘ ———————————————————
Sub RenameAllPagesWithPrefix()
Dim doc As Document
Dim p As Page
Dim i As Integer
Dim prefix As String
‘ プロセスの対象ドキュメントを明示的に取得
Set doc = ActiveDocument
‘ ユーザー入力のガード（空文字やキャンセルを考慮）
prefix = InputBox(“ページ名に付ける接頭辞を入力してください（例: ITEM_）”, “ページリネーム”)
If prefix = “” Then Exit Sub
‘ 処理の高速化：描画の更新を一時停止する（必須のテクニック）
Optimization = True
On Error GoTo ErrorHandler
i = 1
For Each p In doc.Pages
‘ ページ名を「接頭辞 + 3桁の連番」に統一する
‘ Format関数を使うことで、ソート時の視認性を最大化する
p.Name = prefix & Format(i, “000”)
i = i + 1
Next p
MsgBox “全” & doc.Pages.Count & “ページの名称変更が完了しました。”, vbInformation
Cleanup:
Optimization = False
ActiveWindow.Refresh
Exit Sub
ErrorHandler:
MsgBox “エラー発生: ” & Err.Description, vbCritical
Resume Cleanup
End Sub
—
コードの「意図」を読み解く：プロの設計思想
このスクリプトには、いくつか「現場で生き残るための仕掛け」が施されている。
1. `Optimization = True` の重み
CorelDRAW VBAは、コード実行中に画面描画を更新しようとする。ページ数が多い場合、この「描画更新」が処理時間を数倍に引き延ばす。`Optimization` を適切に制御することは、エンジニアとしての最低限の教養だ。
2. `Format(i, “000”)` の重要性
なぜただの連番ではなく、あえて桁数を揃えるのか？それは、WindowsのファイルシステムやCorelDRAWのページ管理ウィンドウにおいて、「ソート順」を保証するためだ。「1, 10, 11, 2」のような辞書順ソートを防ぎ、常に論理的な順番を維持する。これが後工程の自動化を楽にする。
3. エラーハンドリングの徹底
「ページがロックされている」「メモリ不足で描画が失敗した」といった想定外の事態が発生した際、`Optimization = True` のままだと、CorelDRAWは操作を受け付けなくなる。`ErrorHandler` を用いて、いかなる場合も `Optimization = False` に戻す構造を担保せよ。
—
次のステップ：データベースとの連携を見据えて
今回のコードは単体で機能するが、本当の自動化はここから始まる。例えば：
- CSVから読み込んだ商品名をページ名に割り当てる
- 外部データベースのIDをページ名に埋め込み、後の自動エクスポートのファイル名として利用する
ページ名を「意味のある文字列」に変換することは、「CorelDRAWのデータを、データベースと同期可能な情報資産に変える」ということと同義だ。
まずはこのスクリプトを自分の環境で試し、ページ管理の意識を変えてほしい。ツールを作るとき、そのツールが「未来の作業」をどれだけ楽にするか。それを想像できないエンジニアに、優れた自動化はできない。
さあ、次はどの無駄な作業を自動化しようか？君のコードが、現場を変える。
