こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押してコードを眺めてみる……そんな初めの一歩をクリアしたあなたなら、きっと「もっと大量のファイルを効率よく、自動で処理したい！」という野望を抱いていることでしょう。
数百枚のCDRファイルを一括変換したり、夜間にバッチ処理を走らせたりする――エンジニアにとって胸躍るシチュエーションです。しかし、ここで多くの人が「CorelDRAWが裏でゾンビ化してメモリを食い潰し、PCがフリーズする」という恐怖の壁にぶつかります。
今回は、そんな修羅場をくぐり抜けてきたプロたちが実践している、「COMオブジェクトの完全解放と堅牢なエラーハンドリング」の極意を伝授します。ここをクリアすれば、あなたのVBAコードはプロフェッショナルそのものになりますよ。一緒に本質をマスターしていきましょう！
—
なぜCorelDRAWは裏で「ゾンビ化」するのか？
VBAでループ処理を書いていると、最初は順調なのに、処理が進むにつれて動作が重くなり、最終的にタスクマネージャーを見ると見えない「CorelDRAW.exe」が何重にも居座っている……そんな怪奇現象に出会ったことはありませんか？
これは、VBAの背後にあるCOM（Component Object Model）のメモリ管理の仕組みが原因です。
オブジェクトの「参照カウント」という罠
VBAで `Set doc = Application.CreateDocument()` のようにコードを書くと、メモリ上にCorelDRAWのドキュメント実体が生成され、VBA側はその「住所（参照）」を保持します。この時、オブジェクトの「参照カウント」が1つ増えます。
問題は、処理が終わったときに、この住所をきれいに消去してあげないと、CorelDRAWが「まだ主人がこのデータを使っているんだな」と勘違いしてメモリ上に居座り続ける点にあります。これが積み重なると、メモリリークを起こし、PCを強制終了せざるを得なくなります。
—
ゾンビ撲滅の3大鉄則
プロの現場では、大量のバッチ処理を書く際に以下の3つのルールを絶対に破りません。
1. すべてのオブジェクト変数は `Nothing` で明示的に解放する
2. ループ内で作るオブジェクトと、外で保持するオブジェクトを混同しない
3. 「絶対にエラーで止まらない」のではなく、「エラーが起きたら確実に掃除して終わる」構造（トランザクション管理）にする
それでは、これらをすべて盛り込んだ【実戦投入可能なバッチ処理テンプレート】を見てみましょう。
—
【実戦コード】堅牢な一括PDF変換バッチプロシージャ
以下のコードは、指定したフォルダ内のすべてのCDRファイルを読み込み、PDFに変換して保存、そして確実にメモリを解放しながらループを回す完璧な構造を持つテンプレートです。
Sub BatchExportCDRtoPDF_Robust()
‘ —————————————————————-
‘ プロ仕様：ゾンビプロセス撲滅型 CDR一括PDF変換マクロ
‘ —————————————————————-
‘ 1. エラーハンドラーの宣言
On Error GoTo ErrorHandler
Dim sourceFolder As String
Dim targetFolder As String
Dim fileName As String
Dim cdrDoc As Object ‘ 変数は必ず総称型(Object)で宣言し、後で解放する
‘ フォルダパスの設定（環境に合わせて書き換えてください）
sourceFolder = “C:\CDR_Source\”
targetFolder = “C:\PDF_Output\”
‘ フォルダの存在チェック（簡易）
If Dir(sourceFolder, vbDirectory) = “” Then
MsgBox “入力フォルダが存在しません: ” & sourceFolder, vbCritical
Exit Sub
End If
‘ 2. CorelDRAWの画面描画を停止して爆速化 ＆ ユーザー操作をロック
App.Optimization = True
App.EventsEnabled = False
fileName = Dir(sourceFolder & “.cdr”)
‘ ループ開始：ファイルが存在する間回し続ける
Do While fileName <> “”
‘ 【重要】ループごとのエラー対策（1つのファイルが破損していても次へ進むため）
On Error GoTo FileErrorHandler
‘ ドキュメントを開く
Set cdrDoc = Application.OpenDocument(sourceFolder & fileName)
‘ PDFパブリッシュ設定（例としてPDF/X-1a風の設定）
Dim pdfParams As Object
Set pdfParams = CreateStruct(“PDFExportParams”)
pdfParams.PublishRange = 0 ‘ 全ページ
‘ 必要に応じて解像度やカラープロファイルの設定を追加
‘ ファイル名の拡張子を .pdf に置換
Dim outputFileName As String
outputFileName = targetFolder & Left(fileName, InStrRev(fileName, “.”) – 1) & “.pdf”
‘ PDFとしてエクスポート
cdrDoc.PublishToPDF outputFileName, pdfParams
FileErrorHandler:
‘ —【極めて重要】個別ファイルのクリーンアップ—
‘ エラーが起きようが起きまいが、ここで必ずドキュメントを閉じてメモリを捨てる！
If Not cdrDoc Is Nothing Then
cdrDoc.Close
Set cdrDoc = Nothing ‘ 参照の完全破棄（ゾンビ化阻止！）
End If
If Not pdfParams Is Nothing Then
Set pdfParams = Nothing ‘ 構造体も念のため解放
End If
‘ エラーハンドラーを全体監視に戻す
On Error GoTo ErrorHandler
‘ 次のファイルへ
fileName = Dir
Loop
CleanUp:
‘ 3. 処理終了時の全体クリーンアップ
‘ 画面描画とイベントの復元（忘れるとCorelDRAWがフリーズしたように見えます）
App.EventsEnabled = True
App.Optimization = False
MsgBox “すべてのバッチ処理が正常に完了しました！”, vbInformation
Exit Sub
ErrorHandler:
‘ 予期せぬ致命的エラーが発生したときの安全弁
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
—
コードのここがスゴイ！プロの技を解説
① `App.Optimization = True` と `EventsEnabled = False`
大量のファイルを処理する際、CorelDRAWは「ファイルを開くたびに画面を再描画」し、「イベント（マウス操作など）を監視」しようとします。これが処理を劇的に遅くする原因です。
冒頭でこれをオフにし、処理が終わったら必ず `True` に戻すことで、爆速かつ安定したバッチ処理が可能になります。
② 個別ループ内でのエラーハンドリング（`On Error GoTo FileErrorHandler`）
100個のファイルを処理するとき、35個目のファイルが破損していたとします。通常のコードならそこでマクロが停止し、中途半端な状態で処理が中断します。
しかし、ループの中に「個別用のエラー出口」を作っておくことで、「あ、このファイル壊れてるな。じゃあ閉じて次のファイルに行こう」という賢い回避ができるようになります。
③ `Set cdrDoc = Nothing` の徹底
ループの最後、またはエラー脱出時に必ず `Set cdrDoc = Nothing` を実行しています。
VBAの変数はプロシージャを抜ければ消えますが、Do〜Loopのような長丁場のループ内では、次の周回に入るまで古い参照がメモリに残ります。 これを手動で `Nothing` に書き換えることが、ゾンビプロセスを地上から根絶する唯一にして最大の防御策なのです。
—
ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ！
お疲れ様でした！少し難しい話が続きましたが、COMオブジェクトのライフサイクル（生成・利用・破棄）を意識できるようになると、あなたはもう「マクロの記録が使える初心者」ではありません。立派なCorelDRAW自動化エンジニアです。
現場で実際にこのコードを回してみると、タスクマネージャーのプロセスがきれいに清掃されながら、驚くほどスムーズに作業が完了するのを目撃できるはずです。
この堅牢なエラーハンドリング設計をあなたの武器にして、日々の退屈な定型作業をスマートに自動化しちゃいましょう！それでは、次回の応用編でお会いしましょう。
