こんにちは。CorelDRAWの自動化の世界へようこそ。
マクロの記録から一歩踏み出し、大量のファイルを処理する「バッチ処理」の世界へ足を踏み入れたあなたへ。まず最初にこれだけは伝えておきます。「CorelDRAW VBAにおいて、メモリ管理を制する者は自動化を制す」。
せっかく書いた自動化コードが、途中で「メモリ不足」で落ちる……。そんな悪夢を見たくなければ、今回解説する「Documentのライフサイクル管理」だけは骨の髄まで叩き込んでください。
—
なぜ、ドキュメントの閉じ忘れが「死」を招くのか
CorelDRAWのオブジェクトモデルは非常に強力ですが、その分、メモリに対して傲慢です。`Documents.Open` でファイルを開くたびに、メモリ上のヒープ領域にドキュメントオブジェクトが生成されます。
もし、処理が終わった後に`Close`を忘れたり、変数の中にオブジェクト参照が残ったままにするとどうなるか。CorelDRAWは「まだこのファイルを使っているのかも？」と判断し、メモリを解放しません。100ファイル、1000ファイルと処理を繰り返せば、どんな高スペックPCでもメモリは食い尽くされ、CorelDRAWは沈黙します。
これが、バッチ処理で最も頻発する「見えないメモリリーク」の正体です。
—
鉄壁のメモリ解放：ベストプラクティス・コード
単に `doc.Close` を呼ぶだけでは不十分です。「エラーが起きても確実に閉じること」、そして「オブジェクトの参照を切ること」。この2段構えがプロの作法です。
以下に、現場でそのまま使える「安全なバッチ処理のテンプレート」を提示します。
Sub BatchProcessExample()
Dim doc As Document
Dim filePath As String
‘ ここに処理したいファイルリストがあると仮定
filePath = “C:\Projects\TargetFile.cdr”
On Error GoTo ErrorHandler ‘ エラー発生時に確実に終了処理へ飛ばす
‘ 1. ドキュメントを開く（非表示で開くと高速）
Set doc = Application.OpenDocument(filePath)
‘ — ここにメインの自動化処理を記述 —
‘ 例: 全オブジェクトの塗りつぶし変更など
doc.ActivePage.Shapes.All.Fill.UniformColor.RGBAssign 255, 0, 0
‘ ————————————
‘ 2. 保存して閉じる（変更不要なら cdrDoNotSaveChanges）
doc.Save
doc.Close
‘ 3. オブジェクト変数を解放（超重要！）
Set doc = Nothing
Exit Sub
ErrorHandler:
‘ エラーが起きた場合も、開いたドキュメントを閉じてメモリを救出する
If Not doc Is Nothing Then
doc.Close
Set doc = Nothing
End If
MsgBox “エラーが発生しました: ” & Err.Description
End Sub
—
コードの「魂」を読み解く：3つのポイント
1. `Set doc = Nothing` の意味
`Set doc = Nothing` は、変数 `doc` が参照していた「ドキュメントオブジェクトとの紐付け」を断ち切る儀式です。これを忘れると、VBAはいつまでもそのドキュメントをメモリ上に保持し続けます。「使い終わったら紐を解く」、これがメモリ管理の基本です。
2. `On Error GoTo` で守りを固める
もし処理の途中でエラーが発生し、コードが中断されたら？ `doc.Close` に到達せずにプログラムが止まってしまいます。`ErrorHandler` を用意することで、何があっても「開いた扉は閉める」という責務を全うさせます。
3. オブジェクトの生存期間を最小にする
可能であれば、処理のスコープ（`Sub`や`Function`）を小さく分割してください。ドキュメントを開いて閉じるまでの範囲を関数に切り出すことで、変数の寿命が自動的に管理され、メモリリークの温床を劇的に減らせます。
—
まとめ：ここをクリアすれば、あなたはもう初心者じゃない
CorelDRAW VBAで、大量のドキュメントを扱うことは、外科手術のようなものです。「切って、治して、縫合する（閉じて、解放する）」。この一連の流れをルーチンワークとして体得できたとき、あなたは単なる「マクロ記録ユーザー」から「自動化エンジニア」へと進化しています。
まずは、今書いているコードに `Set doc = Nothing` があるか確認してみてください。たった一行のコードが、あなたの業務を救う最後の一手になります。
もし分からないことや、さらに深い最適化（例えば `Application.Optimization = True` による描画停止のテクニックなど）を知りたい場合は、いつでも聞いてくださいね。応援しています！
