こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して操作を覚えたあなたが、いよいよ「自分でコードを書くぞ！」と意気込んで最初に直面する壁……それが、今回テーマにする「アクティブドキュメント未存在エラー」です。
「あれ？ さっきまで動いていたのに、何も開いていない状態で実行したら急に止まった……」
そんな経験はありませんか？
今回は、プログラミング初学者が必ずつまずくこのトラップの正体と、現場のプロが使っているスマートな回避策を、優しくしっかりと解説していきますね。ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ！
—
1. なぜエラーが起きるのか？（エラーの正体を知る）
CorelDRAWを起動した直後、画面には何もキャンバス（ドキュメント）が開いていない状態がありますよね。この状態でマクロを実行し、以下のようなコードを動かそうとしたとします。
ActivePage.DrawRectangle 0, 0, 100, 100
VBAはこう叫びます。
「おいおい、描画するべき『アクティブなページ』なんてどこにもないぞ！エラー番号 91: オブジェクト変数または With ブロック変数が見つかりません」
これが、初心者キラーとして有名な「アクティブドキュメント未存在エラー」の正体です。
マクロの記録で作ったコードは、「ユーザーがすでに何かを開いていること」を前提にしているため、ドキュメントがない無防備な状態では耐えられないのです。
—
2. 現場のプロがやっている「スマートな回避策」
このエラーを防ぐためのアプローチはシンプルです。
「もしドキュメントが開かれていなかったら、新しく作ってあげればいいじゃない！」
VBAには、現在CorelDRAW上で開かれているドキュメントの数を数える機能（`Documents.Count`）があります。これを使って、「お留守番チェック」をする条件分岐を組み込みましょう。
安全な基本テンプレートコード
以下のコードを、あなたのVBAエディタ（Alt + F11）に貼り付けてみてください。
Sub SafeCreateRectangle()
‘ ==========================================
‘ テーマ: アクティブドキュメントの存在チェックと安全な新規作成
‘ 解説: 文書が開かれていない場合のエラーを防ぎ、自動で新規作成します。
‘ ==========================================
Dim doc As Document
‘ 1. 現在開かれているドキュメントの数を確認
If Documents.Count = 0 Then
‘ 0個（何も開いていない）なら、新しくドキュメントを作成する
‘ CreateDocument( [ドキュメント名], [ページ幅], [ページ高さ] … )
Set doc = Documents.Add
MsgBox “ドキュメントが開いていなかったため、新規作成しました！”, vbInformation, “自動作成”
Else
‘ すでに開かれているなら、現在のアクティブドキュメントを操作対象にする
Set doc = ActiveDocument
End If
‘ 2. 安全にオブジェクトを操作する（例：現在のページの真ん中に四角形を描く）
‘ ※ActivePageではなく、取得・作成したdocのActivePageを指定するのがプロの作法です
doc.ActivePage.DrawRectangle 0, 0, 50, 50
MsgBox “処理が正常に完了しました！”, vbInformation, “完了”
End Sub
—
3. コードのポイントを噛み砕いて解説
たったこれだけのコードですが、CorelDRAW VBAを安定して動かすためのエッセンスがぎっしり詰まっています。
① `Documents.Count` で状況をスキャン
`Documents.Count` は、今CorelDRAW上で開かれているドキュメントの総数を整数で返してくれます。これが `0` なら「誰もいない」、1以上なら「誰かがいる」と判断できます。
② `Set doc = Documents.Add` で新造する
「ドキュメントがないなら作っちゃえ」という男気あふれる処理です。ここで新しく作られたドキュメントを `doc` という変数に代入（`Set`）しています。
③ `ActiveDocument` への過度な依存を捨てる
マクロ初心者は `ActiveDocument` や `ActivePage` を連発しがちですが、これらは「今ユーザーが画面で触っているもの」に依存するため、非常に不安定です。
一度 `doc` という変数にドキュメントを捕まえておけば、万が一ユーザーが裏で他の作業をしていても、意図したドキュメントに対して確実に処理を実行できます。これが「堅牢なコード（バグりにくいコード）」を作る最大のコツです。
—
4. まとめ：ここから自動化の本当の旅が始まる
いかがでしょうか？
「ドキュメントがあるかどうかをチェックし、なければ作る」。たったこれだけの気配りをコードに加えるだけで、あなたのマクロは「うっかりエラー」で止まらない、優しくスマートな自動化ツールへと生まれ変わります。
マクロの記録という「過去の遺産」を卒業し、こうした条件分岐を自分の手で書けるようになると、CorelDRAW VBAで見えないものはなくなっていきます。
ぜひ、日々の業務のテンプレートとして、今日のコードを役立ててくださいね。
あなたのCorelDRAW自動化ライフが、素晴らしく快適なものになるよう応援しています！
