PowerPoint VBAにおける最大の隠れた地雷——それは、ユーザーが無意識に入力する「ファイル名に含まれる禁止文字」だ。
「ファイル名の付け方に気を付けてください」というマニュアルや口頭での注意喚起は、システム開発の現場においては無力に等しい。ユーザーは必ず、半角の`?`、`\`、`/`、あるいは環境依存文字や制御文字を混ぜ込んでプレゼンテーションを作成する。
その結果どうなるか？
`Presentation.SaveAs` や `Presentation.ExportAsFixedFormat`（PDF出力）の実行時、VBAは冷酷に「実行時エラー ‘-2147024809 (80070057)’: 指定されたファイル名が無効です」を吐き出し、深夜残業中の自動化バッチを無残に停止させる。
今回は、このトラブルを完全に根絶するための「ファイル名サニタイズ＆堅牢PDFエクスポート・アーキテクチャ」を伝授する。妥協のないプロダクションコードを提示しよう。
—
1. なぜ「その場のエラー処理」では不十分なのか
素人プログラマブルなコードは、次のようなアプローチを取りがちだ。
‘ 【アンチパターン】エラーが起きてからキャッチしようとする甘い設計
On Error Resume Next
ActivePresentation.SaveAs “C:\Data\” & ActivePresentation.Name
If Err.Number <> 0 Then
MsgBox “保存できませんでした”
End If
On Error GoTo 0
これは最悪の設計だ。なぜなら、
1. 根本的な解決になっていない（ファイル名が不正なままなので結局保存できない）。
2. ログが残らない、あるいはユーザーに原因が正しく伝わらない。
3. PDF出力（`ExportAsFixedFormat`）の段階では、ファイルパスのバリデーションがより厳格であり、VBAのエラーハンドリングをすり抜けてPowerPoint自体が不安定になるケースすらある。
プロのエンジニアの鉄則は「入力の厳密な統制（サニタイズ）と事前バリデーション」である。
出力処理を走らせる前に、ファイル名文字列を外科手術の如くクレンジングし、OS（Windows）が確実に受け入れられる状態に調停しなければならない。
—
2. Windowsファイル名のダークマター（禁止文字とトラップ）
Windowsのファイルシステム（NTFS等）およびPowerPointのCOMオブジェクトが拒絶する文字・文字列は以下の通りだ。これらを正規表現（Regular Expressions）または置換関数で完全に無力化する。
1. 厳禁文字（禁止文字）: `\`, `/`, `:`, “, `?`, `”`, `<`, `>`, `|`
2. 制御文字・不可視文字: タブ、改行、ゼロ幅スペースなど
3. 末尾の罠: ファイル名の末尾の「ドット（`.`）」や「スペース（` `）」は、Windowsの仕様上トラブルの元になるため除去・トリムが必要。
4. 予約デバイス名: `CON`, `PRN`, `AUX`, `NUL`, `COM1`〜`9`, `LPT1`〜`9`（これらをファイル名にするとOSレベルで拒絶される）
—
3. 【プロダクションコード】堅牢サニタイズ＆PDF変換モジュール
以下のコードは、アクティブなプレゼンテーションのタイトル（またはファイル名）から安全な文字列を動的に生成し、指定パスへ確実に出力するためのものだ。
標準モジュールに貼り付けて即座に利用できる。VBAの正規表現エンジン（`VBScript.RegExp`）を使用するため、高度かつ柔軟な置換が可能だ。
Option Explicit
‘ ==============================================================================
‘ 処理名 : ExportPresentationSafely
‘ 概要 : ファイル名に含まれる禁止文字を自動サニタイズし、安全にPDF出力・保存を行う
‘ 著者 : 業務自動化アーキテクト
‘ ==============================================================================
Public Sub ExportPresentationSafely()
Dim targetPres As Presentation
Set targetPres = ActivePresentation
‘ 1. 保存先ディレクトリの定義（環境に合わせて変更してください）
Dim outputDir As String
outputDir = “C:\PresentationOutput\”
‘ ディレクトリが存在しない場合は自動生成する堅牢性
If Dir(outputDir, vbDirectory) = “” Then
MkDir outputDir
End If
‘ 2. ベースとなるファイル名の取得（拡張子を除いた部分）
Dim rawFileName As String
rawFileName = GetBaseFileName(targetPres)
‘ 3. 【最重要】ファイル名のサニタイズ（特殊文字・禁止文字の無力化）
Dim safeFileName As String
safeFileName = SanitizeFileName(rawFileName)
‘ 万が一、すべてが置換されて空文字列になった場合のフォールバック
If Len(safeFileName) = 0 Then
safeFileName = “Presentation_” & Format(Now, “yyyymmdd_hhnnss”)
End If
‘ 4. フルパスの構築
Dim pdfFullPath As String
pdfFullPath = outputDir & safeFileName & “.pdf”
‘ 5. トランザクション的なエラー監視下でのPDFエクスポート実行
On Error GoTo ErrorHandler
‘ PDF出力実行（高品質印刷設定）
targetPres.ExportAsFixedFormat _
Path:=pdfFullPath, _
FixedFormatType:=ppFixedFormatTypePDF, _
Intent:=ppFixedFormatIntentPrint, _
FrameSlides:=msoTrue, _
HandoutOrder:=ppPrintHandoutVerticalFirst, _
OutputType:=ppPrintOutputSlides, _
PrintHiddenSlides:=msoFalse, _
Range:=ppPrintAll
MsgBox “PDFのエクスポートが正常に完了しました。” & vbCrLf & _
“保存先: ” & pdfFullPath, vbInformation, “処理成功”
Exit Sub
ErrorHandler:
‘ 予期せぬ例外のキャッチとクリーンな通知
MsgBox “致命的なエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“詳細: ” & Err.Description, vbCritical, “エクスポート失敗”
End Sub
‘ ==============================================================================
‘ 内部関数: プレゼンテーション名、または最初のスタイルのタイトルからファイル名候補を取得
‘ ==============================================================================
Private Function GetBaseFileName(pres As Presentation) As String
Dim baseName As String
‘ パスが未保存（新規作成直後など）の場合は名前から拡張子を取る
If pres.Path = “” Then
baseName = pres.Name
If InStr(baseName, “.”) > 0 Then
baseName = Left(baseName, InStrRev(baseName, “.”) – 1)
End If
Else
‘ すでに保存されている場合は現在のファイル名ベース
baseName = pres.Name
If InStr(baseName, “.”) > 0 Then
baseName = Left(baseName, InStrRev(baseName, “.”) – 1)
End If
End If
GetBaseFileName = baseName
End Function
‘ ==============================================================================
‘ 内部関数: 正規表現を用いてファイル名として不適切な文字を完全に排除・置換する
‘ ==============================================================================
Private Function SanitizeFileName(ByVal inputName As String) As String
Dim regEx As Object
Set regEx = CreateObject(“VBScript.RegExp”)
‘ 1. Windowsファイル名禁止文字 (\ / : ? ” < > |) をアンダースコア “_” に置換
regEx.Pattern = “[\\/:\\?\””<>\|]”
regEx.Global = True
inputName = regEx.Replace(inputName, “_”)
‘ 2. 全角スペースや制御文字、タブなどを半角スペースに、または削除
regEx.Pattern = “[\s ]+”
regEx.Global = True
inputName = regEx.Replace(inputName, “_”)
‘ 3. 連続するアンダースコアを単一化
regEx.Pattern = “_+”
regEx.Global = True
inputName = regEx.Replace(inputName, “_”)
‘ 4. 前後のドットやスペース、アンダースコアをトリム（Windowsの仕様対策）
inputName = Trim(inputName)
Do While Left(inputName, 1) = “_” Or Left(inputName, 1) = “.”
inputName = Mid(inputName, 2)
Loop
Do While Right(inputName, 1) = “_” Or Right(inputName, 1) = “.”
inputName = Left(inputName, Len(inputName) – 1)
Loop
‘ 5. Windows予約デバイス名のチェック（CON, PRN, AUX, NUL 等）
Select Case UCase(inputName)
Case “CON”, “PRN”, “AUX”, “NUL”, _
“COM1”, “COM2”, “COM3”, “COM4”, “COM5”, “COM6”, “COM7”, “COM8”, “COM9”, _
“LPT1”, “LPT2”, “LPT3”, “LPT4”, “LPT5”, “LPT6”, “LPT7”, “LPT8”, “LPT9”
inputName = “_” & inputName
End Select
SanitizeFileName = inputName
End Function
—
4. コードのアーキテクチャ解説：なぜこの設計なのか？
① `VBScript.RegExp` による網羅的なパターンマッチング
`Replace`関数を何重にも入れ子にする泥臭いコードは保守性を下げる。正規表現を用いることで、「Windowsが嫌う文字クラス」を一網打尽に捕捉し、安全な文字（`_`）へ置換している。
② ファイル名の末尾・先頭の「ドット・スペース」のパージ
Windowsのファイルシステムは、ファイル名の末尾にドットやスペースがあるファイルを作成しようとするとエラーを返すか、予期せぬ挙動を示す。ループ処理を用いたトリム機構（ステップ4）により、この隠れた地雷を完全に踏まないようにしている。
③ 予約デバイス名（`CON` など）のガード
もしユーザーが「Con.pptx」というプレゼンテーションを作成してPDF化しようとした場合、Windowsの予約語制限によりOSレベルで保存が拒絶される。ステップ5の `Select Case` によるガードは、高度なエンタープライズ環境でこそ真価を発揮する配慮である。
—
5. チーフアーキテクトからの提言
自動化スクリプトの価値は、「正常系の美しさ」ではなく、「異常系（ユーザーのうっかり）に対する強靭さ」で決まる。
今回紹介したサニタイズロジックを共通モジュール（クラスまたは標準モジュール）として組み込んでおけば、PDF変換だけでなく、SharePointやOneDriveへの自動アップロード、メール添付自動化といったあらゆる拡張プロセスにおいて、ファイル名起因のエラーを永久にゼロにすることができる。
あなたの管理するVBAプロジェクトを、今日から「エラーで止まらない堅牢なシステム」へ進化させよう。
