CorelDRAW VBAにおける「ActiveDocument」の罠と、複数ドキュメントを安全に掌握するマルチタスク極限制御
CorelDRAWを用いたプロダクション環境の自動化において、多くの開発者が最初に直面し、そして最も深い泥沼に嵌まるのが「ドキュメントの参照喪失」である。
「手元で動かしたときは正常だったが、本番環境でユーザーが並行して手動操作を行った瞬間に、全く無関係なファイルを上書き破壊した」
「何百ものファイルをバッチ処理している最中、突然メモリ不足でCorelDRAWが異常終了した」
これらの致命的障害の原因は、100%と言っていいほど`Application.ActiveDocument` への安易な依存、およびCOMオブジェクトのライフサイクル管理の欠如にある。
本稿では、CorelDRAW VBAのオブジェクトモデルの深淵に踏み込み、複数ドキュメントを並行・連続処理する際、いかにして対象ファイルを確実に捕捉し続け、極限までパフォーマンスを引き出すか、その具体的な設計思想と実装技術を提示する。
—
1. ActiveDocumentという「甘い毒」と、マルチドキュメント制御の真実
CorelDRAW VBAの初心者向けリファレンスを開けば、必ずと言っていいほど `ActiveDocument` を起点としたコードが紹介されている。
‘ 典型的な「壊れやすい」コード
ActiveDocument.ActiveLayer.CreateRectangle(0, 0, 5, 5)
このコードは、スタンドアロンかつ単一ドキュメントを開いた状態であれば動作する。しかし、エンタープライズの自動化システムにおいては「動く方が奇跡」と呼ぶべき極めて危険なコードである。
なぜ `ActiveDocument` は危険なのか？
1. コンテキストの非同期変化
VBAマクロの実行中であっても、OSのイベントやユーザーのマウスクリック、あるいはネットワーク経由でのファイルオープン処理などにより、CorelDRAWの「アクティブなドキュメント」はミリ秒単位で切り替わる可能性がある。
2. インデックスの動的再配置
`Application.Documents(1)` のようなインデックス指定も同様に危険である。CorelDRAWにおける `Documents` コレクションのインデックス（特にZオーダーに基づくもの）は、ユーザーがウィンドウをクリックしてフォーカスを切り替えた瞬間、動的にシフトする。
3. COM呼び出しのオーバーヘッド
`ActiveDocument` を呼び出すたびに、VBAのランタイムはCorelDRAWの内部COMサーバーに対して「現在アクティブなドキュメントのインスタンスはどれか」を問い合わせる。この不要なラウンドトリップが、数千ものオブジェクトを処理するバッチ処理において深刻なボトルネックとなる。
【鉄則】
自動化コードにおいては、生成・オープンした `Document` オブジェクトを即座に専用のオブジェクト変数に束縛（バインド）し、処理が完了して閉じるまで、その参照のみを徹底的に叩き続けよ。
—
2. CorelDRAWオブジェクトモデルの解剖と参照保持戦略
安全なマルチドキュメント処理を実現するためには、CorelDRAWの階層構造を正しく理解し、各オブジェクトの寿命（ライフサイクル）をデベロッパー自身が完全にコントロールしなければならない。
ドキュメント生成・オープン時の参照キャプチャ
ドキュメントを新規作成、あるいはディスクから開く際、絶対に `ActiveDocument` を経由させてはならない。メソッドの戻り値から直接オブジェクト参照を奪取する。
‘ 悪い例：作成後にActiveDocumentから取得する（コンテキスト切り替えに脆弱）
Documents.Add
Dim doc As Document
Set doc = ActiveDocument ‘ 危険！
‘ 良い例：生成と同時に直接バインドする
Dim targetDoc As Document
Set targetDoc = Documents.Add() ‘ 安全かつ高速
ファイルをオープンする場合も同様である。
Dim targetDoc As Document
Set targetDoc = Documents.Open(“C:\Work\Target.cdr”)
このようにして確保した `targetDoc` は、その後ユーザーが画面上でどのドキュメントをアクティブにしようとも、バックグラウンドで常に「最初に開いたそのファイル」を指し示し続ける。
—
3. 実践：堅牢な複数ファイルバッチ処理アーキテクチャ
以下に、実務でそのまま使用できる、極めて堅牢な複数ドキュメントの一括処理マクロのコードを示す。
このコードは、指定されたフォルダ内のすべてのCorelDRAWファイルを安全に開き、バックグラウンドで一括処理（ここでは例として特定の矩形とテキストの追加）を行い、保存して閉じる。
堅牢なマルチドキュメント一括処理コード
Option Explicit
‘ Windows API 宣言（32bit/64bit両対応）
‘ 処理中の不要な画面描画やシステム警告を抑制し、パフォーマンスを極限まで高めるために使用
If VBA7 Then
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” (ByVal hwndLock As LongPtr) As Long
Else
Private Declare Function LockWindowUpdate Lib “user32″ (ByVal hwndLock As Long) As Long
End If
”’
”’
Public Sub SafeBatchProcess()
Dim targetFolder As String
targetFolder = “C:\CorelBatchWork\” ‘ ※末尾に \ を含める
‘ フォルダの存在確認
If Dir(targetFolder, vbDirectory) = “” Then
MsgBox “指定されたフォルダが存在しません: ” & targetFolder, vbCritical
Exit Sub
End If
‘ CorelDRAWアプリケーション全体の最適化フラグをセット
‘ これにより画面描画が一時停止し、処理速度が数倍〜数十倍に跳ね上がる
On Error GoTo ErrorHandler
Application.Optimization = True
Application.EventsEnabled = False
‘ APIによるウィンドウ描画ロック（万全を期すための措置）
Call LockWindowUpdate(Application.AppWindow.Handle)
Dim fileName As String
fileName = Dir(targetFolder & “.cdr”)
Dim currentDoc As CorelDRAW.Document
Dim processedCount As Long
processedCount = 0
Do While fileName <> “”
Dim fullPath As String
fullPath = targetFolder & fileName
‘ 1. ドキュメントを安全にオープンし、即座にオブジェクト変数にバインド
Set currentDoc = Nothing
On Error Resume Next
Set currentDoc = Application.Documents.Open(fullPath)
On Error GoTo ErrorHandler
If Not currentDoc Is Nothing Then
‘ 2. 個別ドキュメントの処理を実行（安全な内部メソッドにインスタンスを委譲）
Dim success As Boolean
success = ProcessSingleDocument(currentDoc)
If success Then
‘ 3. 上書き保存
currentDoc.Save
processedCount = processedCount + 1
Else
‘ エラーログの出力（本番運用ではファイルへの書き出しを推奨）
Debug.Print “処理失敗: ” & fileName
End If
‘ 4. ドキュメントを確実に閉じる（変更破棄を防止するため保存後にClose）
currentDoc.Close
‘ 5. COMオブジェクトの明示的解放（メモリリークの徹底排除）
Set currentDoc = Nothing
Else
Debug.Print “ファイルオープン失敗: ” & fileName
End If
fileName = Dir()
Loop
‘ 処理完了後のクリーンアップ
MsgBox processedCount & ” 件のドキュメントを正常に処理しました。”, vbInformation
ExitProcedure:
‘ 描画ロックの解除と最適化フラグの復元（これを怠るとCorelDRAWのUIがフリーズする）
Call LockWindowUpdate(0)
Application.Optimization = False
Application.EventsEnabled = True
Application.Refresh
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
Resume ExitProcedure
End Sub
”’
”’
”’ 処理対象のDocumentオブジェクト（値渡しによる参照の保護）
Private Function ProcessSingleDocument(ByVal doc As CorelDRAW.Document) As Boolean
On Error GoTo ProcessError
‘ アクティブレイヤーに依存せず、常に最初のページの最初のレイヤーを明示的に指定
Dim targetPage As CorelDRAW.Page
Set targetPage = doc.Pages(1)
Dim targetLayer As CorelDRAW.Layer
Set targetLayer = targetPage.ActiveLayer ‘ 必要に応じて特定のレイヤー名で取得する
‘ 例：ドキュメントの左上に管理用のタイムスタンプとシリアルを自動配置
Dim rect As CorelDRAW.Shape
‘ CreateRectangle(Left, Top, Right, Bottom) の物理座標指定
Set rect = targetLayer.CreateRectangle(0, 10, 5, 9)
rect.Fill.UniformColor.RGBAssign 240, 240, 240
Dim txt As CorelDRAW.Shape
Set txt = targetLayer.CreateArtisticText(0.2, 9.2, “PROCESSED: ” & Format(Now, “yyyy-mm-dd hh:nn:ss”))
txt.Text.FontProperties.Size = 10
txt.Text.FontProperties.Name = “Arial”
‘ COMオブジェクトの参照を解放
Set rect = Nothing
Set txt = Nothing
Set targetLayer = Nothing
Set targetPage = Nothing
ProcessSingleDocument = True
Exit Function
ProcessError:
‘ 個別エラーハンドリング（メインループを止めないためにFalseを返す）
Debug.Print “ドキュメント処理中にエラー: ” & Err.Description
ProcessSingleDocument = False
End Function
—
4. レガシー環境とメモリ最適化における「極限の知見」
長年稼働しているCorelDRAWシステムを保守、あるいは最新の64bit環境へ移行させる場合、以下の「COMの振る舞い」と「メモリ管理」の知識が必須となる。
COMオブジェクトの参照カウントとガベージコレクションの真実
VBAは自動参照カウント（ARC）によってメモリを管理している。しかし、CorelDRAWのような巨大な外部COMサーバーを操作する場合、VBA側の変数への代入が解除されても、CorelDRAW内部にゾンビプロセスやゾンビオブジェクトが残存することが多々ある。
特に、ループ処理の中で `Shape` や `Layer` を生成し、それらを代入したオブジェクト変数を `Set obj = Nothing` で明示的に解放しない場合、VBAのガベージコレクションが追いつかず、短時間で数ギガバイトの物理メモリを消費しつくしてクラッシュ（Out of Memory）を引き起こす。
「使い終わったローカル変数は、メソッドを抜ける前にすべて `SetVar = Nothing` する」
これは古典的な手法に見えるが、数千オブジェクトを扱うCorelDRAW VBAにおいては、現在でも唯一無二のメモリ最適化手法である。
`Optimization` プロパティの確実な制御
上記コードで使用している `Application.Optimization = True` は、CorelDRAWの描画エンジンを一時的にサスペンド（停止）させる。これにより、オブジェクトを追加するたびに発生する「再描画イベント」が完全にスキップされ、処理能力は劇的に向上する。
しかし、この設定中にマクロがエラーで強制終了すると、CorelDRAWの画面が一切描画されなくなり、強制終了するしかなくなる。
そのため、エラーハンドリング（`On Error GoTo`）の `Finally` 相当のブロックにおいて、何があっても必ず `Application.Optimization = False` を呼び出す堅牢な構造にしなければならない。
—
5. アーキテクトが語る、真のプロフェッショナルコードのあり方
優れた自動化コードは、単に「動く」だけでは不十分である。特にCorelDRAWのように、グラフィックデザイン、製版、CADデータ連携など、ミッションクリティカルかつ重い処理を伴うアプリケーションを制御する場合、コードの堅牢性はシステムの寿命そのものを決定づける。
今回提示した「ActiveDocumentの完全な排除」「生成・オープン時の直接バインド」「APIによる画面描画ロック」「徹底したエラー復帰処理とCOM解放」の4つのアプローチは、私たちが長年の現場経験から導き出した「資産」としてのコードを書くための鉄則である。
システム管理者やシニアエンジニア諸氏には、この堅牢なフレームワークをベースに、自社の自動化資産をより高い次元へと引き上げていただきたい。
