CorelDRAWの「死」を看取る：破損CDRファイルをVBAで外科手術する極限技術
CorelDRAWのファイル（.cdr）が「ファイルが破損しています」と冷酷に告げてきたとき、多くのオペレーターは絶望し、バックアップを探し回る。だが、真のエンジニアにとって、それは「データが消えた」のではなく「読み込みエンジンが構文エラーを吐いた」に過ぎない。
CDRファイルは、実のところ「バイナリヘッダを持つZIPコンテナ」である。中身はXML（`content.xml`や`metadata.xml`）とリソースファイルの集合体だ。CorelDRAWの標準インポート機能がエラーで止まるのは、構造のわずかな不整合に過ぎないことが多い。
今日は、VBAを用いてこの「死んだファイル」を解剖し、XMLを抽出・修復して救出する、現場叩き上げのアーキテクチャを伝授する。
—
1. 破壊のメカニズムとサルベージの論理
CDRファイル（特にX7以降）は、実質的に以下の構造を持つ。
1. RIFF/ZIP構造: ファイルのメタデータを含むヘッダ。
2. XMLツリー: オブジェクトのプロパティ、ノード、パス情報。
3. バイナリブロブ: 画像データや複雑な塗りつぶし情報。
標準の`Application.Open`が失敗するのは、XMLの閉じタグが欠損しているか、バイナリポインタが不正なアドレスを参照している場合がほとんどだ。我々がやるべきは、ファイルを強制的にZIPとして解凍し、中核となるXMLを正規化することである。
—
2. 堅牢なサルベージ・エンジンの実装
VBA単体でバイナリ解析を行うには、`ADODB.Stream`を利用するのが最もパフォーマンスが高い。`Scripting.FileSystemObject`よりも遥かに高速で、バイト単位の操作が確実に行えるからだ。
以下のコードは、破損ファイルをコピーし、強引に解凍してコンテンツを救出するプロトタイプだ。
‘ 必須参照設定: Microsoft ActiveX Data Objects x.x Library
‘ 警告: 本コードは破損ファイルに対して行うため、必ず作業用ディレクトリで実行すること。
Public Sub SalvageCDRFile(ByVal sourcePath As String, ByVal outputPath As String)
Dim shellApp As Object
Dim fso As Object
Dim zipPath As String
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 1. CDRをZIPにリネーム（バイナリ構造を保ったまま変換）
zipPath = fso.GetParentFolderName(sourcePath) & “\temp_salvage.zip”
fso.CopyFile sourcePath, zipPath, True
‘ 2. シェル経由で解凍（高速かつ確実）
Set shellApp = CreateObject(“Shell.Application”)
Dim tempFolder As String
tempFolder = fso.GetParentFolderName(sourcePath) & “\Extracted\”
If Not fso.FolderExists(tempFolder) Then fso.CreateFolder tempFolder
‘ ZIPの中身を展開
shellApp.Namespace(tempFolder).CopyHere shellApp.Namespace(zipPath).Items
‘ 3. 核心部分: content.xmlの検証と修復
‘ ここでXMLパーサーを使い、閉じタグの欠損を補完するロジックを挟む
RepairXMLContent tempFolder & “content.xml”
MsgBox “救出プロセス完了。手動でcontent.xmlを確認してください。”, vbInformation
End Sub
Private Sub RepairXMLContent(ByVal xmlPath As String)
‘ 正規表現またはDOMを用いて、破損したタグを置換・修正する
‘ 現場の知見：多くの場合、最後尾の が欠けているだけである
Dim stream As Object
Set stream = CreateObject(“ADODB.Stream”)
stream.Open
stream.LoadFromFile xmlPath
Dim content As String
content = stream.ReadText
‘ 不完全なXMLを救済する最後の砦（簡易パッチ）
If InStr(content, ““) = 0 Then
content = content & “”
stream.WriteText content
stream.SaveToFile xmlPath, 2 ‘ 2 = adSaveCreateOverWrite
End If
stream.Close
End Sub
—
3. 開発者への忠告：なぜこの設計なのか
なぜ`Open`メソッドを使わないのか？
`Application.Open`はファイル全体をメモリにロードし、DOMを構築しようとする。破損ファイルに対してこれを行うと、例外処理が追いつかずCorelDRAW自体がクラッシュする。まずは「データの中身」をファイルシステム上で分離し、クリーンな状態で再構成するのが、安定性重視のエンジニアの流儀だ。
データベース連携の注意点
サルベージしたデータは、そのまま「新規ファイル」として保存してはならない。必ずXMLを解析し、`Style`情報や`ColorPalette`の依存関係をチェックすること。破損ファイルから抽出したデータには「存在しない参照ID」が含まれていることが多く、そのまま再利用すると別のバグを誘発する。
—
結び：エンジニアの誇りとして
「ファイルが壊れた」という報告に対し、「お手上げです」と返すのは事務員だ。我々には、バイナリを読み解き、XMLの断片からユーザーの苦労を復元する技術がある。
今回紹介した手法はあくまで入り口に過ぎない。さらに高度な手法として、`content.xml`のパース結果をJSONへ変換し、Python等でグラフ構造として修復・整形するパイプラインを構築すれば、どんなに複雑な破損データでも9割以上は復元可能だ。
技術は、誰かを救うためにある。あなたのスキルで、失われるはずだった数千時間の労働を救い出してほしい。それが、CorelDRAWの深淵を覗き込んだ者だけが到達できる、真の「業務自動化エンジニア」の役割だ。
