CorelDRAWの「死」を看取る：破損CDRファイルを救出するバイナリ・サルベージ術
CorelDRAWのファイル（.cdr）は、バージョンX4以降、実質的にOpenXMLベースのZIPコンテナであることを理解しているか？
多くの開発者は、`Document.Open`メソッドが失敗した瞬間に「ファイルは終わった」と判断し、バックアップフォルダを漁り始める。しかし、プロフェッショナルな現場において「修復不能」という言葉は敗北を意味する。CorelDRAWの内部構造を熟知していれば、ZIPヘッダーが破損していても、あるいはRIFF構造が崩れていても、バイナリレベルでデータをサルベージすることは可能だ。
今日は、VBAとFSO（FileSystemObject）を駆使し、破損したCDRファイルを強制的に解凍・再構築する「自己治癒マクロ」の極限設計を伝授する。
—
1. なぜ「標準のOpen」では修復できないのか
CDRファイルのクラッシュ原因の多くは、以下のいずれかだ。
- ZIPヘッダーの破損: ファイルの先頭、あるいは中央ディレクトリ情報の不整合。
- XML構造の破綻: `content.xml`内の閉じタグ不足や、UTF-8エンコーディングの不整合。
`Application.Open`は、CorelDRAWのレンダリングエンジンを呼び出すため、XMLが1バイトでも不正であれば例外を吐いて停止する。我々が行うべきは、「CorelDRAWの力を借りずに、生のバイナリからコンテンツを救い出す」アプローチだ。
2. アーキテクチャの設計思想：強固なサルベージ・プロセス
今回のソリューションは、以下の3ステップで構成する。
1. コンテナの強制抽出: FSOを使い、拡張子を`.zip`に偽装して`Shell.Application`で強引に解凍する。
2. XMLのバリデーション: `MSXML2.DOMDocument`を用いて、壊れたXMLの構造を解析・修復する。
3. 再パッケージ化: 正常なフォルダ構成を再ZIPし、CorelDRAWが認識可能な形式でリビルドする。
注意点：パフォーマンスとメモリ管理
VBAで数ギガバイトのファイルを扱う場合、`ADODB.Stream`でバイナリを読み込むのは愚策だ。読み込みはFSOの`TextStream`または`BinaryStream`を使い、メモリの肥大化を防ぐために必ずオブジェクトを明示的に破棄せよ。
—
3. 実装コード：CDR自己治癒エンジン
このコードは、破損したCDRファイルを指定し、内部のXMLを抽出して修復を試みるプロトタイプだ。
‘ 必要な参照設定: Microsoft Scripting Runtime, Microsoft Shell Controls And Automation
Public Sub SalvageCDR(ByVal strPath As String)
Dim fso As New FileSystemObject
Dim shellApp As Object
Dim targetZip As String
Dim extractPath As String
‘ 1. 一時作業ディレクトリの作成
extractPath = fso.GetParentFolderName(strPath) & “\Temp_” & fso.GetBaseName(strPath)
If Not fso.FolderExists(extractPath) Then fso.CreateFolder extractPath
‘ 2. CDRをZIPとしてコピーして強制解凍
targetZip = extractPath & “.zip”
fso.CopyFile strPath, targetZip
Set shellApp = CreateObject(“Shell.Application”)
‘ ZIPの内容を一時フォルダへ強制コピー
shellApp.Namespace(extractPath).CopyHere shellApp.Namespace(targetZip).Items
‘ 3. ここで content.xml の解析と修復を行う
‘ XMLが壊れている場合、DOMDocumentでロードし、エラー箇所を特定して修正するロジックをここに挟む
RepairXMLContent extractPath & “\content.xml”
‘ 4. 必要に応じて再パッケージ化（割愛）
Debug.Print “サルベージ完了: ” & extractPath
End Sub
Private Sub RepairXMLContent(ByVal xmlPath As String)
Dim xmlDoc As Object
Set xmlDoc = CreateObject(“MSXML2.DOMDocument”)
xmlDoc.async = False
‘ エラーハンドリングを実装し、XMLの不正箇所をパースする
If Not xmlDoc.Load(xmlPath) Then
Debug.Print “XMLエラー行: ” & xmlDoc.parseError.Line
‘ ここで正規表現を用いて壊れたタグを閉じるなどの処理を行う
End If
End Sub
—
4. プロの現場での「鉄則」
データベース連携の罠
修復したファイルをデータベース（SQL Server等）にBLOBとして格納する場合、必ず「修復済みフラグ」を立てろ。破損したファイルを修復して復帰させても、内部の参照リンク（ビットマップ画像等）がリンク切れを起こしているケースが多い。`content.xml`内の`xlink:href`属性を走査し、実ファイルが存在するかチェックするルーチンを必ず併設すること。
なぜこれが「非効率な書き方」にならないのか
多くのエンジニアは「エラーが出たら警告を表示して終了」させる。しかし、業務自動化の現場では「止まること」が最大の損失だ。この設計では、たとえ完全な復旧ができずとも、「少なくともビットマップ画像だけは抽出できた」という状態を作ることができる。これが、データ喪失を防ぐための「真の自動化」だ。
結びに
CorelDRAWのVBAは、単なるマクロ言語ではない。それは、デザイン資産という「デジタルな遺産」を守るための防波堤だ。
今回紹介したバイナリ解析の思考法を身につければ、ベンダーのサポートが終わった古いファイルだろうが、激しく破損したデータだろうが、恐れることはなくなる。コードを書き、構造を理解し、システムを支配せよ。それこそが、我々エンジニアに与えられた使命だ。
