【極限のリカバリ】破損したPPTMを外科手術的に救出する：XMLパージとオブジェクト制御によるデータ死守の技術
業務の最前線において、我々エンジニアが直面する最も忌まわしい事象の一つは、「開けないファイル」だ。
単なるファイル破損ではない。サードパーティ製アドインのバージョン不整合、あるいはレガシーなActiveXコントロールの参照エラーによって、PowerPointのプロセス自体が起動時にデッドロックに陥る、あるいは「修復が必要」という無益なダイアログと共にクラッシュする。これは、プレゼンテーションの内容そのものよりも、その背後にあるOOXML（Office Open XML）構造の整合性と、COMオブジェクトの初期化シーケンスの不一致によって引き起こされる。
本稿では、通常の「ファイルを開く」というアプローチを放棄し、ファイルを一つの「ZIPアーカイブ（XMLの集合体）」として捉え、毒性のあるコンポーネントを外科手術的に摘出（パージ）することで、データを救出する極限のリカバリ手法を解説する。
1. 敗北の構造解析：なぜPPTMは「死ぬ」のか
PPTMファイルの実体は、複数のXMLファイルとバイナリデータ（`vbaProject.bin`等）を格納したZIPアーカイブである。
ファイルが開けない原因の多くは、以下のプロセスにある：
1. アドイン/ActiveXのロード: PowerPointが起動し、ファイル内の`customUI`や`vbaProject`を読み込もうとする。
2. 依存関係の解決: 存在しない、あるいはバージョンが異なるDLL（ActiveX）をメモリ上に展開しようとする。
3. プロセスのハング/クラッシュ: OSレベルでの例外が発生、あるいはCOMの参照カウントが循環し、アプリケーションが応答不能になる。
通常のVBAマクロは「PowerPointが開いていること」を前提とするが、本件のようなケースでは、「PowerPointに、壊れたファイルを認識させる前に、ファイルの中身を書き換える」という逆転の発想が必要となる。
2. 戦略的アプローチ：XMLパージによる「無菌状態」の構築
救出の戦略は以下の3ステップに集約される。
1. コンテナの解体: `.pptm` を `.zip` として扱い、中身のXML構造へアクセスする。
2. 毒性の摘出（Surgical Purge）: 破損の原因となる `vbaProject.bin` や、不正な定義を含む `customUI/` ディレクトリ、あるいは不審な `activeX` 関連のXMLノードを物理的に削除する。
3. 再構築とデータ移送: 浄化された「無菌状態」のファイルを新しいPPTXとして再構成し、そこへ「安全なプロセス」を通じてスライドデータのみを抽出・移行する。
3. 実装：極限のレスキュー・エンジニアリング
以下に、Windows ShellとMSXML2を利用して、バイナリレベルでファイルを操作し、安全な新規ファイルへデータを救出するためのコアロジックを示す。
※このコードは、単なる自動化ツールではない。メモリ管理とオブジェクトのライフサイクルを厳格に制御する、インフラ保守のためのスクリプトである。
Option Explicit
' Windows API: プロセス強制終了等の低レイヤー操作が必要な場合に備え、宣言しておく
' 本来は、ハングしたPowerPointを確実に解放するために使用する
If VBA7 Then
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Else
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
End If
''' <summary>
''' 破損したPPTMを外科手術的に救出し、クリーンなPPTXへ移行する
''' </summary>
Public Sub EmergencyRescueManager()
Dim targetFile As String
Dim recoveryFolder As String
Dim shellApp As Object
Dim fso As Object
' ターゲットファイルの指定（実運用ではダイアログ等で取得）
targetFile = "C:\Path\To\CorruptedFile.pptm"
recoveryFolder = "C:\Path\To\Recovery_Work\"
Set fso = CreateObject("Scripting.FileSystemObject")
On Error GoTo ErrorHandler
' 1. ワークスペースの準備
If Not fso.FolderExists(recoveryFolder) Then fso.CreateFolder (recoveryFolder)
Debug.Print "--- Rescue Operation Started ---"
' 2. XMLパージ工程 (ZIP構造としての操作)
' PPTMをZIPとしてコピーし、vbaProject.binを物理削除する
Dim cleanedZip As String
cleanedZip = PerformSurgicalPurge(targetFile, recoveryFolder)
' 3. セーフモード的起動によるデータ抽出
' 浄化されたファイルを新しいPowerPointインスタンスで開き、スライドをコピーする
Dim newPresentation As Presentation
Dim sourcePresentation As Presentation
Dim pptApp As Object
' 新しいPowerPointインスタンスを生成（既存の汚染されたプロセスを避けるため）
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True ' 挙動確認のため可視化
' 浄化済みファイルの展開（拡張子を.pptxに変更して読み込む）
' ※実際にはZIP展開してXMLを再構成する処理が必要だが、ここでは概念を示す
Set sourcePresentation = pptApp.Presentations.Open(cleanedZip, WithWindow:=msoFalse)
' 新規プレゼンテーションの作成
Set newPresentation = pptApp.Presentations.Add
' スライドの完全移行
Dim i As Integer
For i = 1 To sourcePresentation.Slides.Count
sourcePresentation.Slides(i).Copy
newPresentation.Slides.Paste
Next i
' 4. 最終保存
newPresentation.SaveAs recoveryFolder & "Recovered_Data.pptx", 24 ' ppSaveAsDefault
Debug.Print "--- Rescue Operation Completed Successfully ---"
CleanUp:
' オブジェクトの明示的な解放（メモリリークとCOM参照の残留を防ぐ）
' これを怠ると、救出後にPowerPointプロセスがゾンビ化する
On Error Resume Next
If Not sourcePresentation Is Nothing Then sourcePresentation.Close: Set sourcePresentation = Nothing
If Not newPresentation Is Nothing Then Set newPresentation = Nothing
If Not pptApp Is Nothing Then pptApp.Quit: Set pptApp = Nothing
Set fso = Nothing
Exit Sub
ErrorHandler:
MsgBox "Critical Failure during rescue: " & Err.Description, vbCritical
Resume CleanUp
End Sub
''' <summary>
''' ZIP構造としてファイルを操作し、破損原因（VBA/ActiveX）を物理的に削除する
''' </summary>
Private Function PerformSurgicalPurge(ByVal filePath As String, ByVal workDir As String) As String
Dim fso As Object
Dim shellApp As Object
Dim zipPath As String
Dim targetVbaBin As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set shellApp = CreateObject("Shell.Application")
zipPath = workDir & "temp_recovery.zip"
targetVbaBin = "vbaProject.bin"
' ファイルをZIPとしてコピー
fso.CopyFile filePath, zipPath, True
' Shell.Applicationを使用してZIP内の特定のファイルを削除
' 注意: Shell.Applicationの操作は非同期的な挙動を示すことがあるため、
' 厳格な環境では、より低レイヤーなDLL呼び出しや、外部ライブラリを検討せよ
Dim zipFolder As Object
Set zipFolder = shellApp.Namespace(zipPath)
If Not zipFolder Is Nothing Then
Dim item As Object
For Each item In zipFolder.Items
If InStr(1, item.Name, targetVbaBin, vbTextCompare) > 0 Then
zipFolder.Items.Item(item.Name).InvokeVerb "delete"
Debug.Print "Purged: " & targetVbaBin
End If
Next item
End If
' ここで本来はXMLの整合性チェックを行う。
' customUI/ 等の破損ノードも同様の手順で排除する。
PerformSurgicalPurge = zipPath
End Function4. アーキテクトの視点：オブジェクトのライフサイクルとメモリの重み
このツールを実装・運用する上で、シニアエンジニアが肝に銘じるべきは「COMオブジェクトのライフサイクル」である。
明示的解放の重要性
VBAにおける `Set obj = Nothing` は、あくまで参照をクリアするに過ぎない。もし、`sourcePresentation` が破損したアドインのロード中にエラーを吐いた場合、そのオブジェクトはメモリ上で「半死半生」の状態となり、プロセスを掴んだままになる。
実運用環境では、`On Error` 句の中で、単にエラーを表示するのではなく、`Declare PtrSafe Sub TerminateProcess` 等のWindows APIを用いて、汚染された `PowerPoint.exe` のプロセスツリーを物理的に切断するロジックを組み込むことが、真の「インフラ・サポート向けツール」としての要件である。
XMLパージの深度
上記のコードでは `vbaProject.bin` の削除に焦点を当てたが、高度な破損では `ppt/slides/slide1.xml` 内の `extLst`（拡張リスト）や `activeX` 関連の記述が原因となる。
これらを処理する場合、`MSXML2.DOMDocument60` を用い、以下の手順を踏むべきだ。
1. XMLをDOMとしてロード。
2. `Namespace` を正確に定義（OOXMLはNamespaceの扱いに極めて厳格である）。
3. `SelectNodes` を用いて、不審な `control` ノードや `customUI` ノードを特定。
4. `RemoveChild` メソッドにより、構造を破壊せずにノードのみを外科的に切除。
結論
プレゼンテーションの救出とは、単なるデータのコピーではない。それは、汚染された実行環境から、純粋なデータ構造を分離・抽出する、デジタルな「検疫」作業である。
システム管理者は、アプリケーションの「機能」を信じるのではなく、その「構造（XML）」を信じよ。構造さえ掌握できていれば、いかなるマクロの暴走も、いかなるアドインの呪縛も、我々のコントロール下にある。
