CorelDRAW VBAを掌握せよ：`Documents.AddEx`によるドキュメント生成の最適解
CorelDRAWの自動化において、最も初歩的でありながら、最も「事故」が多発するのがドキュメントの新規作成だ。GUIでの操作を単にマクロ記録するだけの時代は終わった。プロフェッショナルであれば、背後のメモリ構造とAPIの振る舞いを完全に制御しなければならない。
今日は、`Documents.Add`の甘美な罠を回避し、堅牢なシステムを構築するための`Documents.AddEx`メソッドの実装論を伝授する。
—
なぜ `Documents.Add` を捨て、`AddEx` を選ぶのか
多くの初学者は `Documents.Add` を使う。しかし、このメソッドはCorelDRAWの現在のユーザー設定（UI上のデフォルト値）に強く依存する。システム連携や、自動化ツールにおいて「環境に依存する」という状態は「バグ」と同義だ。
`Documents.AddEx` を使用することで、カラーモード、解像度、ページサイズを完全にコードで決定論的に規定できる。これが、安定した業務システム構築の第一歩だ。
実装：決定論的なドキュメント生成コード
以下に、実業務でそのまま利用可能なテンプレートを示す。オブジェクトのライフサイクルを考慮し、メモリリークを未然に防ぐ実装を心がけている。
‘ @brief 新規ドキュメントを厳格な仕様で生成するラッパー関数
‘ @param widthInInches ドキュメント幅（インチ）
‘ @param heightInInches ドキュメント高さ（インチ）
‘ @param colorMode 1=RGB, 2=CMYK
Public Sub CreateControlledDocument(widthInInches As Double, heightInInches As Double, colorMode As Long)
Dim doc As Document
Dim docUnit As cdrUnit
‘ 厳密なエラーハンドリング
On Error GoTo Err_Handler
‘ 単位の正規化：APIとの齟齬を防ぐため、物理単位を明確にする
docUnit = cdrInch
‘ AddExメソッドの引数構成：
‘ 1: ページ幅, 2: ページ高さ, 3: カラーモード, 4: 解像度(dpi), 5: 塗り足し(bleed)
Set doc = Application.Documents.AddEx( _
widthInInches, _
heightInInches, _
colorMode, _
300, _
0#, _
0#, _
True) ‘ True: プリセットを無視して引数を優先
‘ ドキュメントの初期化が完了した後の処理
Debug.Print “ドキュメント生成完了: ” & doc.Name
‘ 【重要】オブジェクト解放の作法
‘ VBAのCOMオブジェクトはスコープを抜ければ解放されるが、
‘ 大規模処理時は明示的にNothingを代入し、メモリを強制回収させる
Set doc = Nothing
Exit Sub
Err_Handler:
MsgBox “ドキュメント作成中に致命的なエラーが発生しました: ” & Err.Description, vbCritical
End Sub
—
シニアエンジニアが押さえるべき「極限の知見」
1. メモリとオブジェクトの生存期間
VBAにおける `Document` オブジェクトは、CorelDRAWの内部メモリ管理プロセスと密接に結びついている。特に大量のファイルを連続生成するバッチ処理の場合、`Set doc = Nothing` を怠ると、メモリ断片化（メモリリーク）により20〜30ファイル目付近でCorelDRAWがフリーズする。これは「VBAの仕様」ではなく「プログラマーの怠慢」だ。
2. カラープロファイルと色空間の罠
`AddEx` でカラーモードを指定しても、内部的な「カラー管理ポリシー」が干渉することがある。特にCMYK変換時、ドキュメント生成直後に `doc.ColorProfileManager` を明示的に呼び出し、意図したプロファイルが適用されているか検証するコードを挟むのが、プロの防御的プログラミングだ。
3. レガシー環境との親和性：Windows APIの活用
もし、ドキュメント生成時に「現在CorelDRAWがアクティブか？」あるいは「メモリが過剰に消費されていないか？」を確認する必要があるなら、`User32.dll` の `GetForegroundWindow` 等を利用したラッパーを書く必要がある。
‘ 外部API利用の例（宣言）
Private Declare PtrSafe Function GetForegroundWindow Lib “user32” () As LongPtr
CorelDRAWのVBA環境は古い。だからこそ、OSレベルの知見を少し加えるだけで、他の開発者が到達できない安定性を手に入れることができる。
最後に：自動化の真髄
「動くコード」を書くことは誰にでもできる。しかし、「環境が変わっても壊れないコード」を書けるのは、オブジェクトモデルの本質を理解したエンジニアだけだ。
ドキュメントの新規作成という一見単純な操作にも、これだけの配慮が必要だ。CorelDRAWという巨大なプラットフォームを「手足のように動かす」ためには、UIの向こう側にあるAPIの鼓動を感じ取ること。それが、この道のプロフェッショナルになるための唯一の道である。
次は、生成されたドキュメントに対する「レイヤー制御」と「メモリ解放の最適化」について掘り下げるとしよう。準備はいいか。
