【極限の自動化】CorelDRAWバッチ処理の設計思想：大量CDRファイルのレイヤー一括ロックを「壊れない」レベルで実装する
現場で「動くマクロ」を作るのは容易だ。しかし、数百、数千のファイルを処理する「プロダクション・ツール」を作るとなれば、話は別である。
単純なループ処理でファイルを次々と開いていくコードを書いた者は、必ずと言っていいほど、途中でCorelDRAWがフリーズするか、メモリを食いつぶしてクラッシュするという洗礼を受けることになる。
今回我々が取り組むのは、「指定フォルダ内の全CDRファイルを走査し、全ページの特定レイヤーをロック状態にする」という実務直結のタスクだ。単なるコードの書き方ではなく、プロフェッショナルとして「いかにして堅牢な、止まらない自動化を実現するか」という設計思想（Architecture）から伝授する。
1. なぜ、あなたの自動化は「現場」で使い物にならないのか
多くのエンジニアが陥る罠は、「正常系」しか考えていないことだ。
業務で扱うファイルは、常に完璧ではない。
- レイヤー名が微妙に違う（全角・半角の差、末尾のスペース）。
- ファイル自体が破損している。
- ネットワークドライブ上のファイルが一時的に切断される。
- 指定したレイヤーが存在しない。
これらを考慮せずに書かれたコードは、エラーが発生した瞬間に止まるか、あるいはエラーを無視して「中途半端に加工されたファイル」を大量に量産するという、最悪の事態を招く。
我々が目指すべきは、「エラーを適切にハンドリングし、ログを残し、次のファイルへと確実に処理を継続する」設計である。
2. 堅牢な設計のための3つの柱
実装に入る前に、以下の3つの原則を脳に刻んでほしい。
① オブジェクトのライフサイクル管理
CorelDRAWのVBAは、COMオブジェクトを扱う。`ActiveDocument` に依存した書き方は厳禁だ。ループ内でどのドキュメントを操作しているのかを明示的に変数で管理し、処理が終わるたびに必ず `Close` し、メモリから解放するプロセスを徹底せよ。
② 最適化（Optimization）の制御
描画更新は極めて重い。バッチ処理中は `Optimization = True` を使い、画面描画を完全に停止させる。ただし、これだけでは不十分だ。処理の節目で適切に `Refresh` をかけ、リソースを整理する必要がある。
③ 冪等性（Idempotency）の確保
「既にロックされているレイヤーに対して、再度ロック命令を投げても副作用がないこと」を保証せよ。これは、処理が途中で止まった際に、再度同じマクロを実行しても問題が起きないために不可欠な考え方だ。
3. プロダクション・クオリティのコード実装
以下に、実務でそのまま利用可能なレベルのコードを提示する。このコードは、`FileSystemObject` を利用してフォルダを走査し、エラーハンドリングとログ出力を備えた設計になっている。
事前準備: VBAエディタの [ツール] -> [参照設定] から “Microsoft Scripting Runtime” にチェックを入れてください。
Option Explicit
''' <summary>
''' CorelDRAW Batch Layer Locker
''' フォルダ内の全CDRファイルを走査し、指定したレイヤーを全ページでロックする。
''' </summary>
Public Sub BatchLockSpecificLayers()
Dim fso As New FileSystemObject
Dim targetFolder As Folder
Dim file As File
Dim folderPath As String
' --- 設定領域 ---
folderPath = "C:\Your\Path\To\Files" ' 対象フォルダパス
Const TARGET_LAYER_NAME As String = "Background" ' ロックしたいレイヤー名
' ----------------
' フォルダの存在確認
If Not fso.FolderExists(folderPath) Then
MsgBox "指定されたフォルダが存在しません。", vbCritical
Exit Sub
End If
Set targetFolder = fso.GetFolder(folderPath)
' 高速化設定
Application.Optimization = True
Application.EventsEnabled = False ' イベント発生を抑制してパフォーマンス向上
Debug.Print "--- Batch Process Started: " & Now & " ---"
' フォルダ内のファイルを走査
For Each file In targetFolder.Files
' 拡張子が .cdr の場合のみ処理
If LCase(fso.GetExtensionName(file.Path)) = "cdr" Then
Debug.Print "Processing: " & file.Name
' 個別のファイル処理を呼び出し（エラーを内部でハンドリング）
ProcessSingleFile file.Path, TARGET_LAYER_NAME
End If
Next file
' 設定を元に戻す
Application.Optimization = False
Application.EventsEnabled = True
Application.Refresh
Debug.Print "--- Batch Process Completed: " & Now & " ---"
MsgBox "バッチ処理が完了しました。詳細はイミディエイトウィンドウを確認してください。", vbInformation
End Sub
''' <summary>
''' 単一ファイルの処理ロジック
''' </summary>
Private Sub ProcessSingleFile(ByVal filePath As String, ByVal layerName As String)
Dim doc As Document
Dim pg As Page
Dim lyr As Layer
Dim layerFound As Boolean
On Error GoTo ErrorHandler
' ドキュメントを開く
Set doc = Application.OpenDocument(filePath)
If doc Is Nothing Then
Debug.Print " [ERROR] ファイルを開けませんでした: " & filePath
Exit Sub
End If
' 全ページを走査
For Each pg In doc.Pages
layerFound = False
' 全レイヤーを走査
For Each lyr In pg.Layers
' レイヤー名の照合（大文字小文字を区別しない）
If StrComp(lyr.Name, layerName, vbTextCompare) = 0 Then
' ロック処理（既にロックされていても問題なし：冪等性の確保）
lyr.Locked = True
layerFound = True
End If
Next lyr
If Not layerFound Then
Debug.Print " [WARN] ページ '" & pg.Index & "' にレイヤー '" & layerName & "' が見つかりません。"
End If
Next pg
' 上書き保存して閉じる
doc.Save
doc.Close
Debug.Print " [SUCCESS] 完了"
CleanUp:
Set doc = Nothing
Exit Sub
ErrorHandler:
Debug.Print " [FATAL ERROR] ファイル '" & filePath & "' の処理中にエラー発生: " & Err.Description
' エラーが発生しても、開いているドキュメントがあれば閉じてリソースを解放する
If Not doc Is Nothing Then
doc.Close
End If
Resume CleanUp
End Sub4. 伝説のエンジニアによるコード解説
なぜ、このコードが「強い」のか。その核心を解説する。
階層化されたエラーハンドリング
`BatchLockSpecificLayers`（親）と `ProcessSingleFile`（子）を分離している点が重要だ。
親関数は「全体の流れ」を制御し、子関数は「個別の失敗」を封じ込める。子関数でエラーが発生しても、`ErrorHandler` によってそのファイルだけを安全にクローズし、親関数へ制御を戻す。これにより、1つのファイルが壊れていても、残りの999個の処理を止めないことが可能になる。
`StrComp` による柔軟な比較
`lyr.Name = layerName` という単純な比較は避けた。`StrComp(…, vbTextCompare)` を使うことで、ユーザーが「Background」と入力しても「background」と入力しても、正しく照合できる。実務における「入力の揺らぎ」を吸収する、プロのテクニックだ。
`Optimization` と `EventsEnabled` の使い分け
`Optimization = True` は描画を止めるが、内部的なイベント（オブジェクトの変更通知など）は走り続ける。`Application.EventsEnabled = False` を併用することで、CorelDRAW内部のイベントハンドラ呼び出しコストを削り、処理速度を極限まで引き上げている。
リソース解放の徹底
`CleanUp` ラベルを用いた `Set doc = Nothing` は、VBAにおける「作法」ではない。「生存戦略」だ。大規模なバッチ処理において、オブジェクトを明示的に解放し忘れることは、メモリリークという名の時限爆弾を仕掛けるのと同じである。
5. 結論：自動化の品質は「想定外」への備えで決まる
業務自動化エンジニアの価値は、「コードが書けること」ではなく、「システムが止まらないことを保証できること」にある。
今回紹介した設計パターンを、君のライブラリに加えてほしい。
1. 分離せよ（全体制御と個別処理を分ける）
2. 守れ（エラーハンドリングとリソース解放を徹底する）
3. 速くせよ（描画とイベントを制御する）
これらが揃ったとき、君が作るツールは単なる「マクロ」から、信頼される「プロダクション・ツール」へと昇華する。
