CorelDRAW VBAの深淵：多ページカタログを「破壊的」に個別分割するアーキテクチャ
CorelDRAWのVBA環境は、一見すると枯れたレガシーなGUIオートメーションに見える。しかし、数千ページのカタログデータを扱うDTP現場において、この「古き良き」APIは、メモリ管理とオブジェクトのライフサイクルを制御できる者にとっては、最強の武器となる。
今回は、複数ページのCDRファイルをページ単位で抽出し、高速かつ堅牢に個別ファイル化するアーキテクチャを解説する。単なるマクロの羅列ではない。実務の現場で「クラッシュ」を回避し、プロセスを安定させるための「エンジニアリング」を共有する。
—
1. オブジェクト・ライフサイクルとメモリの呪縛
CorelDRAW VBAにおいて最も軽視されがちなのが、`Document`と`Page`オブジェクトのキャッシュ制御だ。特に大量のファイルをループ処理する場合、明示的なオブジェクト解放を行わないと、CorelDRAWの内部プロセス（GDIオブジェクト等）がリークし、処理の後半で必ず「メモリ不足」や「未知の例外」に見舞われる。
極限の知見： `Set obj = Nothing` は単なる作法ではなく、CorelDRAWのガベージコレクションを強制的にトリガーするための「儀式」である。これを怠るシステムは、数時間稼働させれば死ぬ。
—
2. 実装コード：堅牢性を担保したページ分割モジュール
以下のコードは、単にページをコピーするのではなく、「新規ドキュメントへの移送」というクリーンなアプローチを採用している。これにより、元のドキュメントの複雑なスタイルやカラープロファイルの影響を遮断し、常にクリーンな個別ファイルを生成する。
Option Explicit
‘ メモリ最適化のためのAPI宣言（必要に応じて）
If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
Sub SplitCatalogToIndividualFiles()
Dim docSource As Document
Dim docTarget As Document
Dim p As Page
Dim strSavePath As String
Dim i As Integer
‘ プロセスの安定化：画面描画を停止し、処理速度を向上させる
Optimization = True
Set docSource = ActiveDocument
strSavePath = “C:\Output\Catalog_Page_”
For i = 1 To docSource.Pages.Count
‘ 1. 新規ドキュメントの作成
Set docTarget = CreateDocument
‘ 2. ページを複製して移送
docSource.Pages(i).CopyTo docTarget
‘ 3. 不要な空ページ(初期ページ)を削除
If docTarget.Pages.Count > 1 Then
docTarget.Pages(2).Delete
End If
‘ 4. 名前を付けて保存（CDR形式）
docTarget.SaveAs strSavePath & i & “.cdr”
‘ 5. 明示的なメモリ解放とクローズ
docTarget.Close
Set docTarget = Nothing
‘ 6. システムへの負荷低減（高負荷時はSleepを挟むことで安定性が飛躍的に向上する）
DoEvents
Next i
Optimization = False
MsgBox “全ページの分割保存が完了しました。”
End Sub
—
3. シニアエンジニアが意識すべき「レガシーの壁」
A. 描画プロセスの分離
`Optimization = True` は強力だが、長時間のループ処理ではCorelDRAWの描画スレッドがスタックすることがある。`DoEvents`をループ内に配置することで、OSレベルでのタスクスイッチを許容し、フリーズを未然に防ぐのが定石だ。
B. パス・セパレータと環境変数
Windows APIを併用する場合、ファイルパスの取得には `Environ(“USERPROFILE”)` 等を使用し、パスのセパレータ（`\`）は必ず動的に判定させよ。レガシー環境では、フォルダの権限やドライブの割り当てが予期せぬ挙動を示すことが多い。
C. 外部連携への拡張性
このコードをベースに、JSON形式の設定ファイルを読み込ませることで、特定のページだけを抽出する、あるいはPDF出力へ動的に切り替えるといった「ワークフロー・コントローラー」への昇華が可能だ。
—
結論：コードは「生き物」である
CorelDRAW VBAにおいて、コードは単なる命令の羅列ではない。Corelの内部エンジンと対話し、限られたメモリ空間をどう運用するかという「経営判断」そのものである。
もし君が大規模なドキュメントの保守に疲弊しているのなら、まずはこの「オブジェクトの生成と破棄」のサイクルを厳格に管理することから始めてほしい。それが、伝説的な自動化システムを構築するための第一歩となる。
何か実装上のボトルネックがあれば、いつでも問いかけてくれ。このアーキテクチャをさらに先へ進める知見を、いつでも授けよう。
