絶望の「ファイルが破損しています」を乗り越える：CorelDRAWの自己治癒アルゴリズムを実装する
CorelDRAWで「ファイルが破損しています」という冷徹なダイアログを見た瞬間、血の気が引いた経験はありませんか？何十時間もかけたデザインが、一瞬でゼロになる。プロにとって、これは単なるミスではなく「死」を意味します。
しかし、知っておいてください。CorelDRAWの.cdrファイルは、実は「RIFF/ZIP構造」を持つただのコンテナです。中身はXMLやバイナリの集合体であり、適切な外科手術を施せば、データは蘇ります。
今日は、マクロの記録で遊んでいるレベルから脱却し、VBAを「解析ツール」として使いこなすための極限の知見を授けます。
—
1. 敵を知る：CDRファイルの正体
CorelDRAW X7以降のファイル形式は、実質的に「Zip圧縮されたフォルダ」です。拡張子を`.zip`に書き換えて解凍すれば、中身が見えることはご存知でしょうか？
破損の多くは、このZip構造のインデックス崩壊か、内部の`content.xml`のタグ閉じミスです。VBAを使えば、FSO（FileSystemObject）を駆使して、この「解凍→XML修復→再圧縮」というプロセスを自動化できます。
2. 実践：自己治癒マクロのアーキテクチャ
ここでは、破損したファイルを強制的に解凍し、中身をサルベージするコアロジックを解説します。
必要なライブラリの参照設定
VBAエディタの「ツール」＞「参照設定」から以下を追加してください。
- Microsoft Scripting Runtime (FSO用)
- Microsoft Shell Controls And Automation (ZIP解凍用)
‘ 破損したCDRを救出する自己治癒エンジンの核心
Sub SalvageCDRFile()
Dim fso As Object
Dim shellApp As Object
Dim sourcePath As String, destPath As String
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set shellApp = CreateObject(“Shell.Application”)
sourcePath = “C:\Recovery\broken_file.cdr”
destPath = “C:\Recovery\Extracted\”
‘ 1. CDRをZIPとして認識させるために拡張子を偽装
Dim tempZip As String
tempZip = fso.GetParentFolderName(sourcePath) & “\temp.zip”
fso.CopyFile sourcePath, tempZip
‘ 2. 自動解凍プロセス
If Not fso.FolderExists(destPath) Then fso.CreateFolder (destPath)
‘ Shellオブジェクトを利用したZip展開
shellApp.Namespace(destPath).CopyHere shellApp.Namespace(tempZip).Items
MsgBox “解凍完了。’content.xml’をエディタで開き、破損タグを修正してください。”
End Sub
3. なぜ「マクロの記録」ではダメなのか
ここで重要な概念を一つ。マクロの記録は「UI操作をなぞる」だけですが、業務自動化エンジニアは「データ構造を操作する」のです。
- UI操作（マクロ記録）: `Application.Open` を使う。→ 破損していたらそこでエラー終了。
- エンジニアの手法: `FSO` でファイルストリームを直接叩く。→ 壊れたヘッダを無視して、中身のXMLだけを救出する。
この視点の転換こそが、プロへの入り口です。
4. 陥りやすい罠と対策
① XMLの構文エラーをどう直すか？
`content.xml`を開くと、数万行のコードが並んでいます。よくある破損は「最後が途切れている」こと。VBAでファイルを読み込み、``のような終了タグが欠けている場合、それを追記して保存するロジックを組むだけで、CorelDRAWは再びそのファイルを受け入れてくれます。
② ファイルロックの罠
FSOでファイルを操作する際、CorelDRAWがバックグラウンドでロックを掴んでいることがあります。必ず `DoEvents` を挟み、操作前にファイルが開かれていないかを確認する堅牢な実装を心がけてください。
‘ ファイルがロックされていないか確認する知見
Function IsFileLocked(filePath As String) As Boolean
Dim fileNum As Integer
fileNum = FreeFile
On Error Resume Next
Open filePath For Binary Access Read Write Lock Read Write As #fileNum
Close #fileNum
IsFileLocked = (Err.Number <> 0)
On Error GoTo 0
End Function
—
5. 最後に：エンジニアとしての矜持
CorelDRAWのVBAは、単なる「便利なボタンを作る道具」ではありません。それは、アプリケーションの内部仕様をハックし、「本来できないはずのこと」を可能にする魔法の杖です。
今回紹介した「解凍→修復→再パッケージ」の手法は、どんなに重い破損ファイルでも、最後の一滴までデータを吸い出すための生命線になります。
まずは、壊れてもいいテストファイルで、解凍と圧縮のサイクルを試してみてください。このプロセスを理解した時、あなたはもう「マクロを使う人」ではなく、「CorelDRAWを制御するアーキテクト」になっているはずです。
次回の記事では、この修復したXMLから、さらに「特定のオブジェクトだけを抽出する」という、より深淵なテクニックについてお話ししましょう。あなたの創造性が、技術によって守られることを願っています。
