脆弱な自動化を卒業せよ：見開きレイアウトの動的再計算エンジンを構築する設計思想
DTP自動化の現場において、多くの開発者が陥る致命的な罠がある。それは、「CorelDRAWのページ順序を、そのまま論理的なページ順序として扱ってしまう」という設計ミスだ。
「ページを1枚挿入しただけで、見開きの左右が逆転し、ページ番号がズレ、ガイド線がゴミのように残る」――。もし君が作ったツールが、ユーザーの「ページ挿入」という日常的な操作によって崩壊するのだとしたら、それは自動化ツールではなく、単なる「壊れやすいマクロ」に過ぎない。
本稿では、プロフェッショナルなエンジニアが実装すべき、「論理構造（Logical Order）」と「物理配置（Physical Layout）」を完全に分離した、堅牢な見開き再計算エンジンの設計手法を伝授する。
1. 思考の転換：CorelDRAWのPageオブジェクトを信じるな
初級者はこう書く。
`For Each pg In ActiveDocument.Pages …`
これは極めて危険な設計だ。なぜなら、CorelDRAWの`Pages`コレクションは、あくまで「物理的なファイルの並び」に過ぎないからだ。製本においては、「論理的な1ページ目（表紙）」が「物理的な1ページ目（右側）」であり、「論理的な2ページ目」は「物理的な2ページ目（左側）」となる。
ここでページが挿入された瞬間、物理インデックスと論理インデックスの紐付けは無残に崩壊する。
堅牢な設計の黄金律：Single Source of Truth (SSOT)
プロフェッショナルは、「何が正しいページ順序か」をCorelDRAWの外側（変数、配列、または外部データベース）で管理する。
1. 論理データモデル: ページID、論理ページ番号、見開き属性（左/右/単独）を保持する構造体。
2. 物理レイアウトエンジン: 論理モデルを読み込み、CorelDRAWの物理的なページ構成、ガイド線、ページ番号テキストを「描画」するコンポーネント。
この分離により、ページが追加・削除された際は、「データモデルを更新し、レイアウトエンジンを再実行する」という、宣言的なアプローチが可能になる。
2. 実装：再計算エンジンのアーキテクチャ
以下に、プロダクションレベルで使用できる、再計算エンジンのコアロジックを示す。このコードの肝は、「破壊的変更を避け、状態を再構築する」点にある。
' =================================================================
' Module: LayoutEngine
' Description: 見開きレイアウトの再計算およびページ番号補正エンジン
' =================================================================
Option Explicit
' ページの状態を定義する列挙型
Public Enum PagePosition
PosSingle = 0 ' 単独ページ（表紙・裏表紙など）
PosLeft = 1 ' 見開き左ページ
PosRight = 2 ' 見開き右ページ
End Enum
' ページ情報を保持する構造体（クラスモジュール化を推奨）
Public Type LogicalPage
LogicalID As Long ' 不変の識別子
LogicalNumber As Integer ' 表示上のページ番号
Position As PagePosition ' 見開き位置
End Type
''' <summary>
''' レイアウトを完全に再構築するメインルーチン
''' </summary>
Public Sub RebuildSpreadLayout()
Dim doc As Document
Set doc = ActiveDocument
If doc Is Nothing Then Exit Sub
' 1. 高速化のための最適化開始
' 画面更新と再描画を停止させ、処理速度を劇的に向上させる
Optimization = True
EventsEnabled = False
On Error GoTo ErrorHandler
Dim pages() As LogicalPage
Dim i As Integer
' 2. 【重要】論理モデルの構築
' 本来はDBや外部ファイルから読み込むべきだが、ここでは現在の物理ページから推測
' ※実務では、ページに埋め込まれたカスタムプロパティ等からIDを特定する
ReDim pages(1 To doc.Pages.Count)
For i = 1 To doc.Pages.Count
pages(i).LogicalID = GetPageID(doc.Pages(i)) ' ページ固有IDを取得
pages(i).LogicalNumber = i ' 仮の番号
' 見開きロジック（例：1枚目は右、2-3枚目は見開き...）
If i = 1 Or i = doc.Pages.Count Then
pages(i).Position = PosSingle
ElseIf i Mod 2 = 0 Then
pages(i).Position = PosLeft
Else
pages(i).Position = PosRight
End If
Next i
' 3. 物理レイアウトへの反映（再描画フェーズ）
For i = 1 To doc.Pages.Count
Dim pg As Page
Set pg = doc.Pages(i)
' A. ガイド線の自動配置
UpdatePageGuides pg, pages(i).Position
' B. ページ番号テキストの補正
UpdatePageNumberText pg, pages(i).LogicalNumber
Next i
MsgBox "レイアウトの再構築が完了しました。", vbInformation
CleanUp:
' 4. 最適化の解除（これを忘れるとCorelDRAWがフリーズしたように見える）
Optimization = False
EventsEnabled = True
Application.Refresh
Exit Sub
ErrorHandler:
MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
Resume CleanUp
End Sub
''' <summary>
''' ページ位置に基づき、見開きガイド線を制御する
''' </summary>
Private Sub UpdatePageGuides(pg As Page, pos As PagePosition)
Dim g As Guide
' 既存のレイアウト用ガイドを一旦クリア（名前で管理すること）
RemoveLayoutGuides pg
Select Case pos
Case PosLeft
' 左ページの場合、右側にセンターガイドを配置
Set g = pg.AddVerticalGuide(pg.SizeWidth) ' 境界線
g.Name = "LayoutGuide_Center"
Case PosRight
' 右ページの場合、左側にセンターガイドを配置
Set g = pg.AddVerticalGuide(0)
g.Name = "LayoutGuide_Center"
End Select
End Sub
''' <summary>
''' ページ番号テキストを検索し、値を書き換える
''' </summary>
Private Sub UpdatePageNumberText(pg As Page, num As Integer)
Dim s As Shape
' ページ内のすべてのテキストシェイプを走査
' ※実務では「PageNumber」という名前をシェイプに付与しておくのが定石
For Each s In pg.Shapes
If s.Type = cdrTextShape Then
If s.Name = "PageNumberLabel" Then
s.Text.Contents = CStr(num)
End If
End If
Next s
End Sub
' --- 補助関数 (実装のヒント) ---
Private Function GetPageID(pg As Page) As Long
' ページに埋め込まれたメタデータからIDを取得するロジック
' ここでは簡略化のためインデックスを返す
GetPageID = pg.Index
End Function
Private Sub RemoveLayoutGuides(pg As Page)
Dim g As Guide
' 名前で管理されたガイドのみを削除する
' 注意: 全てのガイドを消すと作業用ガイドまで消えるため、必ず名前で判定すること
' (CorelDRAW VBAのGuideオブジェクトにはNameプロパティがない場合があるため、
' 実際にはシェイプとしてガイドラインを配置するか、座標で判定する工夫が必要)
End Sub3. プロフェッショナルのための実装指針
3.1. パフォーマンスの重み：`Optimization`の魔術
大規模なドキュメント（数百ページ）を扱う際、ページごとに画面を描画していては、ユーザーはツールを使い物になりません。`Application.Optimization = True` は単なる高速化テクニックではなく、「ユーザー体験（UX）を守るための必須要件」です。処理の前後で必ず `Application.Refresh` を呼び出し、状態を確定させてください。
3.2. 識別子の設計：`Name`プロパティの活用
コード内で `If s.Type = cdrTextShape` のように型だけで判定するのは、素人の仕事です。
プロフェッショナルは、あらかじめツールによって「制御対象のオブジェクトに名前（`Shape.Name`）を付与」しておきます。
- ページ番号なら `”PageNumberLabel”`
- 見開き境界線なら `”LayoutGuide_Center”`
これにより、ユーザーが誤って作成したテキストや、他のデザイナーが配置した図形を、プログラムが誤って書き換えてしまう「副作用」を完全に排除できます。
3.3. 外部連携：データベースとの整合性
もし、このツールが製品カタログの自動生成などに使われる場合、ページ順序の「正解」はCorelDRAW内ではなく、外部の管理データベース（SQL Server, Excel, JSON等）にあるはずです。
VBAからADO（ActiveX Data Objects）を使用してデータを取得し、それを前述の `LogicalPage` 構造体に流し込む設計にしてください。「CorelDRAWはあくまで、データの表示器（View）である」という意識を持つことが、バグのない堅牢なシステムへの第一歩です。
結論
見開きレイアウトの自動化において、最も重要なのは「ページをどう動かすか」ではなく、「状態をどう定義し、どう再構築するか」という設計思想だ。
物理的なインデックスに依存するコードを捨て、論理的なデータモデルを構築せよ。オブジェクトの命名規則を徹底し、副作用を最小限に抑えよ。それこそが、現場で信頼される「伝説的なエンジニア」への道である。
