CorelDRAWの深淵：破損したCDRファイルをVBAで「自己治癒」させる極限の技術
CorelDRAWのファイル（.cdr）は、バージョン13（X3）以降、その実体が「ZIP圧縮されたXMLパッケージ」であることを理解している者は少ない。GUIから「ファイルが壊れています」と冷たく突き放されたとき、多くのユーザーは絶望する。しかし、アーキテクトにとってそれは「データが消失した」のではなく「パッケージ構造の整合性が崩れただけ」という事実に過ぎない。
本稿では、VBAとFSO（FileSystemObject）、そしてバイナリ操作を駆使し、破損したCDRファイルを強制的にサルベージする「自己治癒コード」の設計思想を解説する。
—
1. CDR構造の解剖学：RIFFとZIPの境界線
CDRファイルは、先頭に「RIFF」シグネチャを持つものと、ZIPコンテナとして構成されるものがある。現代のCDRは後者だ。破損の多くは、パッケージ内の`content.xml`のタグ不整合や、ZIPヘッダのCRCエラーに起因する。
この救出劇の要諦は以下の3ステップである。
1. バイナリ整合性の無視: FSOで拡張子を`.zip`に偽装し、強制的に解凍する。
2. 構造的整合性の復元: `content.xml`をDOM（MSXML2）でロードし、破損箇所（不正な閉じタグや不完全な属性）を再構築する。
3. 再パッケージング: 再びZIP化し、CorelDRAWのバリデーターを通過させる。
—
2. 自己治癒マクロ：実装の指針
以下のコードは、破損ファイルを一時ディレクトリに展開し、検証を行うためのテンプレートである。
‘ 必要な参照設定: Microsoft Scripting Runtime, Microsoft XML, v6.0
Option Explicit
Public Sub SalvageCDR(ByVal strFilePath As String)
Dim fso As Object: Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim tempFolder As String
tempFolder = fso.GetParentFolderName(strFilePath) & “\temp_salvage”
‘ 1. 安全な作業領域の確保
If fso.FolderExists(tempFolder) Then fso.DeleteFolder tempFolder
fso.CreateFolder tempFolder
‘ 2. ZIPとしての強制展開 (Shell.Applicationを使用)
Dim shellApp As Object: Set shellApp = CreateObject(“Shell.Application”)
Dim zipPath As String: zipPath = strFilePath & “.zip”
fso.CopyFile strFilePath, zipPath
shellApp.Namespace(tempFolder).CopyHere shellApp.Namespace(zipPath).Items
‘ 3. XML構造の強制修復
RepairXMLStructure tempFolder & “\content.xml”
‘ 4. 再パッケージングとクリーンアップ
‘ ※本番環境ではここでADODB.Stream等を用いて整合性を再構築する
‘ オブジェクトの明示的解放（メモリリークはVBAの敵である）
Set shellApp = Nothing
Set fso = Nothing
End Sub
Private Sub RepairXMLStructure(ByVal xmlPath As String)
Dim xmlDoc As Object: Set xmlDoc = CreateObject(“MSXML2.DOMDocument.6.0”)
xmlDoc.async = False
xmlDoc.validateOnParse = False ‘ 破損ファイルを開くため、検証を無効化する
If Not xmlDoc.Load(xmlPath) Then
‘ ここに正規表現を用いたタグの自動補完ロジックを実装する
‘ 極限の現場では、テキストストリームで開き、不正な末尾を切り落とすのが最も早い
End If
End Sub
—
3. シニアエンジニアが意識すべき「メモリの重み」
CorelDRAW VBAにおいて、COMオブジェクトの解放を怠ることは、大規模ファイル処理において即座に「メモリ不足」という死を招く。
- 明示的なNothingの代入: ループ内で`New`を使用する際は必ずループの終端で`Set obj = Nothing`を宣言せよ。
- Windows APIの活用: `GetTempPath`や`MoveFileEx`等のAPIを直接呼び出すことで、OSレベルでのファイルロックを回避せよ。FSOのバグに振り回されるのは素人である。
- ガベージコレクションの幻想を捨てる: VBAにGCはない。参照カウントがゼロにならない限り、メモリは解放されない。特に`Application.ActiveDocument`を操作する際は、必ずローカル変数に格納し、最後に解放する癖をつけろ。
—
4. アーキテクトからの提言：データ復旧の限界を見極める
この手法は、ZIP構造自体が完全に破壊された場合には無力である。その場合、バイナリエディタでRIFFヘッダを解析し、`RIFF`から始まるチャンクを抽出する低レイヤーのバイナリパースが必要となる。
社内システム管理者がこのツールを構築する際、重要なのは「復旧できたかどうか」のログを詳細に残すことだ。どのタグで失敗し、どのオブジェクトが欠損したのか。それを記録し続けることで、あなたの組織の資産は強固なものとなる。
「壊れたファイルは、直すためのデータ構造を内包している」。
この信念を忘れず、CorelDRAWの深淵を制御せよ。技術とは、既製品を使うことではなく、その内側を自在に操ることを指すのだから。
