【入門編】新規ドキュメント自動生成テンプレート：裁ち落とし・解像度・CMYKカラーモードの初期化を一発設定 – CorelDRAW VBA解析バイブル

こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して操作するだけのステージは、今日で卒業です。

印刷現場の最前線にいると、「A4サイズ、CMYKカラー、解像度300dpi、そして上下左右3mmの裁ち落とし（ブリード）」といった特定の初期設定を、毎日のように何回も繰り返すことになりますよね。この手作業、地味に時間を奪われる上に、うっかりRGBで作り始めてしまったり、裁ち落としを付け忘れたりするヒューマンエラーの原因にもなります。

ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ。
今回は、実務でそのまま使える「一発で完璧な印刷用テンプレートを立ち上げる自動生成スクリプト」を、プロのアーキテクトの視点を交えながら優しく、そして徹底的に解説していきます。

—

なぜ「マクロの記録」だけでは実務を制覇できないのか？

CorelDRAWには便利な「マクロの記録」機能があります。しかし、これだけで印刷用の正確なドキュメントを作ろうとすると、大きな壁にぶつかります。

なぜなら、マクロの記録は「今、画面上で起きたこと」をなぞるだけだからです。
プロの自動化エンジニアが書くコードは違います。「CorelDRAWのオブジェクトモデル（階層構造）を直接叩き、画面を描画させずに裏側で一瞬にして理想の環境を構築する」というアプローチを取ります。

まずは、CorelDRAWのドキュメントがどのような階層で成り立っているのか、全体像を頭に叩き込みましょう。

[Application (CorelDRAW本体)]
└── [Documents (開かれているドキュメントの集合体)]
└── [Document (今回の主役：新規ドキュメント)]
├── [Pages (ページの集合体)]
│ └── [Page]
└── [Layers (レイヤーの集合体)]
└── [Layer]

この階層構造をVBAからコントロールすることで、紙のサイズ、カラーモード、そして印刷に絶対不可欠な「裁ち落とし（Bleed）」を寸分の狂いもなく設定できます。

—

実務直結！新規ドキュメント自動生成コード

それでは早速、実際のコードを公開します。
CorelDRAWのVBAエディタ（`Alt + F11`）を開き、標準モジュールに以下のコードを貼り付けてみてください。

Sub CreatePrintTemplate_A4()
‘ =====================================================================
‘ テーマ: A4印刷用テンプレート一発生成マクロ（CMYK・300dpi・裁ち落とし付）
‘ 開発者: チーフアーキテクト
‘ =====================================================================

‘ 予期せぬエラーや画面描画のチラつきを防ぐための黄金の定石
On Error GoTo ErrorHandler
Application.Optimization = True
ActiveDocument.BeginCommandGroup “印刷テンプレート作成”

Dim doc As Document
Dim pageWidth As Double, pageHeight As Double
Dim bleed As Double

‘ — 1. 寸法と裁ち落としの定義 (単位はミリメートル) —
‘ A4サイズ: 210mm × 297mm
pageWidth = 210
pageHeight = 297
bleed = 3 ‘ 裁ち落とし 3mm

‘ CorelDRAWの内部単位をミリメートルに強制設定
ActiveDocument.Unit = cdrMillimeter

‘ — 2. 新規ドキュメントの作成 —
‘ 引数: 幅, 高さ, ページ数, カラーモード(CMYK), 解像度
‘ ※CorelDRAWのバージョンによりCreateDocumentの引数は最適化してください
Set doc = Application.CreateDocument( _
Pages:=1, _
InitialPageWidth:=pageWidth, _
InitialPageHeight:=pageHeight, _
ColorMode:=cdrCMYKColor, _
Resolution:=300)

‘ — 3. 裁ち落とし（Bleed）の設定 —
‘ 印刷用の断裁ズレを防ぐため、ドキュメント全体に裁ち落としを適用
With doc
.DrawingSettings.BleedH = bleed 2 ‘ 左右合計
.DrawingSettings.BleedV = bleed 2 ‘ 上下合計
.ShowBleed = True ‘ 画面上に裁ち落としガイドを表示する
End With

‘ — 4. レイヤー構造の整理（実務の定石） —
‘ デフォルトレイヤーの名前を「デザイン」に変更し、ガイド用レイヤーを追加する
Dim lyrDesign As Layer
Set lyrDesign = doc.Pages(1).Layers(“Layer 1”)
lyrDesign.Name = “デザイン”

‘ トンボやメモ用の非印刷レイヤーを作る応用テクニック
Dim lyrGuide As Layer
Set lyrGuide = doc.Pages(1).CreateLayer(“ガイド・メモ”)
lyrGuide.Printable = False ‘ 印刷されないレイヤーに設定

‘ 処理終了の処理
ActiveDocument.EndCommandGroup
Application.Optimization = False
Application.Refresh

MsgBox “A4印刷用テンプレートの構築が完了しました！”, vbInformation, “自動化完了”
Exit Sub

ErrorHandler:
‘ エラー時の安全弁
Application.Optimization = False
ActiveDocument.EndCommandGroup
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
End Sub

—

コードの核心を読み解く：3つの重要ポイント

ここからは、なぜこのコードがプロの品質なのか、3つの視点から噛み砕いて解説します。

1. 処理の高速化と安定性を生む「Optimization」

コードの最初と最後に、以下の記述があります。

Application.Optimization = True
‘ (中略)
Application.Optimization = False
Application.Refresh

これは、VBAが実行されている間、CorelDRAWの画面描画やプレビューの再計算を一時停止する命令です。これを入れることで、複雑なオブジェクト生成や設定変更が爆速になり、画面がカクついたりフリーズしたりするリスクを劇的に減らすことができます。プログラミングの「お作法」として必ず覚えておいてください。

2. カラーモードと解像度の確実な初期化

印刷業務で最も恐ろしいミスは「RGBで作ってしまい、入稿直前にCMYKへ変換して色がくすむ」という事故です。
`CreateDocument`メソッドの引数で `ColorMode:=cdrCMYKColor` と `Resolution:=300` を明示的に指定しているため、人間のうっかりミスをシステムレベルで完全に封殺できます。

3. 実務で役立つ「非印刷レイヤー（Printable = False）」の仕込み

コードの後半で、`lyrGuide.Printable = False` という設定を行っています。

Dim lyrGuide As Layer
Set lyrGuide = doc.Pages(1).CreateLayer(“ガイド・メモ”)
lyrGuide.Printable = False ‘ 印刷されないレイヤー

ここに指示書やデザイナー用のメモ、独自の補助線を置いておけば、うっかりそのまま印刷用PDFに書き出してしまっても、印刷物には一切出力されません。こういう細かい配慮の積み重ねが、業務自動化エンジニアとしての腕の見せどころです。

—

陥りやすいエラーと回避の知見

初心者の頃、誰もが一度はハマる罠があります。ここで先回りして解決しておきましょう。

エラー：「メソッドまたはデータメンバーが見つかりません」
原因: お使いのCorelDRAWのバージョンによって、`CreateDocument` の引数仕様が微妙に異なる場合があります。
対策: 動かない場合は、一度マクロの記録で「新規ドキュメント作成」のコードを吐き出させ、生成されたプロパティの綴りを確認してください。
単位が勝手に「インチ」や「ピクセル」になってしまう
原因: CorelDRAWのアプリケーション全体のデフォルト単位が影響しています。
対策: コード内にある `ActiveDocument.Unit = cdrMillimeter` のように、ドキュメントが開いた瞬間に強制的に単位をミリメートルに固定する記述を必ず入れるのが鉄則です。

—

まとめ：あなたの右腕となるテンプレートを育てよう

今回は、裁ち落とし・解像度・CMYKカラーモードの初期化を一発で行うドキュメント生成VBAを解説しました。

このスクリプトをベースにして、

会社指定のロゴを自動で配置する
ページ数をダイアログで自由に入力できるようにする
クライアント名に応じたファイル名で自動保存のパスを作る

といった拡張を加えることで、このコードはあなただけの最強の右腕（業務自動化ツール）に成長していきます。

CorelDRAW VBAの基本は、オブジェクトを正しく指定し、正しい順序で命令を与えること。
ここをクリアしたあなたなら、もうマクロの記録に頼るだけの初心者ではありません。自信を持って、明日の業務にこのコードを投入してください！