PowerPointの「死」を救う禁断の魔術：OOXML直接編集による強制修復術
こんにちは。自動化の現場で数々の「開けなくなったプレゼンファイル」を救出してきた、あなたの技術的な守護神です。
通常、PowerPoint VBAは`ActivePresentation.Slides(1).Shapes(1).TextFrame…`といった「オブジェクトモデル」を通じて操作します。しかし、ファイルが破損してPowerPoint自体が「このファイルは壊れています」と門前払いする時、この高レイヤーな手法は無力です。
今日お教えするのは、PowerPointファイルをZIPとして解凍し、その内臓である「XML構造」を外科手術で修復する、極めて強力なハイブリッド・アプローチです。
—
1. なぜ「XMLの直接編集」が必要なのか？
PowerPoint（.pptx）は、実はただの「ZIPファイル」です。中身はHTMLのようなXMLの集合体で構成されています。
- VBAの限界: オブジェクトモデルは、ファイルが正しくロードされた状態でないと機能しません。
- XML直接編集の強み: ファイルが破損していても、ZIPさえ解凍できればテキスト置換で「死因」となっているタグを削除・修正し、再び圧縮すれば息を吹き返します。
※注意：この手法はファイル構造を直接触るため、バックアップは必須です。
—
2. 実装の設計図
この処理は以下のステップで行います。
1. 拡張子変更: `.pptx` を `.zip` にリネーム。
2. 解凍: VBA（`Shell`関数）でOSの機能を利用して解凍。
3. XML探索: `document.xml` や `slideMasters/` 以下のXMLをバイナリとして読み込み、正規表現や文字列操作で異常箇所を特定・置換。
4. 再圧縮: フォルダをZIPに戻し、拡張子を戻す。
—
3. 実装コード：破損修復エンジン
ここでは、最も破損しやすい「スライドマスター内の不正な参照」を強制削除する概念コードを示します。
‘ ※要参照設定: Microsoft Scripting Runtime
Sub ForceRepairPPTX(targetPath As String)
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim zipPath As String, extractPath As String
zipPath = Left(targetPath, Len(targetPath) – 4) & “.zip”
extractPath = Left(targetPath, Len(targetPath) – 5) & “_temp\”
‘ 1. ファイルをZIPとして複製
fso.CopyFile targetPath, zipPath
‘ 2. シェルを使って解凍（非同期処理に注意）
Dim shell As Object
Set shell = CreateObject(“Shell.Application”)
shell.Namespace(extractPath).CopyHere shell.Namespace(zipPath).Items
‘ 3. XMLの修復（例：特定の壊れたタグを置換）
Dim xmlFile As String, xmlContent As String
xmlFile = extractPath & “ppt\slides\slide1.xml” ‘ 実際はマスター等を探る
If fso.FileExists(xmlFile) Then
xmlContent = fso.OpenTextFile(xmlFile, 1).ReadAll
‘ ここで破損原因のタグ（例:
xmlContent = Replace(xmlContent, “
Dim ts As Object
Set ts = fso.CreateTextFile(xmlFile, True)
ts.Write xmlContent
ts.Close
End If
‘ 4. 再圧縮とクリーンアップはここで行う（省略）
MsgBox “修復処理のシミュレーションが完了しました。再圧縮プロセスへ進んでください。”
End Sub
—
4. プロが教える「陥りやすい罠」と対策
① エンコーディング（文字コード）の罠
XMLはUTF-8で記述されています。VBAの標準的なファイル入出力（`Open … For Input`）はShift-JISを好むため、ADODB.Stream を使用してUTF-8で読み書きするのが鉄則です。
② ファイルロック問題
`Shell.Application`による解凍は非同期で行われることがあります。解凍が終わる前に次の処理（XML置換）に走るとファイルが見つからずエラーになります。`DoEvents`を使い、フォルダ生成を監視するループを組み込むのがプロの流儀です。
③ 「正解」を知るための近道
「どのXMLが壊れているか？」を特定するには、あえて正常なファイルを解凍して中身を覗くことです。比較こそが最良のデバッグになります。
—
最後に：自動化エンジニアとしての心得
「マクロの記録」は便利ですが、それはあくまで入り口です。今回のようにOOXMLという「PowerPointの本体」にまで手を伸ばせるようになると、もうあなたは単なる事務職のユーザーではありません。
「システムが壊れたなら、中身を直接書き換えればいい」
この視点を持てた時、あなたの業務自動化スキルは格段にレベルアップします。まずは小さなファイルで実験し、ZIP構造の美しさを覗いてみてください。
ここをクリアすれば、あなたはPowerPoint VBAの「深淵」に触れたことになります。応援していますよ。
