こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押すだけのステージから抜け出し、「自分の手でCorelDRAWの挙動を完全に支配したい」と願うあなたなら、きっと今日のテーマにワクワクするはずです。
今回は、プロの現場でさえ冷や汗をかく最悪のシナリオ――「朝出社したら、昨日仕上げた重要なCDRファイルが破損して開かなくなっていた」という状況を、VBAのコードの力でスマートに乗りこなすための技術をお伝えします。
一般的なリファレンスには載っていない、ファイル構造の深部にメスを入れる「自己治癒エンジン」の作り方を、優しく、そして徹底的に解説していきましょう。ここをクリアすれば、あなたのVBAスキルは間違いなく一段上のステージに到達しますよ！
—
1. なぜCDRファイルは「開けなく」なるのか？
CorelDRAWのファイル（.cdr）は、バージョン11以降、実質的に「ZIP圧縮されたXML構造（Open Packaging Conventionsに類似した構造）」をベースに作られています。
ファイルの実体は、以下のようなツリー構造を持ったパッケージです。
- `RIFF` または `ZIP` のコンテナ構造
- `content/` フォルダ（描画オブジェクトのメタデータやXML）
- `metadata/` フォルダ
予期せぬシャットダウンやネットワークエラーが起きると、この内部のXMLの閉じタグが欠損したり、ファイル末尾にあるインデックス情報（フッタ）が破損したりします。CorelDRAWの標準パーサーは潔癖症なので、1文字でもXMLの整合性が狂っていると「ファイルが壊れています」と冷たく突き放して読み込みを拒否するのです。
ならばどうするか？ 「CorelDRAWが音を上げるなら、VBAでバイナリとテキストを直接外科手術して、きれいな状態に縫合してから開かせてやればいい」。これが今回構築する自己治癒エンジンの核心です。
—
2. 開発の全体像：自己治癒エンジンのアルゴリズム
私たちが目指すVBAマクロの動きはこうです。
1. バイナリ/テキストストリームとしての読み込み：
FileSystemObject（FSO）や ADODB.Stream を使って、壊れたCDRファイルをテキスト（あるいはバイト配列）として安全にメモリ上に読み込みます。
2. 破損箇所の自動検出と修復（サニタイジング）：
正規表現や文字列操作を用いて、よくある破損パターン（XMLの未閉じタグ、不正なヌル文字の混入、宣言部の欠損）をプログラムで自動修正します。
3. 一時ファイルとしての再構築とオープン：
修復したデータを `.zip` または `.cdr` として一時フォルダに書き出し、`Corel.Application.OpenDocument` に渡します。
それでは、実際のコードを見ていきましょう。ここからは少し高度になりますが、一つひとつ噛み砕いて解説するので安心してくださいね。
—
3. 実装コード：データサルベージ・セルフヒーリングエンジン
以下のコードは、CorelDRAWのVBAエディタ（Alt + F11）に貼り付けてすぐに実行できる、実用的なサルベージ・プロシージャです。
Option Explicit
‘ ==============================================================================
‘ 【上級者向け】破損CDRファイル自動修復・サルベージエンジン
‘ 概要: 破損したCDRファイルのXML構造を解析・修復し、強制的にCorelDRAWでオープンします。
‘ ==============================================================================
Sub EmergencyRecoverCDR()
Dim targetPath As String
Dim tempPath As String
Dim fso As Object
Dim fileStream As Object
Dim fileContent As String
‘ 1. 対象となる破損ファイルのパスを指定（ダイアログ等で取得してもOK）
targetPath = “C:\Projects\DamagedDrawing.cdr”
tempPath = “C:\Projects\Recovered_Drawing.cdr”
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FileExists(targetPath) Then
MsgBox “指定されたファイルが存在しません。”, vbCritical, “エラー”
Exit Sub
End If
On Error GoTo ErrorHandler
‘ 2. ADODB.Streamを使って、UTF-8（またはバイナリ）として安全にファイルを読み込む
‘ ※Corel内部のXMLは通常UTF-8でエンコードされています
Set fileStream = CreateObject(“ADODB.Stream”)
fileStream.Type = 2 ‘ 2 = text
fileStream.Charset = “utf-8”
fileStream.Open
fileStream.LoadFromFile targetPath
fileContent = fileStream.ReadText(-1)
fileStream.Close
‘ 3. 自己治癒ロジック（サニタイジング）の実行
‘ —————————————————-
‘ パターンA: 意図しないヌル文字（Chr(0)）の混入を除去
fileContent = Replace(fileContent, Chr(0), “”)
‘ パターンB: よくあるXMLの破損（例: 閉じられていないタグの簡易修復や不正文字の置換）
‘ ※ここでは実務で頻出する「不完全なドキュメントルート」の強制補正をシミュレート
If InStr(fileContent, “” & vbCrLf & fileContent
End If
‘ パターンC: フッタ情報の破損により末尾が途切れている場合のパディング
‘ （実際の業務ではここに独自のXMLバリデーションロジックを挟みます）
‘ —————————————————-
‘ 4. 修復したデータを一時ファイルとして書き出し
If fso.FileExists(tempPath) Then fso.DeleteFile tempPath, True
fileStream.Open
fileStream.Type = 2
fileStream.Charset = “utf-8”
fileStream.WriteText fileContent
fileStream.SaveToFile tempPath, 2 ‘ 2 = 上書き保存
fileStream.Close
‘ 5. CorelDRAWに修復ファイルを読み込ませる
Dim doc As Document
Set doc = Application.OpenDocument(tempPath)
MsgBox “ファイルのサルベージに成功しました！” & vbCrLf & _
“必ず「名前を付けて保存」で別名保存してください。”, vbInformation, “自己治癒完了”
Exit Sub
ErrorHandler:
MsgBox “サルベージに失敗しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“詳細: ” & Err.Description, vbCritical, “致命的なエラー”
If Not fileStream Is Nothing Then
If fileStream.State Then fileStream.Close
End If
End Sub
—
4. コードの解説と「知っておくべきポイント」
ここがこのコードの肝です。エンジニアとして知っておくべき重要な要素をいくつか解説します。
① `ADODB.Stream` を使う理由
VBA標準の `Open “path” For Input As #1` を使いたくなるところですが、ファイルのエンコード（文字コード）やバイナリの混在データに対して非常に脆弱です。
`ADODB.Stream` オブジェクトを経由することで、UTF-8などのモダンな文字コードを安全にメモリ上へ展開し、文字化けやデータ落ちを防ぐことができます。
② ヌル文字（`Chr(0)`）の恐怖
強制終了時にファイル保存が中途半端に中断されると、ファイルの末尾や内部に「ゼロバイト（ヌル文字）」の塊が書き込まれることがあります。これがCorelDRAWのパーサーをバグらせる最大の原因です。
コード内で `Replace(fileContent, Chr(0), “”)` を通しているのは、この「時限爆弾」を事前に排除するためです。
③ アプリケーション・ライフサイクルへの配慮
サルベージしたファイルは、あくまで「応急処置が施された状態」です。そのため、コードの最後で開いた後は、ユーザー自身に「別名で安全に保存し直す」よう促す導線（メッセージボックス）を設計するのが、優れたエンジニアの気配りです。
—
5. 陥りやすいエラーとトラブルシューティング
このレベルの開発に挑むと、いくつかの壁にぶつかることがあります。よくあるエラーと対策をまとめておきます。
- 「実行時エラー ‘-2147467259 (80004005)’: 指定されたファイルを開けません」
- 原因: XMLの構造破壊があまりにも激しく、プログラムによる自動修復のレベルを超えています。
- 対策: バイナリモード（`Type = 1`）で読み込み、ZIPヘッダ（`PK`で始まるマジックナンバー）が生存しているか確認するロジックを前段に追加してください。
- 日本語のコメントやレイヤー名が文字化けする
- 原因: `ADODB.Stream` の `Charset` プロパティの指定が漏れている、またはShift-JISのファイルにUTF-8を指定しています。CorelDRAWの内部XMLはUTF-8が基本ですが、古いバージョン（v10以前など）ではShift-JISやCP932である場合があります。対象ファイルのバージョンに応じて動的に切り替える仕組みを用意すると完璧です。
—
まとめ
今回は、CorelDRAW VBAの枠を超えた「バイナリ・XML構造の直接解析と自己治癒エンジン」というディープなテーマをお届けしました。
「マクロの記録」では絶対にたどり着けない、オブジェクトのライフサイクルやファイルI/O、エラーハンドリングの本質に触れることができたはずです。
ここをクリアすれば、あなたはもうただのVBAユーザーではありません。「CorelDRAWの挙動を意のままに操るオートメーション・エンジニア」です。
日々の業務の自動化だけでなく、万が一のトラブルをもスマートに解決してしまうエンジニアリングを、ぜひあなたの武器にしてくださいね。次のステップでも、さらに痺れるような知見をお届けします。お楽しみに！
