CorelDRAW VBAを掌握せよ：見開きレイアウトの自動化と「動的なページ判定」の極意
現場の自動化において、最も回避すべきは「直感的なコード」だ。特にCorelDRAWの`Pages`オブジェクトを扱う際、多くのエンジニアが犯すミスが「ページインデックスを盲信すること」である。
見開き設定（Facing Pages）を扱う際、あなたは単なるインデックス番号で処理を振り分けていないか？ それでは、後でページが挿入・削除された瞬間に論理が崩壊する。今日は、CorelDRAWのオブジェクトモデルを正しく叩き、堅牢かつ拡張性のあるレイアウト自動化の技術を伝授する。
—
1. なぜ「ページインデックス」を信じてはいけないのか
CorelDRAWの`Pages`コレクションは、あくまでドキュメント上の「物理的な順序」を保持しているに過ぎない。しかし、印刷や製本の世界では「左ページ（偶数・Verso）」と「右ページ（奇数・Recto）」という論理的な役割が存在する。
自動化エンジニアが心に刻むべき鉄則は、「物理順序（インデックス）」と「配置の論理（左右）」を分離して管理することだ。見開き設定がONのドキュメントにおいて、ページインデックスが1（奇数）から始まるのか、あるいはノンブル設定によって変化するのかを、コードが推論できるようにしておく必要がある。
2. 堅牢なページ判定ロジックの設計
以下のコードは、ドキュメント内の全ページを走査し、左右を判定して処理を分岐させるためのプロフェッショナル・テンプレートだ。
‘ プロフェッショナル仕様：ページ判定ロジック
Public Sub ProcessFacingPages()
Dim doc As Document
Dim pg As Page
Dim i As Long
Set doc = ActiveDocument
‘ 最適化：描画の更新を停止し、処理速度を劇的に向上させる
Optimization = True
For i = 1 To doc.Pages.Count
Set pg = doc.Pages(i)
pg.Activate ‘ コンテキストを確実に切り替える（重要）
‘ ロジック：インデックス番号を利用した論理判定
‘ 見開き設定において、奇数は右、偶数は左という仕様を前提とする
If (i Mod 2) <> 0 Then
‘ — 奇数ページ（右ページ）の処理 —
ProcessRightPage pg
Else
‘ — 偶数ページ（左ページ）の処理 —
ProcessLeftPage pg
End If
Next i
Optimization = False
ActiveWindow.Refresh
End Sub
Private Sub ProcessRightPage(pg As Page)
‘ ここに右ページ特有のレイアウト調整を記述
‘ 例：ガイドの配置やヘッダーのオフセット処理など
End Sub
Private Sub ProcessLeftPage(pg As Page)
‘ ここに左ページ特有のレイアウト調整を記述
End Sub
3. 実務で「死なない」ための3つの鉄則
① `Optimization = True` を忘れるな
CorelDRAW VBAにおいて、ループ中にオブジェクトを操作する際、画面描画を停止させないのは自殺行為だ。数千ページのドキュメントを扱う場合、このフラグ一つで処理時間が数分から数秒に縮まる。
② コンテキストの明示的活性化
`pg.Activate` を省略してバックグラウンドで処理を行うコードをよく見かけるが、複雑なレイヤー操作や特定の表示設定に依存する場合、予期せぬエラーを引き起こす。可能な限り「対象をアクティブにしてから操作する」のが、CorelDRAWのアーキテクチャに対する礼儀だ。
③ 外部データとの連携における「絶対パス」の罠
外部のCSVやデータベースからレイアウト情報を読み込む際、パス指定に `ActiveDocument.Path` を使うのは危険だ。ドキュメントを「名前を付けて保存」した直後や、一時ファイルとして開かれている場合に整合性が取れなくなる。外部リソースへのアクセスは、設定ファイル（INIやJSON）で管理し、絶対パスを強制的に定義させるべきだ。
4. まとめ：エンジニアとしての一歩先へ
今回紹介したロジックは、あくまで基礎である。実務ではここに「特定のレイヤーが存在するか」「マスターページの設定が上書きされていないか」といったバリデーションを追加する必要がある。
コードを書く際は常に、「このドキュメントを3ヶ月後の自分が別のファイルを修正するために開いたとき、この条件分岐は壊れていないか？」と自問自答してほしい。
オブジェクト指向の作法を少しだけ意識し、ページ処理を「プロシージャ」として切り出す。これだけで、あなたのコードは「ただのスクリプト」から「プロダクション環境で耐えうるツール」へと昇華する。
さあ、退屈な手作業をコードの力で絶滅させよう。君の挑戦を期待している。
