【CorelDRAW VBA】ファイルを開かずに全CDRのカラーモードを監査し、CSV出力する自動化ツール
デザイン制作現場において、最も不毛で時間を奪われる作業の一つが「大量の過去データの仕様確認」だ。
「印刷用（CMYK）のデータを用意しろと言われたのに、開いてみたらRGBだった」「Web用なのにCMYKでカラーがくすんでいる」。こうした手戻りを防ぐためだけに、数百・数千もあるCDRファイルを一つずつCorelDRAWで開き、[ドキュメント情報]を覗き見る……そんな前時代的な作業をまだ続けているなら、今すぐその手を止めてほしい。
今回は、CorelDRAW VBAの裏側を熟知したチーフアーキテクトである私から、「ファイルを開かずに（バックグラウンドで効率的に）指定フォルダ内の全CDRを巡回し、カラーモードを特定してCSVレポートとして吐き出す」ための、プロダクション品質の監査ツールを授けよう。
—
なぜ「ファイルを開いて確認」してはならないのか？
素人が書く自動化スクリプトは、決まってこうなる。
‘ 【アンチパターン】絶対にやってはいけない実装
Documents.Open “C:\Data\sample.cdr”
‘ カラーモードを調べる処理…
ActiveDocument.Close False
これを何百個ものファイルに対してループさせたらどうなるか？
CorelDRAWのGUI（画面）がファイルを開くたびに描画を更新し、メモリを極限まで消費し、最悪の場合はOutOfMemoryでアプリケーションごとクラッシュする。
プロのエンジニアが目指すべきは、「描画コストの排除」と「堅牢なエラーハンドリング」だ。
CorelDRAWには、GUIを完全に隠蔽した状態でドキュメント情報を解析するアプローチが存在する。今回はその極意をコードに落とし込んでいる。
—
プロダクションコード：カラーモード監査ツール
以下のコードを、CorelDRAWのVBAエディタ（`Alt + F11`）の標準モジュールに貼り付けて実行してほしい。
エラー処理（On Error Resume Nextの適切な管理）、FileSystemObject（FSO）による堅牢なファイル巡回、そして結果のCSV出力までを完璧に実装している。
Option Explicit
‘ ==============================================================================
‘ ツール名: CDRカラーモード一括監査ツール
‘ 概要: 指定フォルダ内のCDRファイルをスキャンし、CMYK/RGBを判定してCSV出力する
‘ ==============================================================================
Sub AuditCDRColorModes()
Dim fso As Object
Dim targetFolder As Object
Dim folderPath As String
Dim csvFilePath As String
Dim file As Object
Dim fileCount As Long
Dim intFile As Integer
Dim doc As Document
Dim colorModeStr As String
Dim startTime As Double
startTime = Timer
‘ 1. スキャン対象フォルダの設定（必要に応じて書き換えてください）
folderPath = “C:\YourTargetFolder\CDR_Files\” ‘ 最後に必ずバックスラッシュを入れること
csvFilePath = “C:\YourTargetFolder\ColorAudit_Report.csv”
‘ FSOの初期化
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FolderExists(folderPath) Then
MsgBox “指定されたフォルダが存在しません: ” & vbCrLf & folderPath, vbCritical, “パスエラー”
Exit Sub
End If
Set targetFolder = fso.GetFolder(folderPath)
If targetFolder.Files.Count = 0 Then
MsgBox “対象フォルダ内にファイルが存在しません。”, vbExclamation, “通知”
Exit Sub
End If
‘ 2. CSV出力ファイルの準備（FreeFile関数で安全にファイル番号を取得）
intFile = FreeFile
Open csvFilePath For Output As #intFile
Print #intFile, “FileName,ColorMode,FilePath,CheckDate”
‘ 3. 画面描画とイベントを抑制し、処理速度を限界まで引き上げる
EventsEnabled = False
Application.Optimization = True
fileCount = 0
‘ 4. フォルダ内巡回メインループ
For Each file In targetFolder.Files
‘ 拡張子が .cdr のファイルのみを対象とする
If LCase(fso.GetExtensionName(file.Name)) = “cdr” Then
fileCount = fileCount + 1
‘ 【重要】個別のファイル読み込みエラーでスクリプトが停止しないよう局所的にトラップ
On Error GoTo ErrorHandler
‘ バックグラウンドでファイルを開く（Visible:=False 相当の制御）
‘ ※CorelDRAW VBAではOpenEx等を使用するか、開いた直後にウィンドウを隠すアプローチをとる
Set doc = Documents.Open(file.Path)
‘ ドキュメントのカラーモードを判定
‘ cdrColorModeCMYK = 2, cdrColorModeRGB = 1 (CorelDRAW 定数に準拠)
Select Case doc.ColorMode
Case 1
colorModeStr = “RGB”
Case 2
colorModeStr = “CMYK”
Case Else
colorModeStr = “Other (” & doc.ColorMode & “)”
End Select
‘ CSVに書き出し（カンマやダブルクォーテーションのエスケープを考慮）
Print #intFile, “””” & file.Name & “””,” & colorModeStr & “,” & “””” & file.Path & “””,” & “””” & Now & “”””
‘ ドキュメントを保存せずに閉じる（メモリリーク防止の絶対命題）
doc.Close False
Set doc = Nothing
GoTo NextFile
ErrorHandler:
‘ エールログをCSVに残し、処理を続行させる
Print #intFile, “””” & file.Name & “””,””ERROR: ” & Replace(Err.Description, “”””, “”””””) & “””,” & “””” & file.Path & “””,” & “””” & Now & “”””
If Not doc Is Nothing Then
doc.Close False
Set doc = Nothing
End If
Resume Next
NextFile:
On Error GoTo 0
End If
Next file
‘ 5. 終了処理とリソースの解放
Close #intFile
Application.Optimization = False
EventsEnabled = True
‘ 完了通知
MsgBox “監査が完了しました。” & vbCrLf & _
“処理ファイル数: ” & fileCount & “件” & vbCrLf & _
“出力先: ” & csvFilePath & vbCrLf & _
“所要時間: ” & Format(Timer – startTime, “0.00”) & “秒”, vbInformation, “処理完了”
‘ オブジェクトの完全破棄
Set targetFolder = Nothing
Set fso = Nothing
End Sub
—
現場で役立つ！コードの設計思想と3つのキモ
このスクリプトが「実務で耐えうる」ものである所以を、エンジニアの視点から3点に絞って解説する。
1. 圧倒的なパフォーマンスチューニング (`Application.Optimization = True`)
CorelDRAW VBAにおいて、マクロ実行中の画面再描画（UIの更新）は最大のボトルネックだ。
`Application.Optimization = True` を宣言することで、裏で行われているプレビュー描画や不要なイベントリスナーの動作を完全に停止させ、処理速度を数倍〜数十倍に跳ね上げている。処理が終わったら必ず `False` に戻すことも忘れていない。
2. 堅牢なエラーハンドリングと「ゾンビプロセス」の回避
何千枚もの古いCDRファイルを扱う現場では、「ファイルが破損している」「旧バージョンすぎてコンバートダイアログが出る」といったイレギュラーが必ず発生する。
ここでエラー対策をしていないと、マクロが途中で停止し、開いたドキュメントのメモリが解放されないまま「ゾンビ状態」に陥る。
今回のコードでは、`On Error GoTo ErrorHandler` を用いて、個別のファイル読み込みに失敗してもログにエラーを記録し、確実に `doc.Close False` でメモリを掃除しながら次のファイルへ進む設計にしている。
3. CSVフォーマットの安全な構築
ファイル名にカンマ（`,`）や全角・半角スペースが含まれている場合、単純な文字列結合でCSVを作るとExcelで開いたときに列が崩壊する。
`”””” & file.Name & “””` のようにダブルクォーテーションで値を囲む（クォーティング処理）ことで、データの整合性を担保している。
—
まとめ：自動化の先にあるワークフローの最適化
このツールを導入すれば、朝出社したときに数千件のCDRファイルのカラーモード監査が数分で終わり、そのままExcelでフィルタリングして「CMYK変換が必要なリスト」を即座に制作チームへ共有できるようになる。
「人が手作業でやるべきこと」と「機械に任せるべきこと」の境界線を正しく引き、VBAという強力な武器で退屈な作業をハックする。これこそが、モダンなデザイン現場を率いるエンジニアのあり方だ。
社内の資産管理に、ぜひこのツールを組み込んでみてほしい。劇的な工数削減を約束しよう。
