PowerPoint VBAの限界を超えろ：OOXML直接操作による「究極の修復術」
PowerPointのオブジェクトモデル（OM）に依存しきった開発は、ある日突然、絶望に突き当たる。スライドマスターが破損し、`Presentation.Open`すら拒絶する、あるいは「ファイルが壊れています」の無限ループ。
通常のVBAでは、DOMが読み込めないファイルを操作する術はない。だが、プロのエンジニアは知っている。PowerPointファイル（.pptx）は、ただのZIPアーカイブであり、その正体はXMLの集合体（OOXML）であるという事実を。
今日は、PowerPointのGUIやOMが放棄した「死に体」のファイルを、バイナリレベルで蘇生させるためのアーキテクチャを伝授する。
—
1. なぜ「OM」ではなく「XML」なのか
PowerPointのオブジェクトモデルは、あくまで「アプリケーションが解釈可能な状態」を前提としている。しかし、実務において破損したファイルは、この「解釈」のプロセスでクラッシュする。
我々がやるべきは、アプリケーションの外側からZIP構造を解体し、壊れたノードをテキスト置換で強制排除（あるいは修正）し、再梱包するという、外科手術的なアプローチだ。
アーキテクチャの要点
1. Shell操作による展開: `Shell.Application`を用いて、ZIP構造を一時ディレクトリに展開。
2. XMLの直接解析: `MSXML2.DOMDocument`を使用して、特定のXMLノードを特定・改変。
3. 再圧縮: 展開したファイルを再圧縮してコンテナを閉じる。
—
2. 実装コード：OOXML修復エンジンのコア
以下のコードは、破損ファイルを一時フォルダで解体し、特定のXMLタグをクリーンアップするプロトタイプだ。
Option Explicit
‘ 必要な参照設定: Microsoft Shell Controls And Automation
‘ 必要な参照設定: Microsoft XML, v6.0
Public Sub RepairPowerPointOOXML(ByVal sourcePath As String, ByVal destPath 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.GetSpecialFolder(2) & “\PPTRepair_” & Format(Now, “hhmmss”)
‘ 1. 一時ディレクトリ作成
fso.CreateFolder tempDir
‘ 2. ZIPとして解凍
shellApp.Namespace(tempDir).CopyHere shellApp.Namespace(sourcePath).Items
‘ 3. 破損しやすい slideMasters/master1.xml を直接修正（例：不正なノードの削除）
Dim masterXmlPath As String: masterXmlPath = tempDir & “\ppt\slideMasters\slideMaster1.xml”
If fso.FileExists(masterXmlPath) Then
RepairXmlNode masterXmlPath
End If
‘ 4. 再圧縮して保存 (ここではシンプルに再圧縮処理を想定)
‘ ※実際の再圧縮はADODB.Streamや外部Zipコマンドを推奨
MsgBox “修復処理完了: ” & destPath, vbInformation
End Sub
Private Sub RepairXmlNode(ByVal xmlPath As String)
Dim xmlDoc As Object: Set xmlDoc = CreateObject(“MSXML2.DOMDocument.6.0”)
xmlDoc.async = False
xmlDoc.Load xmlPath
‘ ここで特定ノードを削除するロジックを実装
‘ 例: 不安定なカスタムプロパティや破損したレイアウト定義を除去
Dim node As Object
Set node = xmlDoc.SelectSingleNode(“//p:sldLayoutIdLst”)
If Not node Is Nothing Then
node.ParentNode.RemoveChild node
End If
xmlDoc.Save xmlPath
End Sub
—
3. 現場で生き残るための設計上の注意点
この手法を本番環境に投入する際、以下の3点に注意せよ。これが守れないコードは、ただの「爆弾」になる。
① アトミックな操作を徹底せよ
ファイルを直接書き換える以上、処理中にクラッシュすると元ファイルが消失するリスクがある。必ずコピーを作成し、一時ディレクトリで完結させ、最後に上書き保存するトランザクション設計を徹底すること。
② エンコーディングの呪い
OOXMLはUTF-8で記述されている。VBAの標準機能でテキストを読み書きすると、バイトオーダーマーク（BOM）やエンコーディングの差異でXMLが破壊されることがある。XMLの編集には必ず `MSXML2.DOMDocument` を使用し、ノード単位で操作すること。文字列操作で正規表現を使ってはいけない（XMLは正規表現でパースすべきではない）。
③ 管理外の非推奨エリア
`/ppt/embeddings/` や `/ppt/media/` などのバイナリデータには触れてはならない。ここを弄るのは、OSのカーネルをエディタで書き換えるのと同じだ。我々が触れるべきは、あくまで構造を定義する `.xml` と `.rels` ファイルのみである。
—
結論：エンジニアの誇りとして
「PowerPointが動かないから諦める」のは、Excelの数式しか知らない一般ユーザーの仕事だ。我々は、ファイルの中身がどうなっているかを知り、必要であればバイナリすら制御する。
このOOXML直接操作テクニックは、単なる修復ツールにとどまらない。大量のプレゼンテーションから特定のレイアウトを強制置換したり、破損リスクのある古いテンプレートを最新の構造に強制マイグレーションしたりと、「力技」で業務を自動化する最強の武器となる。
さあ、GUIの限界を超えたその先で、自動化の真髄を証明してくれ。
