【CorelDRAW VBA】初心者が9割踏む「アクティブドキュメント未存在エラー」をスマートに撃墜する極意
プログラミングを学び、いざCorelDRAWの自動化に挑んだエンジニアが、ほぼ100%の確率で最初に遭遇する壁がある。
それが、「アクティブなドキュメントが存在しません（Run-time error）」 という無慈悲なエラーだ。
朝、CorelDRAWを起動した直後。あるいは、すべてのウィンドウを閉じた状態で開発したマクロを実行した瞬間、VBAのデバッグ画面が立ち上がり、冷酷に黄色いハイライトが光る。
「なぜ動かないんだ？」と頭を抱えた読者も多いだろう。
今回は、CorelDRAW VBAのオブジェクトモデルの核心に触れながら、この「未存在エラー」を完全に無力化し、実務でそのまま使える堅牢（ロバスト）なテンプレートコードを伝授する。
—
なぜその書き方は「素人臭い」のか？（非効率なアプローチ）
多くの初心者がやりがちなのが、エラー処理を一切せずに、いきなり描画命令を叩くコードだ。
‘ 【アンチパターン】絶対に真似してはいけないコード
Sub BadExample()
‘ ドキュメントが開いていない状態でこれを叩くと即座にクラッシュする
ActiveDocument.ActiveLayer.CreateRectangle 0, 0, 100, 100
End Sub
これの何が問題か。
CorelDRAWのVBAにおいて、`ActiveDocument` や `ActivePage` といったオブジェクトは、「ユーザーが現在操作している画面上の実体」に強く依存している。つまり、ドキュメントが1つも開かれていない無菌状態のアプリに対して `ActiveDocument` を要求すると、CorelDRAWの内部エンジンは路頭に迷い、容赦なく例外を吐くのだ。
実務の現場において、ユーザーがどのような状態でマクロのボタンを押すかはコントロールできない。「必ずドキュメントを開いた状態で実行してください」というマニュアルを配るのは、エンジニアの敗北を意味する。
プロの自動化エンジニアであれば、「ドキュメントがなければ自動で作る。あればそれを掴む」というフェイルセーフな設計をコードレベルで強制すべきだ。
—
解決策：環境を自給自足するスマートな設計
CorelDRAW VBAで安全に処理を開始するための鉄則は、アプリケーションオブジェクト（`Application`）の状態を検知し、ドキュメントの有無をプログラム側でハンドリングすることだ。
具体的には、以下のロジックを組む。
1. 現在開かれているドキュメントの数（`Documents.Count`）を確認する。
2. もし `0` ならば、強制的に新規ドキュメントを生成する（`CreateDocument`）。
3. すでに存在する場合は、現在のアクティブドキュメントを変数に確実に格納する。
このフローを守るだけで、「アクティブドキュメント未存在エラー」は二度と発生しなくなる。
—
【プロダクションコード】コピペで使える堅牢なテンプレート
実務の現場で即座に採用できる、洗練されたプロシージャのテンプレートを公開する。変数のスコープを明確にし、メモリリークや予期せぬコンテキストのズレを防ぐための実践的なコードだ。
Option Explicit
”’
”’ ドキュメントの有無を自動判定し、安全に処理コンテキストを確立する
”’
Sub MasterAutomationTemplate()
Dim targetDoc As Document
‘ 1. アプリケーション全体のドキュメント数をチェック
If Application.Documents.Count = 0 Then
‘ ドキュメントが1つもない場合は、新規ドキュメントを自動生成
‘ 引数（名前、色モード、解像度など）は必要に応じてプロジェクト要件に合わせる
Set targetDoc = Application.CreateDocument()
‘ ログ出力（イミディエイトウィンドウで確認）
Debug.Print “ドキュメントが存在しなかったため、新規作成しました。”
Else
‘ すでに存在する場合は、現在のアクティブドキュメントを安全に参照
Set targetDoc = Application.ActiveDocument
Debug.Print “既存のドキュメントをロードしました: ” + targetDoc.Name
End If
‘ 2. 以降の処理は、必ず `targetDoc` を経由して実行する
‘ （ActiveDocumentに依存しないことで、コンテキストの迷子を防ぐ）
ProcessCorelTask targetDoc
‘ 3. オブジェクトの解放（VBAではローカル変数の自動解放に頼らず明示的にクリアする意識が重要）
Set targetDoc = Nothing
End Sub
”’
”’ 確実に対象ドキュメントが渡されるため、エラーの心配がない
”’
Private Sub ProcessCorelTask(ByRef doc As Document)
Dim activePg As Page
Set activePg = doc.ActivePage
‘ ここに実際の業務ロジックを記述する
‘ 例：原点に100mm四方の正方形を描画する
Dim rect As Shape
Set rect = activePg.Layers(1).CreateRectangle(0, 0, 100, 100)
‘ プロパティの設定例（単位をミリメートルに固定）
doc.Unit = cdrMillimeter
Debug.Print “タスクが正常に完了しました。”
End Sub
—
チーフアーキテクトからの実践的アドバイス
このテンプレートを導入するにあたり、現場のエンジニアに伝えておきたい「ワンランク上の知見」をいくつか共有しよう。
1. `ActiveDocument` への過度な依存を断つ
コード内で何度も `ActiveDocument` や `ActivePage` を呼び出すのは、パフォーマンス的にも可読的にも悪手である。CorelDRAWのCOMオブジェクトモデルは、呼び出すたびに内部でオーバーヘッドが発生する。上記のコードのように、最初に取得したドキュメント（`targetDoc`）を変数に閉じ込め、それを下位のプロシージャへ参照渡し（`ByRef`）していく設計が、モダンで高速なVBA開発の基本だ。
2. 単位系（Unit）の明示はプロの証
ドキュメントを新規作成した場合、CorelDRAWのデフォルト設定やユーザーの環境依存によって、単位が「インチ」や「ピクセル」になっていることがある。実務で寸法を扱う自動化であれば、ドキュメント生成直後に `doc.Unit = cdrMillimeter` のように単位をコードで明示的に固定すること。これだけで、環境差異によるバグを撲滅できる。
—
総括
「アクティブドキュメントがない」というエラーは、初心者が最初に躓く壁であると同時に、「イベントドリブンなアプリケーションの挙動を理解しているか」を測るリトマス試験紙でもある。
エラーをその場しのぎの `On Error Resume Next` で握りつぶすような愚は犯してはならない。
今回紹介した「環境の自給自足」をベースとした堅牢なテンプレートをあなたの引き出しに加え、明日からのCorelDRAW自動化開発を優位に進めてほしい。
