脱・マクロ記録！CorelDRAW VBAで「ページ名の一括リネーム」をマスターして、作業時間をゼロにする
こんにちは。業務自動化の世界へようこそ。
CorelDRAWで大規模なカタログや多ページのプレゼンテーション資料を作成しているとき、「ページ名が『Page 1』『Page 2』のままで、どれがどのデザインか分からない……」と、手作業でポチポチと名前を打ち替えていた経験はありませんか？
もしあなたが今、その作業に数分、あるいは数十分を費やしているとしたら、それは非常に惜しい時間です。なぜなら、たった数行のコードで、その作業を「0秒」にできるからです。
今日は、プログラミング初学者が「マクロの記録」という殻を破り、真の自動化エンジニアへの第一歩を踏み出すための、最も実用的で美しいテーマ「ページ名の一括連番付与」を解説します。
ここをクリアすれば、CorelDRAW VBAの基本構造が手に取るように分かるようになりますよ。準備はいいですか？
1. なぜ「マクロの記録」では足りないのか？
CorelDRAWには「マクロの記録」機能があります。操作を記録してコードを生成してくれる便利な機能ですが、これには致命的な弱点があります。
それは、「変化する状況に対応できない」ということです。
「記録」したコードは、「1ページ目を『Project_A』に変える」という固定的な指示しか持ちません。ページが10枚になろうが、100枚になろうが、記録したコードは1ページ目しか見てくれないのです。
私たちが目指すのは、「ページが何枚あっても、その数に合わせて賢く動くコード」です。これを作るために必要なのが、プログラミングの核心である「ループ処理（繰り返し）」です。
2. 実践コード：ページ名をスマートにリネームする
まずは、そのままコピー＆ペーストして使える完成形のコードを見てみましょう。このコードは、ユーザーが指定した文字（プレフィックス）の後ろに、`001`, `002` といった綺麗な連番を付けてページ名を書き換えます。
Option Explicit
''' <summary>
''' ページ名にプレフィックスと連番を一括付与するマクロ
''' </summary>
Sub RenamePagesWithSequentialNumber()
Dim doc As Document
Dim i As Integer
Dim prefix As String
' 1. 現在開いているドキュメントを変数にセット
' これにより、操作対象を明確にします
Set doc = ActiveDocument
' エラーハンドリング：ドキュメントが開かれていない場合の対策
If doc Is Nothing Then
MsgBox "ドキュメントが開かれていません。", vbExclamation
Exit Sub
End If
' 2. ユーザーにプレフィックス（接頭辞）を入力してもらう
' InputBoxを使うことで、マクロを書き換えずに再利用できます
prefix = InputBox("ページ名の先頭に付ける文字を入力してください" & vbCrLf & "(例: Project_A)", "ページ名一括変更")
' キャンセルされた場合は処理を終了
If prefix = "" Then Exit Sub
' 3. ループ処理によるリネームの実行
' doc.Pages.Count は、ドキュメント内の全ページ数を返します
' 1ページ目から最後のページまで、順番に処理を行います
For i = 1 To doc.Pages.Count
' 【ここが魔法の行！】
' doc.Pages(i).Name : i番目のページの「名前」プロパティ
' prefix & ... : 入力された文字と、後ろの文字を結合する
' Format(i, "000") : 数字を 001, 002 のような3桁の形式に整える
doc.Pages(i).Name = prefix & "_" & Format(i, "000")
Next i
' 4. 完了報告
MsgBox doc.Pages.Count & "枚のページ名を更新しました！", vbInformation, "完了"
End Sub3. コードの深層：プロの視点で解説する「3つの極意」
このコードには、初心者から一歩抜け出すための重要なテクニックが凝縮されています。
① 「オブジェクト」を捉える感覚
`doc.Pages(i)` という記述。これは単なる文字の羅列ではありません。
CorelDRAWという巨大な宇宙の中に存在する「ドキュメント」があり、その中に「ページ」という集合体（コレクション）があり、その中の「i番目」という特定の個体を指し示しています。
「親（Document）→ 子（Pages）→ 孫（Page）」という階層構造を意識することが、VBAマスターへの近道です。
② `Format` 関数がもたらす「整列の美学」
単に `prefix & i` と書くと、名前は `Project_1`, `Project_10`, `Project_2` となってしまいます。これではファイル管理の際に、コンピュータが順番を正しく認識できません（1の次に10が来てしまう）。
そこで `Format(i, “000”)` を使います。これにより `001`, `002`… と桁数が揃い、「並び順が崩れない、プロ仕様の管理」が実現できるのです。
③ `For…Next` ループの魔力
`For i = 1 To doc.Pages.Count`
この一行が、あなたの代わりに「1枚目を確認、名前を変える」「2枚目を確認、名前を変える」という単純作業を、人間が疲れることなく、かつ正確に、超高速で繰り返してくれます。
4. 陥りやすいエラーと対策（ここが重要！）
エンジニアの仕事は、コードを書くことではなく「エラーを防ぐこと」にあります。
- 「インデックスが範囲外です」エラー
VBAでは、コレクション（集まり）の番号は 1 から始まります。多くのプログラミング言語（PythonやJavaScriptなど）は 0 から始まりますが、CorelDRAWのページ番号は 1 です。ここを間違えて `For i = 0 To …` と書くと、エラーで止まってしまいます。
- ドキュメント未選択エラー
何もファイルを開いていない状態でマクロを実行すると、`ActiveDocument` が空っぽ（Nothing）のため、エラーになります。上記のコードでは `If doc Is Nothing` を使って、優しくエラーを回避するように設計しています。
5. おわりに：次はどんな景色が見えますか？
お疲れ様でした！
あなたは今、「決まった動作を記録する人」から、「状況に応じて命令を組み立てる人」へと進化しました。
今回学んだ「ループ」と「オブジェクトの操作」は、あらゆる自動化の基礎です。
- 「全てのオブジェクトのサイズを一括で変える」
- 「特定のレイヤーだけを一括で非表示にする」
- 「ガイド線を自動で等間隔に配置する」
これらも、すべて今日学んだ考え方の延長線上にあります。
一歩ずつ、ゆっくりで大丈夫です。コードが動いた瞬間のあの感動を大切に、次のステップへ進んでいきましょう。もし行き詰まったら、いつでも戻ってきてください。
Happy Scripting!
