【CorelDRAW VBA極限の知見】第1回：業務仕様のドキュメントを秒速で構築するDocument.AddExの真髄
開発プロジェクトのリーダーである私から、CorelDRAW VBAの深淵へようこそ。
現場で最も無駄な時間、それは「新規ドキュメントを開くたびに、裁ち落とし（ブリード）を設定し、カラーモードをCMYKに変更し、解像度を300dpiに合わせる」という手作業だ。デザイナーがこのルーティンワークに一日何分費やしているか計算したことがあるか？ 組織全体では膨大な損失だ。
今回は、この非効率を根絶するための『業務仕様ドキュメント自動生成テンプレート』を授ける。単に動くだけのコードではない。CorelDRAWのオブジェクトモデルの挙動、メモリ管理、そして実務で必ず直面する「例外」を完全にねじ伏せるプロダクションコードだ。
—
なぜ従来の `Documents.Add` では実務で使えないのか？
初心者がやりがちなミスは、これだ。
‘ 【悪手】これでは実務の現場で使い物にならない
Dim doc As Document
Set doc = Documents.Add
このコードの何が問題か？
`Documents.Add` は、CorelDRAWのデフォルト設定（前回最後に開いた設定や、お節介な初期テンプレート）に依存する。カラーモードがRGBになっていたり、解像度が72dpiだったり、裁ち落とし幅がゼロだったりする状態でドキュメントが生成されてしまう。
結果として、後続の処理で `doc.ColorMode = cdrCMYK` のような力技のプロパティ変更を余儀なくされるが、これはオブジェクトの再構築や予期せぬ描画バグ（画面のチラツキ、カラープロファイルの不整合）を引き起こす最大の温床となる。
解決策：最初から「正しい仕様」で生まれさせる `Document.AddEx`
プロのエンジニアが使うべきは `Documents.AddEx` メソッドだ。
このメソッドの真価は、生成の瞬間にすべての物理パラメーター（サイズ、解像度、カラーモード、単位）を完全に定義し切る点にある。後から修正する必要がないため、無駄な描画イベントが発生せず、処理速度も圧倒的に速い。
—
堅牢性極限仕様：プロダクションコード
以下のコードは、印刷会社や大規模制作会社の現場で即座に導入できるレベルまでブラッシュアップした実用テンプレートだ。コピペし、必要に応じて定数群を書き換えて使ってほしい。
Option Explicit
‘ ==============================================================================
‘ 業務仕様ドキュメント自動生成モジュール (Production Ready)
‘ Architecture: CorelDRAW VBA Expert Team
‘ ==============================================================================
Public Sub CreateStandardPrintDocument()
‘ エラーハンドリングの要塞化
On Error GoTo ErrorHandler
‘ 1. 描画・イベントの完全凍結（パフォーマンス最適化の極意）
‘ 画面描画とUI更新を止めることで、実行速度を数倍〜十数倍に跳ね上げる
ActiveApp.Optimization = True
ActiveDocument.BeginCommandGroup “Create Production Document”
‘ 2. パラメーター定義（要件定義に合わせてここを書き換える）
Const DOC_NAME As String = “新規印刷用ドキュメント”
Const PAGE_WIDTH As Double = 210# ‘ A4横幅 (mm)
Const PAGE_HEIGHT As Double = 297# ‘ A4縦幅 (mm)
Const RESOLUTION As Double = 300# ‘ 印刷標準解像度 (DPI)
Const BLEED_VAL As Double = 3# ‘ 裁ち落とし (mm)
Dim targetDoc As Document
‘ 3. Document.AddEx による一撃生成
‘ 引数:
‘ [ImageType], [Units], [PageWidth], [PageHeight], [Resolution],
‘ [ColorMode], [ColorProfile], [PrimaryColorMode], [RenderResolution]
‘ ※CorelDRAWのバージョンにより引数の仕様が微妙に異なるため、厳格に型を指定する
Set targetDoc = Documents.AddEx( _
ImageType:=cdrImageTypePrint, _
Units:=cdrMillimeter, _
PageWidth:=PAGE_WIDTH, _
PageHeight:=PAGE_HEIGHT, _
Resolution:=RESOLUTION, _
ColorMode:=cdrColorModeCMYK, _
PrimaryColorMode:=cdrColorModeCMYK _
)
‘ 4. ページレイアウトとブリード（裁ち落とし）の設定
‘ ActivePage に対する直接操作は、AddEx直後であれば確実に行える
With targetDoc.ActivePage
‘ 裁ち落とし（Bleed）の設定：印刷事故を防ぐための防壁
.Bleed = BLEED_VAL
‘ 必要であればガイドラインやマスターレイヤーの初期設定をここに記述
End With
‘ 5. 仕上げ・トランザクションのコミット
targetDoc.EndCommandGroup
ActiveApp.Optimization = False
ActiveWindow.Refresh
‘ 完了通知（実務ではログ出力に置き換えるべきだが、直感的なフィードバックとして）
MsgBox “業務仕様ドキュメントの構築が完了しました。”, vbInformation, “自動化システム”
Exit Sub
ErrorHandler:
‘ 異常系ハンドリング：フリーズ防止のため必ず最適化フラグを戻す
ActiveDocument.EndCommandGroup
ActiveApp.Optimization = False
ActiveWindow.Refresh
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
End Sub
—
チーフアーキテクトが教える、現場で生きる3つの設計思想
このコードをただコピペするだけでは、真のエンジニアとは言えない。背後にある設計思想を叩き込め。
1. `ActiveApp.Optimization = True` の絶対死守
大量のオブジェクトを生成・操作する際、CorelDRAWは一回一回画面を再描画しようとする。これがVBAを「遅い」と感じさせる元凶だ。
処理の冒頭で最適化をかけ、終了時（あるいはエラー発生時）に必ず解除する。この「try-finally」的な例外配慮が、落ちないシステムの礎となる。
2. マジックナンバーの排除と定数化
コード内に `210` や `300` といった数値を直書きしてはならない。必ず `Const` で意味を持たせた定数として定義せよ。
将来的に「やっぱりB4サイズ、解像度600dpiに変更してほしい」と言われた際、修正箇所が上部の定数ブロックだけに限定される設計（保守性の高さ）がプロの仕事だ。
3. データベース・外部ファイル連携への拡張性
今回はハードコーディングした定数を用いたが、実務では「外部の受注管理DBやJSON/CSVファイルから仕様を読み取って動的にドキュメントを生成する」というフェーズに必ず進む。
その際、今回解説した `Document.AddEx` のラッパー関数を一つ作っておき、引数に「幅・高さ・解像度」を渡す設計にしておけば、CSV読み込み処理と簡単に結合できる。
—
次回予告
今回は「ドキュメントの生誕」を完全自動化した。
だが、生まれてきたドキュメントに対して、レイヤー構造（非印刷レイヤーの自動生成、ガイドライン専用レイヤーのロックなど）をどう整えるか？
次回は 『Layerオブジェクトの階層を意図通りに支配する：レイヤー自動構築と命名規則の鉄則』 をお送りする。
妥協のないコードで、君のワークフローを極限まで加速させろ。
