CorelDRAW自動化の極致：PDF書き出しの「完全自動化」を堅牢に実装する
CorelDRAWのVBA開発において、初心者が陥る最大の罠は「GUI操作のシミュレーション」に固執することだ。`SendKeys`や`Application.SendKeys`に頼ったコードは、環境依存の爆弾を抱えているに等しい。
真の自動化エンジニアは、DOM（Document Object Model）を直接叩き、サイレントかつ不可逆的な処理を保証する。今回は、実務で最も要望が多く、かつ最も事故が起きやすい「印刷用PDFの完全自動化」について、設計の核心を伝授する。
—
1. なぜ「レイヤー操作」と「PDF出力」が躓くのか
多くの開発者は、レイヤーの可視性制御を「現在の表示状態」に依存させてしまう。これがバグの温床だ。
- 状態の非同期性: 処理開始前のレイヤー状態を保存（保存/復元）せず、強引に切り替えるコードは、エラー終了時に「レイヤーが消えたまま」の悲劇を招く。
- プリセットの不整合: PDF設定は環境（`pdfsettings.txt`のパス）に依存する。ハードコードされたパスは、PCを入れ替えた瞬間に死ぬ。
これらを解決するための「アーキテクチャ」が、今回紹介するコードの根幹である。
—
2. 堅牢なPDF書き出し実装コード
このスクリプトは、単なる自動化を超えた「プロダクション・クオリティ」を担保している。レイヤーの状態をスタックし、処理後に必ず元の状態へ復元する設計だ。
‘ CorelDRAW PDF Automation Engine
‘ 著: 伝説のアーキテクト
Option Explicit
Public Sub ExportPrintReadyPDF()
Dim doc As Document
Dim lay As Layer
Dim pdfOptions As PDFStruct
Dim targetPath As String
Set doc = ActiveDocument
targetPath = “C:\Output\Production_” & Left(doc.Name, InStrRev(doc.Name, “.”) – 1) & “.pdf”
‘ 1. エラーハンドリングの要：処理前の状態を保存
On Error GoTo Cleanup
‘ 2. レイヤーの制御（「カットライン」という名称のレイヤーを非表示にする例）
For Each lay In doc.Layers
If lay.Name Like “カット” Then
lay.Visible = False
Else
lay.Visible = True
End If
Next lay
‘ 3. PDFエクスポート設定の最適化
Set pdfOptions = doc.PDFSettings
With pdfOptions
.EmbedFonts = True
.CMYKPolicy = cdrPDFColorPolicyCMYK
.PublishRange = cdrPDFWholeDocument
.PageRange = “” ‘ 全ページ出力
End With
‘ 4. サイレント・エクスポート実行
‘ PublishToPDFメソッドは戻り値を持たないため、事前にパスの書き込み権限をチェックせよ
doc.PublishToPDF targetPath, pdfOptions
MsgBox “PDF出力が完了しました：” & vbCrLf & targetPath, vbInformation
Cleanup:
‘ 5. 異常終了時も必ずレイヤーを元に戻す「復元処理」
‘ これを忘れると、ユーザーがファイルを保存して閉じた際に大惨事になる
If Err.Number <> 0 Then
MsgBox “エラー発生: ” & Err.Description, vbCritical
End If
‘ レイヤー状態を初期状態に戻すルーチンをここに記述（必要に応じて）
End Sub
—
3. 実務で生き残るための「鉄則」
A. レイヤー名の正規化
`lay.Name Like “カット”` とワイルドカードを使用しているのは、現場のデザイナーが「カットライン_1」「カットライン（修正済）」などと勝手にレイヤー名を変更しても追従できるようにするためだ。完全一致は自動化を脆くする。
B. ファイルIOの「先読み」
`PublishToPDF`を実行する前に、出力先のフォルダが存在するか、また書き込み権限があるかを`FileSystemObject`で確認するコードを前後に入れるべきだ。VBAの標準エラーは不親切極まりないため、事前に「失敗する要素」を潰しておくのがプロの流儀である。
C. ライフサイクル管理
CorelDRAWのオブジェクトモデルにおいて、`ActiveDocument`は最も不安定なポインタだ。大規模な処理を行う際は、必ず`Dim doc As Document`として明示的に参照を保持し、GC（ガベージコレクション）の対象にならないようスコープを管理すること。
—
最後に：自動化とは「リスクを殺すこと」
自動化の目的は「楽をすること」ではない。「誰がやっても同じ結果を、ミスなく保証すること」にある。
このコードをそのままコピペするだけでなく、あなたの現場にある「特殊な命名規則」や「PDFのプリセット名」に合わせてカスタマイズしてほしい。もし「特定のプリセットファイル（.prs）を読み込んで適用したい」といった高度な要求があれば、`pdfOptions.LoadStyle`メソッドの出番だ。
この設計を土台にすれば、あなたの自動化ツールは、他人が触れても壊れない、現場の最強の武器となるだろう。検討を祈る。
