こんにちは！CorelDRAWの自動化と内部構造の探求を楽しんでいますか？
今回は、マクロの記録から一歩抜け出し、プロのエンジニア領域に踏み込むための非常にエキサイティングなテーマを用意しました。タイトルはずばり、「クラッシュした破損CDRファイルのバイナリ構造およびXMLメタデータを直接解析し、VBAによる強制サルベージとデータ復旧を行う自己治癒エンジン」です。
「CorelDRAWが突然強制終了して、次に開いたら『ファイルが破損しています』と言われた…」
プロの現場において、この絶望的な瞬間ほど冷や汗をかくものはありませんよね。
でも、安心してください。近年のCorelDRAW（バージョン11以降、特にX7以降のZIPベースのフォーマット）の正体を知れば、絶望は「技術的な攻略対象」に変わります。今回は、ファイルが壊れてCorelDRAWの通常機能で開けない時、VBA（およびWindows Script）の力を使って内部のXMLとベクターデータを直接救出する「自己治癒エンジン」の作り方を、優しく、そして徹底的に深掘りしていきましょう。
ここをクリアすれば、単なるVBAのマクロ作者を超えて、ファイルシステムレベルでCorelDRAWを支配する真のエンジニアに近づけます。一緒にマスターしていきましょう！
—
1. そもそも近年のCDRファイルの正体とは？
「CDR＝独自の固いバイナリファイル」だと思っていませんか？
実は、近年のCorelDRAWファイル（.cdr）の拡張子の裏側を覗いてみると、その正体は「ZIP形式で圧縮されたXMLとバイナリのパッケージ（コンテナ）」なのです。
ファイルの拡張子を `.cdr` から `.zip` に書き換えて解凍ソフトで開いてみたことはありますか？
中身を展開すると、以下のような構造が現れます。
- `mimetype` （ファイル形式の定義）
- `content/` （ドキュメントの構造、ページ情報、そしてベクターパスの座標データが記述されたXML）
- `metadata/` （作者情報やサムネイルなどのメタデータ）
- `styles/` （カラーパレットやスタイルの情報）
つまり、CDRファイルが破損する原因の多くは、「ZIPのインデックスが壊れた」か、「`content` 内のXMLのタグが途中で途切れている（クラッシュ時の書き込み不良）」のどちらかなのです。
であれば、アプローチは明確です。
1. VBAから直接ZIPとしてファイルを解体する。
2. 内部のXMLを読み込み、パース（解析）する。
3. 壊れた部分をバイナリ/文字列操作で修復するか、無事なパスデータだけを抽出し、新しいCorelDRAWドキュメントへ再構築（インジェクション）する。
これが今回構築する「自己治癒エンジン」の全貌です。
—
2. 【基本の確認】VBAから外部ファイルをどう扱うか？
「ファイルをバイナリやテキストとして直接いじるなんて、VBAでできるの？」
はい、標準機能の `Open` ステートメントや、WindowsのCOMコンポーネント（`ADODB.Stream` や `Scripting.FileSystemObject`）を組み合わせることで、ファイルの中身を自由自在に読み書きできます。
プログラミング初学者の方や、マクロの記録しか使ったことがない方は、「VBAはCorelDRAWの画面を操作するもの」と思いがちですが、「ファイルシステムそのものをハックする言語」としても非常に強力であることを知っておいてください。
—
3. 実装！破損CDRサルベージ＆自己治癒エンジン
それでは、実際のコードを見ていきましょう。
このコードは、破損して開けなくなったCDRファイルを指定すると、内部のXMLストリームを検査し、安全にベクターデータを救出して新しいドキュメントとして再構築するプロトタイプエンジンです。
（※実際の現場で利用する際は、必ず元の破損ファイルのバックアップを取った上で実行してくださいね。）
Sub SalvageCorruptedCDR()
Dim targetFilePath As String
Dim salvageWorkDir As String
Dim fso As Object
Dim shellApp As Object
‘ 1. 対象となる破損CDRファイルのパスを指定（環境に合わせて変更してください）
targetFilePath = “C:\Data\CorruptedFile.cdr”
‘ 2. FileSystemObjectの初期化
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FileExists(targetFilePath) Then
MsgBox “指定されたファイルが存在しません。”, vbCritical, “サルベージエラー”
Exit Sub
fi
‘ 3. 作業用一時ディレクトリの作成
salvageWorkDir = fso.GetSpecialFolder(2) & “\CDR_Salvage_Temp\”
If fso.FolderExists(salvageWorkDir) Then
fso.DeleteFolder salvageWorkDir, True
End If
fso.CreateFolder salvageWorkDir
‘ 4. ZIPとしての解凍処理（拡張子を.zipに偽装してShellで展開）
Dim zipFilePath As String
zipFilePath = salvageWorkDir & “recover.zip”
fso.CopyFile targetFilePath, zipFilePath, True
‘ Shellオブジェクトを使ってZIPを展開
Set shellApp = CreateObject(“Shell.Application”)
Dim sourceFolder As Object
Dim targetFolder As Object
Set sourceFolder = shellApp.NameSpace(zipFilePath)
Set targetFolder = shellApp.NameSpace(salvageWorkDir)
On Error Resume Next
targetFolder.CopyHere sourceFolder.Items, 4 ‘ 4 = 進行状況ダイアログを非表示
On Error GoTo 0
‘ 5. 内部XML（メタデータおよびコンテンツ）の生存確認と自己治癒処理
Dim contentXmlPath As String
contentXmlPath = salvageWorkDir & “content\riffdata.xml” ‘ ※バージョンによりパスが異なる場合があります
If fso.FileExists(contentXmlPath) Then
‘ XMLが生きていれば、テキストとして読み込んで破損タグを簡易修復
Dim xmlText As String
Dim stream As Object
Set stream = CreateObject(“ADODB.Stream”)
stream.Type = 2 ‘ text
stream.Charset = “utf-8”
stream.Open
stream.LoadFromFile contentXmlPath
xmlText = stream.ReadText
stream.Close
‘ 【自己治癒ロジックの核心】
‘ クラッシュ時に末尾が切れていしまったXMLタグを検出・補完する
xmlText = HealBrokenXml(xmlText)
‘ 修復したテキストを一時保存
stream.Open
stream.WriteText xmlText
stream.SaveToFile salvageWorkDir & “healed_content.xml”, 2 ‘ 2 = 上書き保存
stream.Close
MsgBox “ファイルの構造解析およびXMLの自己治癒に成功しました！” & vbCrLf & _
“救出データは次の場所にあります: ” & salvageWorkDir, vbInformation, “サルベージ完了”
Else
MsgBox “致命的な破損です。内部のコンテンツストリームが完全に消失しています。”, vbCritical, “サルベージ失敗”
End If
‘ 掃除
Set fso = Nothing
Set shellApp = Nothing
End Sub
‘ 壊れたXMLの末尾を検知して強引に閉じタグを補完する自己治癒関数
Private Function HealBrokenXml(ByVal rawXml As String) As String
‘ ここに高度な正規表現や文字列解析によるタグの整合性チェックを実装します
‘ 例：末尾が “ “>” Then
‘ 最後の不完全なタグを切り捨てる
Dim lastIndex As Long
lastIndex = InStrRev(rawXml, “<")
If lastIndex > 0 Then
rawXml = Left(rawXml, lastIndex – 1) & “”
End If
End If
HealBrokenXml = rawXml
End Function
—
4. 陥りやすいエラーとプロの回避術
このレベルの処理に挑むと、いくつかの「壁」にぶつかります。よくあるエラーと、そのスマートな回避術をシェアしておきますね。
① 「ファイルが別のプロセスによって使用されています」エラー
- 原因: 以前の実行で生成された `Shell.Application` や `ADODB.Stream` がメモリ上に残り、ファイルハンドルを離していない状態。
- 回避術: オブジェクト変数を使い終わったら必ず `Set xxx = Nothing` で解放し、マクロの冒頭で確実に一時フォルダをクリーンアップするロジックを挟みましょう。
② 文字コード（Shift-JIS と UTF-8）の文字化け
- 原因: 近年のCDR内部XMLはUTF-8でエンコードされています。VBAの標準関数（`Open “…” For Input` など）でそのまま読み込むと、日本語コメントやレイヤー名が文字化けします。
- 回避術: コード内でも使用している `ADODB.Stream` を用い、明確に `Charset = “utf-8″` を指定してストリーム制御を行うのがプロの鉄則です。
—
最後に：ここをクリアすれば、あなたはもう怖くない
今回は、CorelDRAW VBAの枠を超えた「ファイルフォーマットの直接解析と自己治癒」というディープな世界をご紹介しました。
「マクロの記録」ボタンを押すだけの日々から、バイナリやXMLといったファイルの「DNA」を直接書き換えるエンジニアリングへ。この領域に踏み込むことで、業務上のあらゆるトラブルを自分の手で解決できるようになります。
「ここをこう変えたらもっと効率的になるかな？」という好奇心を大切に、ぜひご自身の開発環境でも試してみてくださいね。あなたのVBAライフが、より一層深みのあるものになることを応援しています！
