こんにちは！現場のトラブルをスマートに解決する、あなたの専属アーキテクトです。
PowerPointで作成した資料を「さあ、PDFに一括変換しよう！」と意気込んでマクロを走らせた瞬間、冷酷なエラーダイアログが画面に現れて絶望した経験はありませんか？
原因の多くは、ファイル名に含まれている「Windowsが嫌う禁止文字」や「環境依存文字（特殊記号や絵文字など）」です。人間にとってはただの文字でも、OSのファイルシステムにとっては「予期せぬ破壊工作」に見えてしまうため、容赦なく処理を止めてしまいます。
今回は、そんな現場の悲鳴を根絶するため、「ファイル名の危険因子をVBAが自ら検知し、安全な文字へと自動サニタイズ（無害化）したうえで、完璧に保存・PDF変換をやり遂げる堅牢なスクリプト」を伝授します。
ここをクリアすれば、あなたのVBAスキルは「動くだけの初級者」から「実務で頼られる中級者」へ確実にステップアップします。さあ、一緒に本質を学んでいきましょう！
—
なぜ、ファイル名の文字でエラーが起きるのか？
Windowsのファイルシステム（NTFSなど）では、ファイル名に使用できる文字に厳格なルールがあります。以下の文字が含まれていると、VBAの `SaveAs` や `ExportAsFixedFormat` メソッドはパニックを起こします。
- 絶対にご法度な半角記号： `\` `/` `:` “ `?` `”` `<` `>` `|`
- トラブルメーカーな仲間たち： 全角スペース、制御文字、環境依存文字（機種依存文字）
これらを人力でチェックするのは、広大な砂漠で落とし物を探すようなものです。だからこそ、「マクロの入口で、ファイル名を完全に浄化するフィルター」をプログラムに組み込む必要があります。
—
【実戦投入コード】完全サニタイズ＆安全PDF変換マクロ
以下のコードを、PowerPointのVBAエディタ（Alt + F11）の標準モジュールに貼り付けてください。実務でそのまま使える最高峰の防御力を備えています。
Option Explicit
Sub ExportToPdfSafely()
‘ =====================================================================
‘ 処理名: ファイル名の危険文字を自動サニタイズし、安全にPDF変換・保存を行うマクロ
‘ アーキテクトノート: 予期せぬOSエラーを防ぐため、文字列の洗浄とパスの結合を厳密に行います。
‘ =====================================================================
Dim targetPres As Presentation
Set targetPres = ActivePresentation
‘ 1. プレゼンテーションが未保存（新規作成のままなど）の場合はパスがないためチェック
If targetPres.Path = “” Then
MsgBox “このプレゼンテーションは一度も保存されていません。” & vbCrLf & _
“まずは任意の場所へ名前を付けて保存してから実行してください。”, vbExclamation, “保存エラー”
Exit Sub
End If
‘ 2. 拡張子を除いたファイル名を取得
Dim originalName As String
originalName = GetFileNameWithoutExtension(targetPres.Name)
‘ 3. 【最重要】ファイル名のサニタイズ（危険文字の置換・除去）
Dim safeName As String
safeName = SanitizeFileName(originalName)
‘ サニタイズ前後で名前が変わった場合は、ユーザーに優しく通知
If originalName <> safeName Then
MsgBox “【文字コード制御の通知】” & vbCrLf & _
“ファイル名に含まれる使用不可文字を自動検知しました。” & vbCrLf & vbCrLf & _
“変更前: ” & originalName & vbCrLf & _
“変更後: ” & safeName, vbInformation, “自動サニタイズ実行”
End If
‘ 4. 保存先パスの構築（元のファイルと同じ階層にPDFを出力）
Dim pdfPath As String
pdfPath = targetPres.Path & Application.PathSeparator & safeName & “.pdf”
‘ 5. エラーハンドリングを伴うPDFエクスポート実行
On Error GoTo ErrorHandler
targetPres.ExportAsFixedFormat _
Path:=pdfPath, _
FixedFormatType:=ppFixedFormatTypePDF, _
Intent:=ppFixedFormatIntentPrint, _
FrameSlides:=msoTrue, _
Range:=ppPrintAll
MsgBox “PDFの変換が正常に完了しました！” & vbCrLf & “保存先: ” & pdfPath, vbInformation, “処理成功”
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“内容: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
‘ ———————————————————————
‘ 補助関数1: 拡張子を除いたファイル名を取り出す
‘ ———————————————————————
Private Function GetFileNameWithoutExtension(ByVal fullName As String) As String
Dim dotPos As Long
dotPos = InStrRev(fullName, “.”)
If dotPos > 0 Then
GetFileNameWithoutExtension = Left(fullName, dotPos – 1)
Else
GetFileNameWithoutExtension = fullName
End If
End Function
‘ ———————————————————————
‘ 補助関数2: 禁止文字・環境依存の芽を摘み取るサニタイズエンジン
‘ ———————————————————————
Private Function SanitizeFileName(ByVal inputStr As String) As String
Dim result As String
result = inputStr
‘ ① Windowsファイルシステムで絶対に許されない半角記号を全角やアンダーバーへ置換
‘ \ / : ? ” < > |
result = Replace(result, “\”, “￥”)
result = Replace(result, “/”, “／”)
result = Replace(result, “:”, “：”)
result = Replace(result, “”, “＊”)
result = Replace(result, “?”, “？”)
result = Replace(result, “”””, “＂”) ‘ ダブルクォーテーション
result = Replace(result, “<", "＜")
result = Replace(result, ">“, “＞”)
result = Replace(result, “|”, “｜”)
‘ ② トラブルを起こしやすい全角スペースを半角スペース（または除去）へ
result = Replace(result, “ ”, ” “)
‘ ③ 前後の不要なスペースをトリム（綺麗に整える）
result = Trim(result)
‘ ④ 万が一、名前が空になってしまった場合のフェイルセーフ
If result = “” Then
result = “Presentation_Default”
End If
SanitizeFileName = result
End Function
—
コードの核心：プロが仕込んだ「3つのこだわり」
ただ動くだけのコードなら誰でも書けます。しかし、現場で壊れないコードには理由があります。このスクリプトに込めた設計思想を解説します。
1. `InStrRev` と `Left` による正確なファイル名抽出
ファイル名から拡張子（`.pptx`など）を剥ぎ取る際、左側から探す `InStr` を使うと、ファイル名の中にドットが含まれていた場合に誤作動を起こします。右側から逆向きに検索する `InStrRev` を使うことで、どんなファイル名であっても確実に拡張子手前でスパッと切り落とすことができます。
2. 置換（サニタイズ）の哲学：「消す」より「置き換える」
禁止文字を単に `Replace(…, “”, …)` で消し去ってしまうと、ファイル名が「___」だらけになったり、極端な場合「空っぽ」になって保存エラーを引き起こします。
ここでは、「半角の危険な記号を、安全な全角の同等文字（例: `:` を `：` に）」にマッピングするという、スマートな置換方式を採用しています。これにより、元のファイル名の意図（文脈）を最大限に維持できます。
3. フェイルセーフ（安全装置）の完備
もしユーザーがファイル名に禁止文字しか入力していなかった場合、サニタイズ後の文字列が「空（長さ0）」になってしまいます。これをそのままOSに渡すと致命的なエラーになります。
コード内の `If result = “” Then result = “Presentation_Default”` という記述が、最後の一線を守る強力な防壁として機能します。
—
陥りやすい罠とアドバイス
- 「未保存」の恐怖を忘れない:
PowerPointが開かれていても、一度も「名前を付けて保存」されていない状態（プレゼンテーション名が「プレゼンテーション1」などの初期値）では、`Pres.Path` は空欄（””）を返します。この状態でファイルパスを結合しようとすると、実行時エラー52（ファイル名または番号が不正です）が発生します。今回のコードでは、先頭でしっかりとこのバリデーション（事前チェック）を行っているので安心です。
—
まとめ：ここをクリアすればPowerPoint VBAは怖くない！
今回は、ファイル名の文字コード制御という、一歩踏込んだ実務的なテーマを解説しました。
- OSが嫌う文字を把握し、事前に `Replace` で全角等へクレンジングする
- ファイル名がない、空になるなどの「例外」を想定して防御（フェイルセーフ）する
- エラーが起きたときのために `On Error GoTo` で優しく捕捉する
この3つのポイントさえ押さえておけば、あなたが書くマクロは、どんなユーザーがどんなめちゃくちゃなファイル名で使おうとも、決して弱音を吐かない「超・堅牢な自動化ツール」へと生まれ変わります。
明日からの業務効率化に、ぜひこの知見を役立ててくださいね。あなたのVBAライフを、私はいつでも応援しています！
