【テクニカル・上級編】【初心者向け】新規ページを追加した際に、デフォルトのページ名を自動連番（例：Layout_01, Layout_02…）にリネームする – CorelDRAW VBA解析バイブル

CorelDRAW VBAを掌握する極限の知見：ページ命名規則の自動化とオブジェクトライフサイクル管理

CorelDRAWを用いた大規模なDTP自動化、あるいはECサイト向けのバリエーション展開バッチにおいて、最も軽視されがちなのが「ドキュメント構造の整合性」である。特に、ページ数が増加するカタログ制作やマルチレイアウトの案件では、デフォルトの「ページ 1」「ページ 2」という無機質な名前のまま放置されたドキュメントは、後続のシステム連携やPDF出力スクリプトにおいて確実に破綻を引き起こす。

今回は、新規ページ追加時に任意の命名規則（例：`Layout_01`, `Layout_02`…）を自動適用するテクニックを題材に、単なるコードの提示にとどまらず、CorelDRAW VBAのオブジェクトモデルの裏側、メモリ管理、そして実運用で耐えうる堅牢な設計思想について、チーフアーキテクトの視点から徹底的に解説する。

—

1. CorelDRAWオブジェクトモデルの罠と「真のイベントフック」

VBA開発者が最初に直面する壁は、CorelDRAWがMicrosoft Office（ExcelやWord）のように洗練された`WithEvents`によるドキュメント/アプリケーションイベントを簡単には公開していない点にある。

アプリケーションレベルのイベントを捕捉するには、`Global`クラスや専用のClassモジュールを用いた厳密なインスタンス管理が必要となる。しかし、初心者向けの軽量なアプローチ、あるいは特定のバッチ処理・テンプレート初期化の文脈においては、「ページ追加操作をラップするカスタムプロシージャ（ラッパー関数）」を強制する設計が最も安定し、メモリリークのリスクを排除できる。

安定稼働のための基本方針

1. 暗黙の参照（ActivePageなど）の排除: デザイナの意図しないコンテキストでの実行を防ぐため、常に明示的なドキュメント・ページオブジェクトを渡す。
2. 文字列パースの最適化: 既存ページの命名規則を正規表現あるいは文字列操作で解析し、一意な連番をO(1)またはO(N)で算出する。

—

2. 実装コード：堅牢なページ自動リネーム・エンジン

以下に、実務の現場でそのまま稼働するプロダクション品質のコードを示す。このコードは、単にページを追加するだけでなく、既存のページ群を走査して重複を防ぎ、常に連番の整合性を担保する。

Option Explicit

‘ ==============================================================================
‘ 処理名: プレフィックス付き自動連番ページ追加エンジン
‘ 概要: 指定したドキュメントに新しいページを追加し、命名規則に従ってリネームする
‘ ==============================================================================
Public Sub AddCustomNamedPage(ByRef targetDoc As Document, Optional ByVal prefix As String = “Layout_”)
‘ エラーハンドリングの定義
On Error GoTo ErrorHandler

Dim newPage As Page
Dim nextIndex As Long

‘ 1. 既存のページ群から次のインデックスを算出
nextIndex = GetNextPageSequenceIndex(targetDoc, prefix)

‘ 2. ドキュメントの末尾にページを追加
‘ ※CorelDRAWのAddPagesメソッドを使用
Set newPage = targetDoc.AddPages(1)

‘ 3. 命名規則の適用
newPage.Name = prefix & Format(nextIndex, “00”)

‘ 4. オブジェクトの明示的解放（メモリ管理の鉄則）
Set newPage = Nothing
Exit Sub

ErrorHandler:
MsgBox “ページ追加処理で致命的なエラーが発生しました: ” & Err.Description, vbCritical, “CorelDRAW VBA Architecture”
If Not newPage Is Nothing Then Set newPage = Nothing
End Sub

‘ ==============================================================================
‘ 内部関数: 既存ページを解析し、次のシーケンス番号を導出する
‘ ==============================================================================
Private Function GetNextPageSequenceIndex(ByRef doc As Document, ByVal prefix As String) As Long
Dim p As Page
Dim maxIndex As Long
Dim currentName As String
Dim suffixStr As String
Dim parsedNum As Long

maxIndex = 0

‘ ドキュメント内の全ページを走査
For Each p In doc.Pages
currentName = p.Name

‘ プレフィックスで始まるページ名のみを対象にパース
If Left(currentName, Len(prefix)) = prefix Then
suffixStr = Mid(currentName, Len(prefix) + 1)

‘ 数値変換可能かチェック
If IsNumeric(suffixStr) Then
parsedNum = CLng(suffixStr)
If parsedNum > maxIndex Then
maxIndex = parsedNum
End If
End If
End If
Next p

‘ 次の番号を返す（存在しない場合は1からスタート）
GetNextPageSequenceIndex = maxIndex + 1
End Function

‘ ==============================================================================
‘ 実行テスト用プロシージャ
‘ ==============================================================================
Public Sub Test_AddLayoutPage()
Dim doc As Document
Set doc = CorelDRAW.ActiveDocument

If doc Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbExclamation
Exit Sub
End If

‘ ページを追加してリネームを実行
AddCustomNamedPage doc, “Layout_”

Set doc = Nothing
End Sub

—

3. チーフアーキテクトが解説するコードの急所とメモリ最適化

上記のコードは一見シンプルに見えるが、CorelDRAWの内部アーキテクチャを熟知した者にとって不可欠な要素が組み込まれている。

① `For Each p In doc.Pages` におけるメモリの罠

VBAにおけるコレクションのイテレーションは、COMオブジェクトの参照カウンタを背後でインクリメント・デクリメントし続けている。特にCorelDRAWのCOMラッパーは、不適切な変数の使い回しを行うとメモリリークを引き起こし、長時間のバッチ処理でVBA環境そのものがクラッシュする原因となる。
ループ内で取得したオブジェクト変数 `p` は、ループ終了時に自動解放されるが、処理の途中で異常終了した際を考慮し、プロシージャ終端やエラーハンドラでの `Set` 解放を徹底することがプロフェッショナルの条件である。

② 文字列パースの堅牢性 (`IsNumeric` と `CLng`)

現場で最も多いトラブルが、ユーザーが手動で「Layout_Cover」や「Layout_01_bk」など、命名規則から外れた名前を勝手につけてしまうケースである。
素朴な実装では `Len(prefix)` で切り出した後に数値変換エラー（Type Mismatch）でスクリプトが停止する。上記コードでは `IsNumeric` によるガード句を挟むことで、イレギュラーな命名が混入してもシステムが停止しない「耐障害性（レジリエンス）」を担保している。

—

4. ささらなる高みへ：システム間連携と将来の拡張

この自動リネーム基盤を構築しておけば、将来的に以下のようなエンタープライズ要件へシームレスに拡張可能である。

• JSON/CSVメタデータとの同期: ページ名（`Layout_01` など）をキーにして、外部DBから動的にテキストや画像を差し込むバッチ処理へのブリッジ。
• PDF一括出力の自動化: ページ名義でソート、あるいは特定のプレフィックスを持つページ群のみを抽出し、個別PDFとしてサイレントエクスポートするパイプラインの構築。

GUIの操作に頼る時代は終わった。コードによってドキュメントの構造化を完全に支配下置き、ヒューマンエラーの余地を排除することこそが、真の業務自動化エンジニアリングである。