【CorelDRAW VBA 掌握術】設計思想から学ぶ「ページ名一括リネーム」の実装。場当たり的なコードを、プロダクション級のツールへ昇華させる。
「とりあえず動くコード」を書くのは、誰にでもできる。しかし、現場で「信頼されるツール」を設計するには、プログラマとしての視点を一段階引き上げる必要がある。
CorelDRAWの自動化において、多くの初心者が陥る罠は「オブジェクトの挙動を制御できていない」ことだ。特にページ操作やリネームのような、ドキュメントの構造そのものに触れる処理では、その差が顕著に現れる。
本記事では、単なる「連番付与マクロ」の解説に留まらない。バグを未然に防ぎ、ユーザーの操作性を損なわず、メンテナンス性を担保した「プロダクション・クオリティ」のコードをどう構築すべきか、その設計思想を伝授する。
1. なぜ、あなたのマクロは「素人臭い」のか
多くの初心者が書くコードは、以下のような構造になりがちだ。
' 典型的な「動けばいいだけ」のコード（非推奨）
Sub BadExample()
Dim p As Page
Dim i As Integer
i = 1
For Each p In ActiveDocument.Pages
p.Name = "Project_" & i
i = i + 1
Next p
End Subこのコードには、プロフェッショナルな現場で通用しない致命的な欠点が3つある。
1. Undo（元に戻す）の欠如: 100ページリネームした後、ユーザーが「あ、間違えた」と思っても、Ctrl+Zを100回押さなければならない。これはユーザー体験（UX）の敗北だ。
2. 描画負荷の無視: ページ操作はドキュメントの再描画を伴う。ページ数が増えた際、画面がチラつき、処理速度が劇的に低下する。
3. ゼロ埋め（Padding）の欠如: `Project_1`, `Project_10`, `Project_2` … という順序で並んでしまう。これはソート順の崩壊を意味し、プロジェクト管理における致命的なミスを誘発する。
2. プロダクション級の設計指針
堅牢なツールを作るために、我々アーキテクトは以下の3つの原則を実装に組み込む。
① CommandGroup によるアトミック性の確保
CorelDRAWのAPIには `BeginCommandGroup` という強力なメソッドがある。これを使用することで、一連の処理を「一つの塊」としてUndoスタックに登録できる。これにより、ユーザーは一回のCtrl+Zで全ての変更を安全に破棄できる。
② Optimization による実行速度の最適化
`Optimization = True` を活用し、処理中の画面更新を停止させる。これは単なる高速化ではない。ユーザーに対して「現在処理中である」という状態を制御し、不要なリソース消費を抑えるための作法だ。
③ 型の厳格化とフォーマット制御
連番には必ず `Format` 関数を用い、`01, 02…` といったゼロ埋めを行う。これにより、OSのファイルエクスプローラーやCorelDRAW内のリスト表示におけるソート順を論理的に正しく保つ。
3. 実装例：堅牢なページリネーム・エンジン
以下に、これら全ての思想を詰め込んだ、そのまま業務に投入可能なコードを示す。
'==============================================================================
' Module: PageManager
' Description: ページ名の連番一括リネーム処理
' Author: Chief Architect
'==============================================================================
Option Explicit
''' <summary>
''' ページ名にプレフィックスと連番を付与して一括リネームする。
''' </summary>
''' <param name="prefix">付与する接頭辞（例: "Project_A_"）</param>
''' <param name="padding">ゼロ埋めの桁数（例: 2 と指定すれば 01, 02...）</param>
Public Sub RenamePagesWithSequence(ByVal prefix As String, ByVal padding As Integer)
Dim doc As Document
Dim pg As Page
Dim i As Long
Dim newName As String
Dim formatString As String
' 1. オブジェクトの存在確認（ガード句）
Set doc = ActiveDocument
If doc Is Nothing Then
MsgBox "ドキュメントが開かれていません。", vbCritical, "Error"
Exit Sub
End If
' 2. 描画最適化とUndoグループの開始
' Optimization = True で画面更新を停止し、処理を高速化する
On Error GoTo ErrorHandler
Optimization = True
doc.BeginCommandGroup "Batch Rename Pages"
' 3. フォーマット文字列の生成 (例: "00" や "000")
formatString = String(padding, "0")
' 4. ループ処理によるリネーム実行
' インデックスのズレを防ぐため、Pagesコレクションを直接回す
i = 1
For Each pg In doc.Pages
' 連番をゼロ埋めして名前を構築
newName = prefix & Format(i, formatString)
' ページ名の変更
pg.Name = newName
i = i + 1
Next pg
' 5. 後処理：Undoグループの終了と描画の再開
doc.EndCommandGroup
Optimization = False
Application.Refresh ' 変更を画面に反映
MsgBox "完了しました。計 " & (i - 1) & " ページをリネームしました。", vbInformation, "Success"
Exit Sub
ErrorHandler:
' エラー発生時は必ずOptimizationを戻し、Undoグループを閉じる
If Not doc Is Nothing Then doc.EndCommandGroup
Optimization = False
MsgBox "予期せぬエラーが発生しました: " & Err.Description, vbCritical, "Critical Error"
End Sub
''' <summary>
''' マクロ実行用のエントリーポイント
''' </summary>
Sub RunPageRenamer()
' ここでパラメータを制御する。本来はInputBoxやユーザーフォームから取得すべき。
' 現場の要件に合わせて、プレフィックスや桁数を調整せよ。
Call RenamePagesWithSequence("Batch_Job_", 2)
End Sub4. プロフェッショナルへの道：さらなる拡張に向けて
このコードは「基本」だ。しかし、実務ではここからさらに要求がエスカレートする。
外部データとの連携（Database/CSV Integration）
もし、ページ名がExcelやCSVファイルに定義されている場合、`RenamePagesWithSequence` を直接呼ぶのではなく、「データの読み込み層」と「操作の実行層」を分離せよ。
CSVから読み込んだ配列を引数として受け取る設計にすることで、ロジックの再利用性が飛躍的に高まる。
データの整合性チェック
リネーム後の名前が、CorelDRAWの制限（文字数制限や禁止文字）に抵触しないか。あるいは、既に存在する名前と重複しないか。
高度なツールでは、リネーム実行前に「シミュレーション（Dry Run）」を行い、エラーが発生しそうな場合にユーザーに警告を出す仕組みを組み込むのが一流の仕事だ。
結論
「動くコード」を書くのはエンジニアの最低条件だ。
しかし、「ユーザーのミスを許容し、操作を保護し、計算資源を最適化するコード」を書くのが、アーキテクトの使命である。
今回提示した `BeginCommandGroup` や `Optimization` の使い方は、CorelDRAW VBAにおける「礼儀」だ。これをマスターして、あなたのツールを単なるスクリプトから、信頼されるプロダクトへと昇華させてほしい。
