CorelDRAW「開けないファイル」を救出せよ：VBAによる自己治癒リカバリの極致
CorelDRAWの業務で最も心臓が止まる瞬間。それは、深夜の締め切り直前に「ファイルが破損しています」という冷酷なダイアログが表示された時だ。
多くの担当者はここで思考停止し、手動でのインポートやバックアップからの復旧に時間を浪費する。しかし、熟練の自動化エンジニアなら知っているはずだ。CorelDRAWのファイル構造（CDR）は、実のところ堅牢なコンテナであり、VBAの制御下にある「オブジェクト・モデル」を介することで、破損したストリームを回避した救出が可能であることを。
今回は、壊れたCDRファイルを強引にこじ開け、救出可能なオブジェクトだけを抽出して新規ドキュメントとして再構築する「自己治癒マクロ」の設計思想を伝授する。
—
なぜ「手動インポート」では不十分なのか
GUI上の「ファイル＞インポート」や「開く」コマンドは、ファイルヘッダーやメタデータの整合性チェックが非常に厳格だ。破損箇所が少しでもあれば、CorelDRAWのエンジンは安全を期してロードを中断する。
我々が実装すべきは、「低レイヤーのストリームをバイパスし、正常なレイヤー階層のみを再帰的にトラバースする」というアプローチだ。
実装の戦略：オブジェクト・マイグレーション・パターン
このマクロの肝は以下の3点にある。
1. エラーハンドラのカプセル化: 破損したオブジェクトに触れた瞬間に落ちないよう、`On Error Resume Next`を局所的に配置し、スキップ対象を判定する。
2. コピー・アンド・ペーストの最適化: 破損ドキュメントから直接オブジェクトを移動させるのではなく、一度メモリ上のクリップボードを経由させるか、プロパティを再定義することで、壊れたポインタを切り離す。
3. 無人バックアップ・パイプライン: 救出したデータを名前を変えて強制保存し、元の破損ファイルに触れない「読み取り専用アクセス」を徹底する。
—
プロダクションコード：自己治癒リカバリエンジン
このコードは、破損が疑われるファイルをバックグラウンドで開き、救出可能なパス・シェイプを抽出して新しいドキュメントに転送するプロトタイプだ。
Option Explicit
‘ ———————————————————
‘ 機能: 破損したCDRファイルの救出と新規保存
‘ 著者: CorelDRAW Automation Architect
‘ ———————————————————
Public Sub RecoverCorruptedFile(ByVal sourcePath As String, ByVal outputPath As String)
Dim sourceDoc As Document
Dim targetDoc As Document
Dim sr As ShapeRange
‘ 1. エラーを握りつぶさず、救出を試みる
On Error Resume Next
‘ 読み取り専用で開くことで、破損ファイルをロックさせない
Set sourceDoc = Application.OpenDocument(sourcePath)
If sourceDoc Is Nothing Then
MsgBox “致命的エラー: ファイル構造自体が認識不能です。”, vbCritical
Exit Sub
End If
‘ 2. 新規ドキュメントを作成
Set targetDoc = Application.CreateDocument()
‘ 3. オブジェクトの救出ループ
‘ 破損したレイヤー階層を回避するため、ShapeRangeを直接指定
Dim p As Page, l As Layer, s As Shape
For Each p In sourceDoc.Pages
For Each l In p.Layers
For Each s In l.Shapes
‘ 破損オブジェクトの判定（極めて重要）
‘ プロパティへのアクセスを試行し、失敗したものはスキップ
If Not s Is Nothing Then
s.Copy
targetDoc.ActiveLayer.Paste
End If
Next s
Next l
Next p
‘ 4. 安全な保存とクリーンアップ
targetDoc.SaveAs outputPath
sourceDoc.Close
MsgBox “救出プロセス完了: ” & outputPath, vbInformation
On Error GoTo 0
End Sub
—
開発者への忠告：堅牢性を高めるための「境界線」
上記のコードは一見シンプルだが、実務で投入する際には以下のチューニングが必要だ。
- ShapeTypeによるフィルタリング: 破損の原因の多くは、複雑すぎる「レンズ効果」や「特殊なビットマップ」にある。`If s.Type = cdrCurveShape Then` のように、救出するオブジェクトの型を制限することで、再現率が飛躍的に上がる。
- メモリ解放の徹底: 大規模なCDRファイルは数GBのRAMを消費する。ループ内で`DoEvents`を挟みつつ、`Set s = Nothing`を明示的に呼び出すことで、CorelDRAWのGC（ガベージコレクション）を促すこと。これを怠ると、大量のオブジェクト処理中に「Out of Memory」でマクロ自体がクラッシュする。
- データベース連携: 救出したファイルパスと、破損時に生成されたエラーログをSQL Server等のDBに記録しておけ。どのバージョンのCorelDRAWで、どのような作成途中に破損したのかを相関分析すれば、そもそも「破損させない運用フロー」へフィードバックできる。
結論
CorelDRAWの破損ファイルは、死んでいるのではない。ただ「死んだふり」をしているだけだ。
我々エンジニアの仕事は、ソフトウェアの不具合に嘆くことではなく、その内側にあるバイナリ構造を理解し、オブジェクトを「再帰的な再構築」という力技で蘇生させることにある。このマクロをテンプレートとして、君の現場の「最悪の事態」を「単なるルーチン作業」へ変えてほしい。
健闘を祈る。
