眠れるレガシー資産を呼び覚ませ：CorelDRAW VBAによる「一括バージョンアップ」の極意
こんにちは。CorelDRAWの世界へようこそ。
長年蓄積された古いCDRファイルたち、そのままでは最新のOSやCorelDRAWの機能と噛み合わず、開くたびに警告が出たり、レイアウトが崩れたりしていませんか？
「一つずつ開いて上書き保存」……そんな不毛な作業は、今日で終わりにしましょう。今回は、CorelDRAW VBAの真髄である「自動化」を駆使し、フォルダ階層を維持したまま全ファイルを最新形式へアップデートする魔法のスクリプトを伝授します。
—
1. なぜ「マクロの記録」では限界があるのか
多くのユーザーが「マクロの記録」から始めますが、あれはあくまで「手作業の録画」に過ぎません。ファイルシステムを走査（スキャン）し、条件分岐で処理を振り分け、エラーをハンドリングする――これこそが、エンジニアが書くべき「動的なコード」です。
今回作成するのは、単なる記録ではなく、「対象フォルダ内の全ファイルを再帰的に探索し、CorelDRAWを介して再保存する」という、実務で最も安定するアプローチです。
—
2. 実践コード：アップグレード・オートメーション
このコードは、指定した親フォルダ以下の全CDRファイルを検索し、最新バージョンで上書き保存します。
‘ 必要なライブラリ：Microsoft Scripting Runtime (FileSystemObject)
‘ VBAのツール > 参照設定から「Microsoft Scripting Runtime」にチェックを入れてください
Sub BatchUpgradeCDR()
Dim fso As Object
Dim rootFolder As String
‘ 処理対象の親フォルダを指定（末尾に\を忘れずに）
rootFolder = “C:\LegacyFiles\”
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 再帰処理の開始
ProcessFolder fso.GetFolder(rootFolder), fso
MsgBox “全ファイルのアップグレードが完了しました！”, vbInformation
End Sub
Sub ProcessFolder(folder As Object, fso As Object)
Dim file As Object
Dim subFolder As Object
Dim doc As Document
‘ 現在のフォルダ内の各ファイルを処理
For Each file In folder.Files
If LCase(fso.GetExtensionName(file.Path)) = “cdr” Then
‘ ファイルを開く（非表示で開くと高速）
Set doc = OpenDocument(file.Path)
‘ 最新形式で保存（上書き）
doc.Save
‘ メモリ解放：ここが重要！閉じないとCorelDRAWが肥大化します
doc.Close
End If
Next
‘ サブフォルダがあれば再帰的に呼び出す
For Each subFolder In folder.SubFolders
ProcessFolder subFolder, fso
Next
End Sub
—
3. このコードを「現場の武器」にするための3つの知見
① 「非表示で開く」という選択肢
`OpenDocument`メソッドにはオプションが存在します。画面に描画させずにバックグラウンドで処理することで、劇的にスピードが向上します。もし途中で止まるファイルがある場合は、表示させてデバッグしましょう。
② メモリ管理という名の「作法」
CorelDRAW VBAで最も陥りやすい罠が、「Documentオブジェクトの破棄漏れ」です。`doc.Close`を忘れると、バックグラウンドに不可視のファイルが溜まり続け、OSごとクラッシュします。必ずループの最後で明示的にクローズしてください。
③ 階層構造（再帰処理）の強み
コード内の `ProcessFolder` が自分自身を呼び出す仕組みを「再帰」と呼びます。フォルダが10階層あっても、このコードなら自動的にすべて見つけ出します。手作業でサブフォルダを一つずつ指定する必要はもうありません。
—
4. 陥りやすいエラーと対処法
- 「ファイルが開けません」系エラー:
非常に古いバージョン（CDR 8以前など）は、セキュリティ設定により開けない場合があります。その際は「セキュリティレベル」を確認してください。
- 「パスが見つかりません」:
Windowsのファイルパス長制限（260文字）に抵触している可能性があります。フォルダ名を短くするか、ドライブ直下に移動させるのがエンジニアの常套手段です。
—
最後に：自動化の先にある景色
このスクリプトをマスターすれば、あなたは単なる「ソフトの利用者」から「環境を制御するエンジニア」へと進化します。
「動いた！」という感動の次は、ぜひ「ログを出力して、どのファイルが変換失敗したか記録する」という機能を追加してみてください。それができれば、あなたはもうCorelDRAW VBAの中級者です。
さあ、古いデータという重荷を下ろして、次なるクリエイティブな課題へ進みましょう。何か分からないことがあれば、いつでもまた聞きに来てくださいね。応援しています！
