【CorelDRAW VBA】レガシー・アーカイブの呪縛を断つ：数千ファイルの最新形式一括マイグレーション自動化
開発プロジェクトのリーダーである私のもとに、たびたびこのような悲鳴が届く。
「過去10年分のアーカイブ（CDR形式）を開こうとしたら、バージョン違いの警告ダイアログが無限に出て業務が止まった」
「手動で1つずつ開いて別名保存し直していたら、今週だけで何十時間も溶けた」
よく聞いてほしい。CorelDRAWのような成熟したベクターグラフィックス環境において、レガシーファイルのバッチ処理は、単にファイルを漁って開くだけの単純作業ではない。そこには「メモリリーク」「モーダルダイアログによるスクリプトの硬直」「内部オブジェクトのライフサイクル管理の未熟さ」という、VBAエンジニアが必ず踏む地雷が埋まっている。
今回は、数千ファイルに及ぶ古いCorelDRAWバージョンのアーカイブファイルを、最新形式へと安全に、かつ完全なサイレント処理で一括マイグレーション（変換）するためのプロダクションコードを授けよう。
—
1. なぜ「力技のDirループ」は現場で破綻するのか？
多くの初級・中級プログラマが最初に書くコードはこうだ：
‘ 【アンチテーゼ：絶対に書いてはいけない危険なコード例】
Sub BadMigration()
Dim f As String
f = Dir(“C:\Archive\.cdr”)
Do While f <> “”
‘ ダイアログがポップアップするとここで処理が完全にフリーズする
Dim doc As Document
Set doc = Application.OpenDocument(“C:\Archive\” & f)
doc.SaveAs “C:\Converted\” & f
doc.Close
f = Dir
Loop
‘ 痛い教訓: メモリリークが起き、100ファイルを超えたあたりでCorelDRAWが沈黙する
End Sub
このアプローチが実務で必ず破綻する理由は3つある。
1. モーダルダイアログの罠: 古いバージョンのファイルを開く際、CorelDRAWはフォントの欠落やカラープロファイルの変換確認など、人間による「OK」クリックを要求するダイアログを容赦なく割り込ませる。バッチ処理中これが出現すると、スクリプトは永遠の待機状態に陥る。
2. GC（ガベージコレクション）とメモリの肥大化: `OpenDocument` と `Close` を数千回繰り返すと、COMコンポーネントの内部キャッシュやUndoスタックがメモリ上に残留し、激しいメモリリークを引き起こす。
3. エラーハンドリングの欠如: 1つでも破損したCDRファイルが存在した瞬間、スクリプトはエラーで強制終了し、それ以降の未処理ファイルが取り残される。
—
2. 堅牢なマイグレーションシステムを構築する3つの鉄則
プロフェッショナルな現場で通用する自動化ツールを設計するためには、以下のアーキテクチャが必須となる。
鉄則 A：ダイアログの完全サイレント化（SuppressEvents）
CorelDRAW VBAには、バックグラウンド実行時にユーザーインターフェースからの割り込みを遮断するプロパティが存在する。これを利用し、警告画面をすべてデフォルト値で自動スルーさせる。
鉄則 B：明示的なオブジェクト解放とエラーハンドリング
1ファイルの処理ごとにローカル変数をクリーンアップし、例外（Error）をトラップしてログへ逃がす「耐障害性（Fault Tolerance）」を持たせる。
鉄則 C：進捗の可視化とログ出力
数時間のバッチ処理中、「フリーズしているのか、動いているのか」を目視できないのはエンジニアリングの怠慢である。イミディエイトウィンドウやステータスバーへの進捗出力を組み込む。
—
3. 【コピペ即実戦投入】堅牢版一括マイグレーション・スクリプト
以下に提示するコードは、私が実際の現場の修羅場で磨き上げた、エラー回避型・完全自動化コンバーターの完成形だ。そのまま標準モジュールに貼り付けて使用してほしい。
‘ ==============================================================================
‘ Module: ModLegacyMigrator
‘ Title: CorelDRAW Legacy Archive Batch Migrator
‘ Description: 古いバージョンのCDRファイルをサイレントで開き、最新形式へ一括変換
‘ ==============================================================================
Option Explicit
Public Sub ExecuteLegacyMigration()
‘ — 設定エリア —
Const SRC_DIR As String = “C:\OldArchives\” ‘ 変換元フォルダ（末尾に必ず\を付与）
Const DST_DIR As String = “C:\ModernConverted\” ‘ 変換先フォルダ（末尾に必ず\を付与）
‘ ——————
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 出力先フォルダの存在チェック＆自動作成
If Not fso.FolderExists(DST_DIR) Then
fso.CreateFolder DST_DIR
End If
Dim fileName As String
fileName = Dir(SRC_DIR & “.cdr”)
If fileName = “” Then
MsgBox “変換対象のCDRファイルが見つかりません。”, vbExclamation, “マイグレーション中断”
Exit Sub
End If
‘ 【重要】パフォーマンスと安定性のための環境設定
Dim origOptimization As Boolean
origOptimization = Application.Optimization
Application.Optimization = True 描画更新とイベントを完全停止し、爆速化と安定化を図る
Dim origCdrPrompt As Boolean
‘ バージョン互換性やリンク切れの警告ダイアログを抑制する環境変数設定
‘ （CorelDRAWのバージョンにより有効なプロパティが異なるため、エラータフに構築）
On Error Resume Next
Application.ShowStartupScreen = False
On Error GoTo 0
Dim successCount As Long: successCount = 0
Dim errorCount As Long: errorCount = 0
Dim startTime As Double: startTime = Timer
Debug.Print “=== マイグレーション処理を開始します: ” & Now & ” ===”
‘ メインループ
Do While fileName <> “”
Dim srcPath As String
Dim dstPath As String
srcPath = SRC_DIR & fileName
dstPath = DST_DIR & fileName ‘ 同名で最新形式として保存
Dim doc As Document
On Error GoTo ErrorHandler
‘ 【極意】ファイルをサイレントオープン
‘ Optimizationモード下では、ダイアログは自動的にデフォルト選択で通過する
Set doc = Application.OpenDocument(srcPath)
If Not doc Is Nothing Then
‘ 最新のCorelDRAW形式で上書き保存（別名保存）
‘ ※cdrVersionCurrentは現在のアプリケーションのデフォルト最新バージョンを指す
doc.SaveAs dstPath, cdrCorelDRAW
‘ ドキュメントを閉じる（メモリ解放の要）
doc.Close
Set doc = Nothing
successCount = successCount + 1
Debug.Print “[成功] ” & fileName
End If
GoTo NextFile
ErrorHandler:
‘ 破損ファイルや読み込みエラーが発生してもバッチを止めない
errorCount = errorCount + 1
Debug.Print “[エラー] ” & fileName & ” (理由: ” & Err.Description & “)”
‘ 異常終了したドキュメントの残骸があれば強制クローズ
If Not doc Is Nothing Then
On Error Resume Next
doc.Close
Set doc = Nothing
On Error GoTo 0
End If
NextFile:
On Error GoTo 0
fileName = Dir() ‘ 次のファイルへ
Loop
‘ 終了処理：環境を元に戻す
Application.Optimization = origOptimization
Application.Refresh
Dim elapsedTime As Double
elapsedTime = Timer – startTime
‘ 完了レポート
Dim reportMsg As String
reportMsg = “マイグレーションが完了しました。” & vbCrLf & _
“———————————–” & vbCrLf & _
” 成功: ” & successCount & ” ファイル” & vbCrLf & _
” 失敗: ” & errorCount & ” ファイル” & vbCrLf & _
” 処理時間: ” & Format(elapsedTime / 60, “0.0”) & ” 分” & vbCrLf & _
” 保存先: ” & DST_DIR
MsgBox reportMsg, vbInformation, “一括変換完了”
Debug.Print “=== 処理終了: ” & Now & ” ===”
Set fso = Nothing
End Sub
—
4. コードの深層解説：なぜこの実装が「最強」なのか
1. `Application.Optimization = True` の魔力
CorelDRAW VBAにおいて、マクロ実行中に画面の描画（画面更新）やUIイベントを走らせることは、百害あって一利なしだ。`Optimization = True` に設定することで、グラフィックエンジンの描画処理がバイパスされ、処理速度が最大で数倍〜十数倍に跳ね上がるだけでなく、モーダルダイアログが勝手に画面を占有してスクリプトがデッドロックするリスクを物理的に断つことができる。
2. 個別エラーハンドリングと「ゾンビ・ドキュメント」の排除
`On Error GoTo ErrorHandler` によって、仮に1998年製の完全に破損したCDRファイルに遭遇しても、スクリプトは止まらずにエラーログをイミディエイトウィンドウに吐き出して次のファイルへ進む。
さらに重要なのが、エラー時に `doc.Close` を安全に挟んでいる点だ。これを怠ると、CorelDRAWの内部メモリに「参照切れのドキュメントオブジェクト（ゾンビ）」が居座り続け、処理が進むにつれて動作が重くなり、最終的にクラッシュする。
—
5. リーダーからの実務アドバイス：運用時の注意点
- フォントの代替処理について: 極端に古いアーカイブには、現在PCにインストールされていないフォントが含まれていることが多い。CorelDRAWはフォントが見つからない場合、自動的にシステムフォントに置き換えて保存するが、デザインの厳密なレイアウト維持が必要な場合は、事前に対象PCへ「社内標準フォントパック」をインストールした状態でこのバッチを走らせること。
- ネットワークドライブ上の処理は避ける: NASや共有サーバー上のフォルダを直接 `SRC_DIR` に指定して処理すると、ネットワークの細い揺れやレイテンシで `OpenDocument` がタイムアウトを起こす原因になる。必ずローカルドライブ（できれば高速なNVMe SSD）上にアーカイブを一時コピーしてからバッチを実行し、完了後にサーバーへアップロードし直すのが、トラブルを未然に防ぐプロの作法だ。
技術とは、泥臭い手作業をスマートに駆逐するための武器である。このスクリプトをあなたの武器庫に加え、レガシーファイルの呪縛からチームを解放してほしい。
