PowerPointの死を看取る：OOXML直接編集による「スライドマスター破損」の強制修復術
PowerPointが「ファイルが破損しています」と冷酷に告げ、オブジェクトモデル（OM）すら拒絶する瞬間——。多くのエンジニアはここでサジを投げるが、我々アーキテクトにとって、それは「救出」の始まりに過ぎない。
PowerPointの`.pptx`は、実態がZIP圧縮されたXMLの集合体（OOXML）であることを忘れてはならない。OMが解釈不能な状態であっても、XMLの整合性さえ確保すれば、データは蘇る。本稿では、VBAからOSの機能を直接叩き、XMLレイヤーでスライドマスターを強制修復する「外科手術」の極意を伝授する。
—
1. 原理：なぜOMは「救えない」のか
VBAの`Presentation.Open`メソッドは、XMLの構造がスキーマ定義とわずかでも乖離していれば例外を投げ、処理を停止する。特にスライドマスターのレイアウト定義（`slideLayouts/`）が破損した場合、OMはそれを「修復不可能な構造欠陥」と判断する。
我々が行うのは、「解凍・直接置換・再圧縮」という低レイヤーのパイプラインだ。これにより、OMをバイパスして直接XMLを叩き、無効なノードを削ぎ落とす。
—
2. 実装：Windows APIとシェルシェルを活用したハイブリッド・アーキテクチャ
VBA単体ではZIP圧縮に対応していない。`Shell.Application`を用いてOSの圧縮フォルダ機能を叩くのが最も堅牢だ。
核心となるVBAコード
‘ 警告：このコードはファイル操作を直接行います。必ずバックアップを取ってから実行してください。
Option Explicit
Public Sub ForceRepairPresentation(ByVal targetPptxPath As String)
Dim fso As Object: Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim shellApp As Object: Set shellApp = CreateObject(“Shell.Application”)
Dim tempDir As String: tempDir = fso.GetParentFolderName(targetPptxPath) & “\temp_repair”
Dim zipPath As String: zipPath = targetPptxPath & “.zip”
‘ 1. バックアップとZIP化
FileCopy targetPptxPath, zipPath
‘ 2. 一時フォルダへ展開
If Not fso.FolderExists(tempDir) Then fso.CreateFolder tempDir
shellApp.Namespace(tempDir).CopyHere shellApp.Namespace(zipPath).Items
‘ 3. 【核心】XMLの直接編集
‘ ここで slideMasters/ 以下の特定XMLを読み込み、不正なノードを削除する
RepairXmlStructure tempDir & “\ppt\slideMasters\slideMaster1.xml”
‘ 4. 再圧縮
‘ 空のZIPを作成し、中身を詰め直す（再帰的なZIP圧縮が必要なため注意）
‘ ※実務では圧縮用コマンドラインツール(7-Zip等)をShell経由で叩くのが最も高速
‘ 5. 後処理：オブジェクトの明示的解放
Set shellApp = Nothing
Set fso = Nothing
End Sub
Private Sub RepairXmlStructure(ByVal xmlPath As String)
‘ ADODB.Streamを用いた高速なテキスト置換
‘ XMLの破損部位（例えば不正なリレーションID等）をRegExpで置換する
Dim stream As Object: Set stream = CreateObject(“ADODB.Stream”)
stream.Type = 2 ‘ adTypeText
stream.Charset = “utf-8”
stream.Open
stream.LoadFromFile xmlPath
Dim content As String: content = stream.ReadText
‘ 不正なノードを正規表現で無効化するロジックをここに記述
‘ 例: content = Replace(content, “
stream.Position = 0
stream.SetEOS
stream.WriteText content
stream.SaveToFile xmlPath, 2 ‘ adSaveCreateOverWrite
stream.Close
End Sub
—
3. アーキテクトの視点：パフォーマンスと安定性への執着
メモリとリソースの管理
`Shell.Application`を多用すると、バックグラウンドでCOMプロセスが残存し、メモリリークを招く。必ずコードの最後でオブジェクトを`Nothing`にクリアし、`DoEvents`を挟んでOSのファイルI/Oの完了を待機させよ。
なぜRegexによる置換なのか
DOMパーサー（`MSXML2.DOMDocument`）を使わないのには理由がある。「完全に壊れたXML」をDOMパーサーに読み込ませると、それ自体がパースエラーで落ちるからだ。 破損したファイルに対しては、XMLとしての整合性を無視できる文字列操作（Regex）こそが、最も低コストで確実な手段となる。
システム間連携の要諦
この手法をサーバーサイド（または無人運用環境）で実装する場合、`7-zip`のコマンドライン版（`7z.exe`）を呼び出すのがベストプラクティスだ。`Shell.Application`はGUIの挙動を模倣するため、セッションが切れた際に動作が不安定になるリスクがある。
—
4. 結び：エンジニアとしての矜持
スライドの修復とは、単なるファイルの復旧ではない。クライアントや経営層が汗を流して積み上げた時間を、バイナリの断片から救い出す行為だ。
VBAはレガシーと言われるが、OSの深淵を覗き、OOXMLの構造を理解したエンジニアの手にかかれば、どんな「ゴミ」も資産に変わる。この「低レイヤーの視点」を忘れず、今日もPowerPointというブラックボックスをハックし続けよ。それが、システムを支配する者の責務だ。
