プレゼンテーションの「墓場」を暴く：VBAによるドキュメント完全サニタイズの極意
PowerPointのファイル形式（.pptx）は、実体としては単なるXMLの集合体であるZIPアーカイブだ。この構造を理解せず、「名前を付けて保存」で済ませているエンジニアは、機密情報の漏洩という時限爆弾を抱えているに等しい。
「ドキュメント検査（Document Inspector）」機能はUI上では便利だが、組織規模の自動化においては単なるおもちゃに過ぎない。我々が求めるのは、外部公開前にメタデータ、コメント、インク注釈、隠しスライドを問答無用で根絶し、メモリ上でクリーンな状態を担保して書き出す「完全なパージ工程」だ。
今回は、GUIを排し、COMインターフェースを直接叩いてPowerPointの深淵を制御するアプローチを伝授する。
—
1. なぜ「手動」ではいけないのか：隠れたリスクの本質
PowerPointの `RemoveDocumentInformation` メソッドは強力だが、これを単に実行するだけでは不十分だ。以下の要因が自動化の障壁となる。
- COMオブジェクトのリーク: `Presentation` オブジェクトを解放し損ねると、バックグラウンドで `POWERPNT.EXE` がゾンビ化し、メモリリークの温床となる。
- 非同期処理の競合: 保存処理中に次のプロセスが走ると、ファイルロックで例外が発生する。
- メタデータの残滓: 検査モジュールによっては、特定のプロパティが維持されるケースがあるため、強制的な破棄ロジックが必要となる。
—
2. 【核心】Document Inspectorのプログラム制御実装
以下は、指定したフォルダ内のファイルを安全な状態へ変換し、専用ディレクトリへ出力する堅牢な実装だ。
Option Explicit
‘ メイン制御関数
Public Sub SanitizeAndExportPresentation(ByVal sourcePath As String, ByVal destPath As String)
Dim pptApp As Object
Dim pptPres As Object
‘ プロセス管理：既存のPowerPointインスタンスを汚染しないよう個別に生成
Set pptApp = CreateObject(“PowerPoint.Application”)
On Error GoTo Cleanup
‘ バイナリ読み込み：読み取り専用で開くことで元のファイルロックを回避
Set pptPres = pptApp.Presentations.Open(sourcePath, True, False, False)
‘ 【重要】ドキュメント検査モジュールの実行
‘ ppRDIComments: コメント
‘ ppRDIInkAnnotations: インク注釈
‘ ppRDIDocumentProperties: ドキュメントプロパティ
‘ ppRDIHiddenSlides: 非表示スライド
With pptPres
.RemoveDocumentInformation ppRDIComments
.RemoveDocumentInformation ppRDIInkAnnotations
.RemoveDocumentInformation ppRDIDocumentProperties
.RemoveDocumentInformation ppRDIHiddenSlides
End With
‘ セキュリティを担保した状態で保存（ppSaveAsOpenXMLPresentation: 24）
pptPres.SaveAs destPath, 24
Cleanup:
‘ オブジェクトの明示的破棄：メモリ解放の鉄則
If Not pptPres Is Nothing Then
pptPres.Close
Set pptPres = Nothing
End If
If Not pptApp Is Nothing Then
pptApp.Quit
Set pptApp = Nothing
End If
If Err.Number <> 0 Then
MsgBox “処理中に致命的なエラーが発生しました: ” & Err.Description, vbCritical
End If
End Sub
—
3. チーフアーキテクトからの警鐘：さらなる高みへ
このコードは基本形に過ぎない。現場で「伝説」を維持するために、以下の最適化を推奨する。
A. ゾンビプロセスの撲滅（Windows APIの活用）
`pptApp.Quit` だけでは、稀にプロセスが残留する。厳密な管理が必要な環境では、`TaskKill` を呼び出すか、PIDを取得して `TerminateProcess` を叩くラッパーを組み込むべきだ。
B. XML構造の直接操作（Open XML SDK）
もし君が、さらに高度な「メタデータの完全抹消」を求めるなら、VBAではなく `.NET (C#) + Open XML SDK` を推奨する。VBAはCOM経由であるため、DOMの操作に限界がある。Open XML SDKを用いれば、ファイルを展開せずに `core.xml` や `app.xml` を直接編集でき、痕跡を1バイトも残さず消し去ることが可能だ。
C. 大規模バッチ処理時のメモリ管理
数千ファイルを一括処理する場合、`DoEvents` を適宜挟み、一定回数ごとに `Application` インスタンスを再起動させろ。VBAのメモリ管理は完全ではない。長時間のループはヒープの断片化を招く。
結び：技術者に求められる矜持
ツールは使うものではなく、飼い慣らすものだ。
「動けばいい」という考えは、セキュリティ事故の入り口となる。今回示したコードは、単なる自動化ツールではない。君が守るべき企業の資産を、技術の力で防壁化するための「盾」だ。
アーキテクトとして、常にオブジェクトの背後にあるメモリ空間を想像せよ。それが、システムを掌握するということだ。
