【入門編】【初心者向け】指定したページ名（Page Name）を変更・リネームして管理性を向上させるVBAスクリプト – CorelDRAW VBA解析バイブル

CorelDRAW VBA

2026.10.20

CorelDRAW VBAの極意：ページ名の「一括リネーム」で、地獄のようなDTP作業を天国に変える

こんにちは。CorelDRAWの自動化の世界へようこそ。

「ページが100枚あるドキュメントで、どれがどのページか分からなくなった」
「すべて『ページ1』『ページ2』という味気ない名前のせいで、修正指示のたびに迷子になる」

もしあなたがそんな悩みを抱えているなら、今日がその地獄からの脱出記念日です。CorelDRAW VBAを使えば、そんな作業は一瞬で終わります。今回は、「ページ名の一括変更」という、自動化の第一歩にして最も恩恵を感じやすいテクニックを伝授します。

「マクロの記録」から卒業し、自分の手でドキュメントを操る快感を味わいましょう。

—

CorelDRAWで大規模なDTPを行う際、ページ名はただのラベルではありません。後工程（PDF書き出しやプリフライトチェック）における「管理コード」です。

自動化の視点で見ると、ページ名は「プログラムがオブジェクトを特定するためのインデックス」になります。名前を整理することは、コードを書くための土台を整えること。ここをクリアすれば、あなたはもう「VBA初心者」を卒業したも同然です。

—

まずは、現在のドキュメントにあるすべてのページを、`Page_01`, `Page_02`…と連番でリネームするスクリプトを見てみましょう。

Sub RenamePagesSequentially()
‘ CorelDRAWのドキュメントを操作するための変数宣言
Dim doc As Document
Dim p As Page
Dim i As Integer

‘ 現在アクティブなドキュメントを取得
Set doc = ActiveDocument

‘ エラー回避：ドキュメントが開かれていない場合に備える
If doc Is Nothing Then
MsgBox “ドキュメントが開かれていません。”
Exit Sub
End If

‘ 全ページをループで巡回
For i = 1 To doc.Pages.Count
Set p = doc.Pages(i)

‘ ページ名を指定の形式に変更 (例: Page_01, Page_02…)
‘ Format関数で数字を2桁固定に整えています
p.Name = “Page_” & Format(i, “00”)

‘ 開発者へのメモ：ここがページを操作するCorelDRAWの核心部です
Next i

MsgBox “全ページのリネームが完了しました！”, vbInformation
End Sub

—

このコードをただコピペするだけでなく、中身を理解することで、応用力が飛躍的に高まります。

これはドキュメント内のページ総数を取得します。`For i = 1 To doc.Pages.Count` と書くことで、「1ページ目から最後のページまで順番に処理せよ」という命令になります。これがVBAにおける反復処理（ループ）の基本形です。

ここで重要なのが「オブジェクトへの参照」です。`p` という変数に特定のページを代入することで、その後の処理で `p.Name` と書くだけでそのページの名前を操作できるようになります。

`1, 2, 3…` と名前をつけるより、`01, 02, 03…` と桁を揃える方が、OS上のファイルソートや視認性が格段に向上します。プロのエンジニアは、常に「人間が見た時の美しさ」を計算に入れます。

—

初心者の方がよく遭遇するエラーと、それを回避するプロの知恵を共有します。

「ページ名が重複してしまうエラー」
CorelDRAWでは、同じ名前のページは作れません。もしスクリプトを二度実行しようとするとエラーになります。
対策: 運用としては、一度「Page_Temporary_01」のように仮名に変えてから本番の名前にするか、ループ内で名前を書き換える前に重複チェックを入れるのがベストです。
「ページが削除されてインデックスがズレる」
もしループ内でページを削除する処理を入れる場合は、必ず「後ろから（逆順で）」ループさせてください。前から削除すると、次に処理すべきページの番号がズレてしまい、思わぬバグを生みます。

—

このスクリプトは、あなたのDTP業務を劇的に楽にする「最初のパーツ」に過ぎません。

これらはすべて、今日学んだ基礎の延長線上にあります。怖がることはありません。CorelDRAWのAPIは非常に強力で、あなたがやりたいと思ったことのほとんどは、コードで実現可能です。

まずは、このコードを自分の環境で動かし、「自分だけの武器」を作ってみてください。何か詰まったら、いつでも戻ってきてくださいね。あなたのエンジニアリングライフを、心から応援しています！