こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して操作を再現する時代は、もう終わりです。ここから先は、あなたがCorelDRAWを完全手中に収め、あらゆる定型作業を「1秒」で終わらせるためのエンジニアリングの領域です。
今回は、実務で最も頻繁に発生する「新規ドキュメントを指定の業務仕様（裁ち落とし・解像度・カラーモード）で瞬時に自動作成する」ための実践的テンプレートを授けましょう。
ここをクリアすれば、CorelDRAW VBAのオブジェクトモデルの基礎と、実務で絶対に外せないポイントが一気にバッチリ理解できますよ。それでは、深く潜っていきましょう！
—
なぜ「マクロの記録」では実務に対応できないのか？
CorelDRAWの「マクロの記録」を使うと、次のようなコードが出力されます。
‘ マクロの記録が吐き出す典型的なコード（※実務では使えない）
ActiveDocument.Add
これでは、ページサイズやカラーモードが「前回手動で設定した状態」に依存してしまい、PCの環境やユーザーが変わるだけで予期せぬエラーや印刷事故を引き起こします。
プロの業務自動化エンジニアが目指すのは、「どんな環境であっても、コードを実行した瞬間に、1ミリの狂いもなく完全な仕様のドキュメントが立ち上がる状態」です。これを実現するのが、`Application.CreateDocument` や今回解説する `Document.AddEx`（またはそれに匹敵するプロパティ制御）です。
—
押さえておくべきCorelDRAWの基本構造
コードを書く前に、CorelDRAWのオブジェクトの階層（ツリー構造）を頭に叩き込んでおきましょう。
Application (CorelDRAW本体)
┗ Documents (開かれているドキュメントのコレクション)
┗ Document (操作対象のドキュメント)
┗ Pages (ページ)
┗ Layers (レイヤー)
┗ Shapes (図形オブジェクト)
今回のテーマである「新規ドキュメントの作成」は、この最上位の `Application` から `Document` を生み出すプロセスです。
—
【実務必須】新規ドキュメント自動作成テンプレート
それでは、印刷用（CMYK・高解像度・裁ち落としあり）のドキュメントを完璧な初期設定で生成する、実務仕様のVBAテンプレートを公開します。
以下のコードを、CorelDRAWのVBAエディタ（Alt + F11）の標準モジュールにそのまま貼り付けてください。
Option Explicit
‘ ==============================================================================
‘ 業務仕様ドキュメント自動作成テンプレート（印刷用フライヤー仕様）
‘ ==============================================================================
Sub CreateProfessionalPrintDocument()
‘ エラーハンドリングの要（もし予期せぬエラーが出てもCorelDRAWがフリーズしないようにする）
On Error GoTo ErrorHandler
‘ 1. 変数の定義と初期化
Dim docNew As Document
Dim pageWidth As Double
Dim pageHeight As Double
Dim bleed As Double
‘ 寸法の定義（単位：ミリメートルをCorelDRAWの内部単位である「ポイント」に変換して渡すのが安全）
‘ ※今回はA4サイズ（210mm × 297mm）に上下左右3mmの裁ち落とし（ブリード）を設定
pageWidth = 210
pageHeight = 297
bleed = 3 ‘ 裁ち落とし
‘ 2. アプリケーションの画面描画を一時停止（処理速度の爆発的な向上と画面のちらつき防止）
ActiveApp.Optimization = True
ActiveDocument.BeginCommandGroup “プロ仕様ドキュメント作成”
‘ 3. 新規ドキュメントの作成
‘ 引数: カラーモード(CMYK=cdrCMYK, RGB=cdrRGB), 幅, 高さ, 単位, ページ数…
Set docNew = CreateDocument( _
ColorMode:=cdrCMYK, _
PaperWidth:=pageWidth, _
PaperHeight:=pageHeight, _
Unit:=cdrMillimeter, _
NumPages:=1, _
Resolution:=300 ‘ ビットマップ効果の解像度を300DPIに指定
)
‘ 4. 裁ち落とし（ブリード）の設定
‘ ドキュメントのページ設定に対して裁ち落としを適用
With docNew.Pages(1)
‘ 裁ち落とし幅を設定（上下左右共通で3mm）
docNew.ActivePage.SetBleed 3, cdrMillimeter
End With
‘ 5. ガイドラインや初期レイヤーの整理（実務での定番処理）
‘ デフォルトで作成される「レイヤー 1」を「デザイン画」にリネームするなど
If docNew.Layers.Count > 0 Then
docNew.Layers(“レイヤー 1”).Name = “印刷デザイン”
End If
‘ 処理の終了処理
docNew.EndCommandGroup
ActiveApp.Optimization = False
ActiveWindow.Refresh
‘ 完了メッセージ
MsgBox “業務仕様の新規ドキュメント（A4 / CMYK / 300dpi / 裁ち落とし3mm）の作成が完了しました！”, vbInformation, “自動化システム”
Exit Sub
ErrorHandler:
‘ エラー発生時の安全装置
ActiveApp.Optimization = False
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “致命的なエラー”
End Sub
—
コードの深掘り解説：ここがプロの技
初心者がつまずきやすいポイントや、実務で絶対に外せない「エンジニアのこだわり」を3つ解説します。
1. `ActiveApp.Optimization = True` による爆速化
VBAで最も嫌われるのが「画面がパカパカ切り替わり、処理が異様に遅い」という現象です。
処理の最初に `Optimization = True` を宣言することで、CorelDRAWの画面描画やプレビュー更新を一時停止させ、計算処理だけに集中させます。処理の最後には必ず `False` に戻す（これをサンドイッチの法則と呼びます）のが鉄則です。
2. 単位の指定 (`cdrMillimeter`)
日本のデザイン・印刷現場ではミリメートル（mm）が絶対正義です。CorelDRAWは内部で「ポイント」を基準に計算しているため、引数に `cdrMillimeter` を明示的に渡すことで、ユーザーの環境設定（インチになっていなか等）に依存せず、常に正確な寸法を担保できます。
3. `BeginCommandGroup` とエラーハンドリング
実務のマクロにおいて「途中でエラーが起きてドキュメントが中途半端な状態で放置される」ことは絶対に避けなければなりません。
`BeginCommandGroup` を使うことで、一連の処理を「ひとつの操作（アンドゥグループ）」としてまとめ、エラー発生時にもアプリケーションが安全に復帰できるように `On Error GoTo` を組み込んでいます。この配慮ができるかどうかが、アマチュアとプロの分水嶺です。
—
まとめ：ここをクリアすれば、基本はバッチリ！
今回は、新規ドキュメントを業務仕様で瞬時に立ち上げるテンプレートを通じて、以下の本質を学んでいただきました。
- 環境に依存しない初期化コードの書き方
- 描画最適化 (`Optimization`) によるパフォーマンス向上
- 実務に耐えうるエラーハンドリングとトランザクション管理
ここをクリアできれば、CorelDRAW VBAの「土台」は完璧にあなたのものです。あとは、このドキュメントに対して図形を流し込んだり、CSVからテキストをバッチ処理で配置していく応用へ進むだけです。
明日からのデザインワーク、そして定型作業の自動化を、ぜひこのコードから始めてみてください。あなたのVBAライフが、最高のものになりますように！
