壊れたPowerPointを救い出せ：VBAによる「修復モード」強制開示の極限技術
PowerPointのファイルが「読み込めません」と吐き捨て、数時間、あるいは数日分の作業が露と消える絶望。システム管理者やエンジニアであれば、一度は経験する悪夢だ。
`Presentations.Open`メソッドを叩いてエラーで弾かれる現場を目にするたび、私は思う。「VBAにはまだ、死神からデータを奪い返すための裏口が残されている」と。
今日は、表向きのAPIが匙を投げた際、いかにしてメモリ空間を制御し、修復モードでファイルを引きずり出すか。その執念のアルゴリズムを解説しよう。
—
1. なぜ「Open」は失敗するのか：オブジェクトのライフサイクルとメモリの脆さ
PowerPointのファイル形式（.pptx）は、実態はZipで圧縮されたXML群だ。ファイル構造の一部が物理的に破損、あるいはセクタ異常を起こすと、PowerPointのパーサーは「不正なデータ」と判断し、オブジェクトの生成を拒絶する。
通常の`Open`メソッドは、ファイルをメモリ上に展開し、`Presentation`オブジェクトとしてインスタンス化しようとする。この際、検証プロセスが走る。ここで致命的なエラーを検知すると、プロセスの保護のために即座にリソースを解放し、例外を投げる。
我々が狙うべきは、「検証を最小限に留め、可能な限りストリームをアタッチする」というアプローチだ。
2. 禁断の修復レスキュー：コード実装の要諦
以下のコードは、単にメソッドを呼ぶのではない。`ReadOnly`属性によるロックの回避と、アプリケーションのインスタンスを分離して制御する手法だ。
‘ ———————————————————————-
‘ 破損ファイル救出用・強制オープンプロシージャ
‘ ※必ず新規のPowerPointプロセスを生成して実行すること
‘ ———————————————————————-
Public Sub RescueCorruptPresentation(ByVal filePath As String)
Dim pptApp As Object
Dim pptPres As Object
‘ 1. インスタンスの独立化
‘ 既存のプロセスに影響を与えないよう、別プロセスで起動する
Set pptApp = CreateObject(“PowerPoint.Application”)
On Error Resume Next
‘ 2. 修復を試みる極限のオープン命令
‘ msoTrue: 読み取り専用で開く（書き込みロックを回避）
‘ msoTrue: タイトルバーの表示を抑制（パフォーマンス向上）
‘ msoTrue: ウィンドウを非表示（描画コストをカット）
Set pptPres = pptApp.Presentations.Open( _
FileName:=filePath, _
ReadOnly:=msoTrue, _
Untitled:=msoFalse, _
WithWindow:=msoTrue)
If Err.Number <> 0 Then
Debug.Print “致命的エラー: ” & Err.Description
‘ ここで更に深く潜るなら、Windows APIを用いたファイルストリームの
‘ 直接的なバイナリ読み込み検討が必要となる
Else
‘ 3. 救出の試行
‘ 開くことに成功したら即座に別名で保存し、破損セクタを再配置する
Dim savePath As String
savePath = Left(filePath, InStrRev(filePath, “.”) – 1) & “_rescued.pptx”
pptPres.SaveAs savePath
MsgBox “救出成功: ” & savePath
End If
‘ 4. 厳格なメモリ解放
‘ 破損ファイルを開いたプロセスは不安定であるため、即座に破棄する
On Error GoTo 0
If Not pptPres Is Nothing Then pptPres.Close
If Not pptApp Is Nothing Then pptApp.Quit
Set pptPres = Nothing
Set pptApp = Nothing
End Sub
3. シニアエンジニアが押さえるべき「3つの深淵」
① アプリケーションプロセスの分離
破損ファイルを開く際、既存のPowerPointインスタンスにアタッチしてはいけない。破損したオブジェクトがメモリリークを引き起こし、貴方の作業中ファイルを巻き添えにしてPowerPoint全体がフリーズするからだ。常に`CreateObject`で独立したプロセス空間を確保せよ。
② Windows APIとの連携（高度な救出）
VBAの`Open`メソッドが完全に沈黙する場合、`ShellExecute`を用いて「印刷（Print）」や「開く（Open）」をOS経由で直接指示する手がある。これはアプリケーションの検証ロジックをスルーして、OS側のファイルハンドラに強制的に処理を委譲する荒業だ。
③ キャッシュとバックアップの追跡
PowerPointは作業中に`%AppData%\Microsoft\PowerPoint`へ一時ファイルを書き出す。ファイル自体が修復不能な場合、この隠しディレクトリを探索し、`.tmp`拡張子のファイルを片っ端から`.pptx`にリネームして開くのが、最も高確率で「最近の作業」を回収する方法である。
結論：自動化は「諦めないための技術」である
破損ファイルを前にして「手動で修復ツールを探す」のは、技術者のやることではない。プロフェッショナルは、自らその救出ロジックをコードに書き起こす。
今回紹介した手法は、あくまで修復の入り口に過ぎない。もしこれでも開けないのであれば、次は`ADODB.Stream`を用いたバイナリレベルの抽出や、XML構造の直接解析（Open XML SDKのVBA的実装）という領域へ足を踏み入れることになる。
システムを止めない。データを失わない。
それが、我々業務自動化エンジニアに課せられた、唯一にして最大の責務だ。
