脆弱なインデックスへの依存を脱却せよ：`CustomName` による決定論的なページ管理術
業務自動化の現場において、最も忌むべきは「不確実性」である。
多くの初学者がCorelDRAW VBAの習得過程で、ページの特定に `Pages(i)` というインデックス番号を用いる。しかし、我々プロフェッショナルはこの手法を「設計上の欠陥」と見なす。ユーザーがページをドラッグして入れ替えた瞬間、あるいはプログラムが途中でページを削除した瞬間、インデックスに基づくロジックは音を立てて崩壊する。
本稿では、ページの識別子を「位置（Index）」から「意味（CustomName）」へと昇華させる、堅牢なアーキテクチャの構築手法について解説する。これは単なるプロパティの使い方ではない。システムの生存期間（Lifecycle）を制御するための、エンジニアとしての規律である。
1. インデックス駆動型設計の致命的な脆弱性
なぜ `Pages(1)` を使ってはならないのか。理由は単純、CorelDRAWのドキュメント構造は「動的」だからだ。
1. 順序の非決定性: ユーザーによる手動操作や、他のマクロによるページ挿入により、インデックスは常に変動する。
2. 副作用の連鎖: 1枚のページを削除しただけで、それ以降の全ページのインデックスがズレる。これは、大量のバッチ処理を行う自動化システムにおいて、致命的な「誤操作（意図しないページへの書き込み）」を誘発する。
これを回避するために導入すべきなのが、`Page.CustomName` プロパティである。これは、ページに対して付与できる「論理的な識別子（Primary Key）」として機能する。
2. `CustomName` によるオブジェクトの特定と制御
`CustomName` を用いることで、ページの「物理的な位置」に依存せず、「そのページが何であるか」という属性に基づいて操作を行うことが可能になる。
基本的な取得と変更のパターン
以下は、特定のカスタム名を持つページを探し出し、その名前を変更する、あるいは名前に基づいて操作を行うための極めて標準的な実装パターンである。
Option Explicit
''' <summary>
''' 指定したカスタム名を持つページを検索し、その名前を更新する
''' </summary>
''' <param name="targetName">検索する現在のカスタム名</param>
''' <param name="newName">新しく設定するカスタム名</param>
Sub UpdatePageCustomName(ByVal targetName As String, ByVal newName As String)
Dim pg As Page
Dim found As Boolean
found = False
' ドキュメント内の全ページを走査
' インデックスではなく、オブジェクトの属性を評価する
For Each pg In ActiveDocument.Pages
If pg.CustomName = targetName Then
' カスタム名の変更
pg.CustomName = newName
found = True
Exit For ' 発見次第、ループを抜ける（計算コストの最適化）
End If
Next pg
If Not found Then
Err.Raise vbObjectError + 513, "UpdatePageCustomName", "指定されたカスタム名が見つかりません: " & targetName
End If
End Sub3. 極限の知見：メモリ管理とCOMオブジェクトのライフサイクル
シニアエンジニアとして、我々はプロパティの動作だけでなく、その背後にあるメモリ管理に目を向けなければならない。CorelDRAW VBAはCOM（Component Object Model）インターフェースを介して動作している。
大規模なドキュメントや、数千ページに及ぶバッチ処理を行う際、`Page` オブジェクトを変数に格納し続けることは、参照カウントを不必要に増大させ、メモリリークや予期せぬ挙動の原因となる。
メモリ最適化されたページ操作の実装
オブジェクトを明示的に解放し、エラーハンドリングを徹底した、システム間連携を意識したコード例を以下に示す。
Option Explicit
''' <summary>
''' 外部システム（CSV等）から定義されたページ構成に基づき、
''' ページのカスタム名を同期する堅牢なプロシージャ
''' </summary>
Sub SynchronizePagesByCustomName()
Dim doc As Document
Dim pg As Page
Dim i As Long
' 1. ドキュメントの存在確認（Null参照防止）
If Documents.Count = 0 Then Exit Sub
Set doc = ActiveDocument
' 2. 高速化のための最適化設定
' 描画更新を停止し、UIのスレッド負荷を軽減する
Optimization = True
EventsEnabled = False
On Error GoTo ErrorHandler
' 3. ページ走査と識別
' ここでは例として、CustomNameが「Page_ID_XXXX」の形式であることを期待する
For Each pg In doc.Pages
' ページオブジェクトの参照を一時的に保持
' 実際の運用では、ここでWindows API等を用いた外部DBとの照合を行う
Debug.Print "Processing Page: " & pg.CustomName & " (Index: " & pg.Index & ")"
' 例: 特定の命名規則に基づいた動的変更
If Left(pg.CustomName, 8) = "Template" Then
pg.CustomName = "Processed_" & Format(Now, "YYYYMMDD_HHMMSS")
End If
Next pg
CleanUp:
' 4. リソースの明示的解放と最適化の復元
' 変数にセットしたオブジェクトはNothingで解放するのが鉄則
Set pg = Nothing
Set doc = Nothing
Optimization = False
EventsEnabled = True
Application.Refresh
Exit Sub
ErrorHandler:
' 5. レガシー環境でも追跡可能な詳細なエラーログ
MsgBox "Critical Error in SynchronizePagesByCustomName:" & vbCrLf & _
"Error No: " & Err.Number & vbCrLf & _
"Description: " & Err.Description, vbCritical, "System Error"
Resume CleanUp
End Subアーキテクトの視点：なぜ `Optimization = True` なのか
`Optimization = True` は単なる「高速化」の呪文ではない。これは、CorelDRAWの内部レンダリングエンジンに対し、オブジェクトのプロパティ変更に伴う再描画要求をバッファリングするよう命じる指示である。
大量のページ名を書き換える際、これを怠ると、一回一回の変更に対してGUIの再描画イベントが発生し、CPU使用率のスパイクと、Windowsメッセージループの遅延を引き起こす。これは、システム間連携（例えば、CorelDRAWをバックグラウンドで動かすサーバーサイド自動化）において、タイムアウトエラーを誘発する主要因となる。
4. まとめ：堅牢な自動化へのロードマップ
`ActivePage.CustomName` を使いこなすことは、単に名前を変えることではない。それは、「位置という不確実なもの」から「属性という確実なもの」へ、制御の主権を移譲することである。
シニアエンジニアが設計すべきは、以下の3原則を満たすシステムである：
1. 決定論的（Deterministic）: 同じ入力に対して、常に同じページが操作されること。
2. 冪等性（Idempotency）: 同じ操作を何度繰り返しても、システムが壊れないこと。
3. 低結合（Low Coupling）: ページの並び順（UI層）と、ページの識別（ロジック層）が分離されていること。
この原則を遵守することで、君の書くコードは「ただ動くスクリプト」から、「信頼に足るエンタープライズ・ソリューション」へと昇華する。
