【破損ファイル対策】Application.Presentations.Openの隠れた引数「CorruptLoad」を活用した、壊れたスライドの安全な一括修復・オープン処理
開発プロジェクトの現場において、PowerPointの自動化ほど「予期せぬエラー」に怯えなければならない領域はない。
何百個ものプレゼンテーションファイルを夜間にバッチ処理している最中、突然現れるあのダイアログボックス――。
> 「申し訳ございません。(ファイル名) には、PowerPointが読み取れない内容が含まれています。」
この瞬間、スクリプトは完全にフリーズし、翌朝出社したときには処理が数ファイルでストップしている。業務効率化ツールとしての信頼性は地に落ちる。
なぜこのエラーでVBAが止まるのか？
それは、多くのエンジニアが `Presentations.Open` のデフォルトの挙動を過信し、PowerPointが持つ「修復オープン」のメカニズムをコードから制御できていないからだ。
今回は、APIの深層に潜む隠し引数 `CorruptLoad` を完全掌握し、破損ファイルを検知・修復してデータ救出を自動化するための、極限まで堅牢なプロダクションコードを伝授する。
—
1. なぜ通常の `Open` メソッドでは破損ファイルを救えないのか？
一般的に、VBAでプレゼンテーションを開く際は次のように記述するだろう。
‘ 【アンチパターン】これでは破損ファイルに出会った瞬間にスクリプトが死亡する
Dim targetPrs As Presentation
Set targetPrs = Application.Presentations.Open(“C:\Data\Broken.pptx”)
このコードの致命的な欠点は、ファイル構造の一部が破損している（あるいはネットワークの微小なパケットロスで不完全な状態で取得された）場合、PowerPointのUIスレッドが「ユーザーに対処を求めるダイアログ」を表示してしまうことだ。
VBAの実行権限はダイアログの裏で完全にロックされ、`On Error GoTo` すらもすり抜けて処理が停止する。
これを回避するためには、「ファイルを開く前に、あるいは開く瞬間に、修復モードを強制指定する」必要がある。
—
2. 救世主：`Presentations.Open` の隠し引数 `CorruptLoad`
Microsoftの公式リファレンスにはサラッとしか書かれていないが、`Application.Presentations.Open` メソッドには、ファイルの読み込みモードを指定する強力な引数が用意されている。
expression.Open(FileName, ReadOnly, Untitled, WithWindow, CorruptLoad)
この最後の引数 `CorruptLoad` こそが、今回の主役である。
`MsoTriState` 型の値を取り、明示的に「破損している可能性を前提とした読み込み」を指示できる。
- `msoTrue`: 可能な限りデータを修復・復旧しながら強制オープンする
- `msoFalse`: 通常オープン（破損していればエラー・ダイアログ）
これを使用することで、UIを介さずにプログラム側で破損ファイルをハンドリングすることが可能になる。
—
3. 【プロダクションコード】安全な一括修復・オープン自動化モジュール
現場でそのまま使える、堅牢なエラーハンドリングと言ログ出力を実装したモジュールを提供する。
指定したフォルダ内の全 `.pptx` を走査し、通常オープンを試みて失敗した場合に自動的に `CorruptLoad:=msoTrue` で再挑戦、修復して別名で保存する設計だ。
Option Explicit
‘ =========================================================================
‘ 業務自動化プロフェッショナル向け 破損ファイル自動修復バッチ処理
‘ =========================================================================
Public Sub BatchRepairAndProcessPresentations()
Dim targetDir As String
targetDir = “C:\PresentationData\” ‘ 処理対象のフォルダパスを指定
If Dir(targetDir, vbDirectory) = “” Then
MsgBox “指定されたフォルダが存在しません。”, vbCritical
Exit Sub
End If
Dim fileName As String
fileName = Dir(targetDir & “.pptx”)
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim successCount As Long, repairCount As Long, failCount As Long
successCount = 0: repairCount = 0: failCount = 0
‘ 画面描画とアラートを停止し、処理速度を極限まで高める
With Application
.ScreenUpdating = False
.DisplayAlerts = ppAlertsNone
End With
Do While fileName <> “”
Dim fullPath As String
fullPath = targetDir & fileName
Dim targetPrs As Presentation
Dim isOpenSuccess As Boolean
isOpenSuccess = False
On Error GoTo ErrorHandler
‘ —————————————————————–
‘ Step 1: 通常オープンを試行 (WithWindow := msoFalse でバックグラウンド処理)
‘ —————————————————————–
Set targetPrs = Application.Presentations.Open( _
FileName:=fullPath, _
ReadOnly:=msoTrue, _
Untitled:=msoFalse, _
WithWindow:=msoFalse, _
CorruptLoad:=msoFalse _
)
isOpenSuccess = True
successCount = successCount + 1
GoTo ProcessData
ErrorHandler:
‘ 通常オープンでエラーが発生した場合のリカバリールート
On Error GoTo 0
If Not isOpenSuccess Then
‘ ————————————————————-
‘ Step 2: 破損ファイルと見なして CorruptLoad で強制オープンを試行
‘ ————————————————————-
On Error GoTo CriticalError
Set targetPrs = Application.Presentations.Open( _
FileName:=fullPath, _
ReadOnly:=msoFalse, _
Untitled:=msoFalse, _
WithWindow:=msoFalse, _
CorruptLoad:=msoTrue _
)
‘ ここに到達できれば修復成功
repairCount = repairCount + 1
Debug.Print “[修復成功] ” & fileName & ” は破損していましたが復旧されました。”
‘ 修復したファイルは安全のため別名で隔離保存する
Dim repairedPath As String
repairedPath = targetDir & “Repaired_” & fileName
targetPrs.SaveAs repairedPath
GoTo ProcessData
CriticalError:
‘ 修復すらも失敗した場合
On Error GoTo 0
failCount = failCount + 1
Debug.Print “[致命的エラー] ” & fileName & ” は完全に破壊されており修復不能です。”
GoTo NextFile
End If
ProcessData:
‘ —————————————————————–
‘ Step 3: 目的のデータ処理（例：全スライドのテキスト抽出や一括変換など）
‘ —————————————————————–
‘ ここに実際の業務ロジックを記述する
‘ 例: Debug.Print targetPrs.Name & ” Slides count: ” & targetPrs.Slides.Count
‘ 開いたプレゼンテーションを閉じる
If Not targetPrs Is Nothing Then
targetPrs.Close
Set targetPrs = Nothing
End If
NextFile:
‘ 次のファイルへ
fileName = Dir()
Loop
CleanUp:
‘ 環境を元に戻す
With Application
.ScreenUpdating = True
.DisplayAlerts = ppAlertsAll
End With
Set fso = Nothing
MsgBox “処理が完了しました。” & vbCrLf & _
“正常: ” & successCount & “件” & vbCrLf & _
“修復: ” & repairCount & “件” & vbCrLf & _
“失敗: ” & failCount & “件”, vbInformation, “バッチ処理完了”
Exit Sub
End Sub
—
4. チーフアーキテクトが教える、実務投入時の重要チェックポイント
このコードを実際のエンタープライズ環境に組み込む際、以下のアーキテクチャ上の注意点を必ず押さえておいてほしい。
① `WithWindow := msoFalse` の徹底
サーバーサイドやバックグラウンドでのバッチ処理において、ウィンドウを表示させる必要は一切ない。ウィンドウを表示させると、万が一ダイアログが出たときにフォーカスが奪われ、他のデスクトップ作業が妨げられるだけでなく、メモリ消費量が増大してCOM例外の原因になる。必ず非表示（`msoFalse`）で処理すること。
② メモリリーク（COMオブジェクトの解放）の防止
VBAにおける `Presentation` オブジェクトや `Shape` オブジェクトは、適切に参照を断ち切らないと背後でメモリリークを引き起こす。ループの各イテレーションの最後には必ず `Set targetPrs = Nothing` を実行し、PowerPointのガベージコレクションを促すこと。
③ ネットワークドライブ（共有フォルダ）上のリスク
破損ファイルの多くは、OneDrive、SharePoint、あるいは社内ファイルサーバーからの読み込み時に発生する。通信の不安定さからファイルが不完全な状態で取得されるケースだ。
もし可能であれば、処理対象のフォルダを一度ローカル環境（`C:\Temp` など）に `FileSystemObject.CopyFile` でコピーしてから、このバッチスクリプトを走らせる方が、トラブル発生率を劇的に下げることができる。
—
総括
「ファイルが壊れていたので止まりました」という報告は、自動化エンジニアとして最も避けるべき醜態だ。
`CorruptLoad:=msoTrue` というAPIの深部を知っていれば、予期せぬ障害すらもシステムの想定内（Error Handlingのフロー内）に組み込むことができる。
泥臭い手動でのファイル修復作業からオペレーターを解放し、完全無人稼働する堅牢なPowerPoint自動化基盤を、あなたの手で構築してほしい。
