【PowerPoint VBA】Presentation.Name の拡張子を安全に剥ぎ取る：実務の「例外」に耐える堅牢なファイル名整形テクニック
自動化ツールを開発する際、多くの初心者が最初に直面し、そして高確率でバグを埋め込むポイントがあります。それが「ファイル名（文字列）の操作」です。
PowerPointでのスライド作成自動化や、PDF・画像への一括エクスポートツールを構築するとき、元となるプレゼンテーションのファイル名（`Presentation.Name`）から拡張子（`.pptx` や `.pptm`）を取り除き、`「元ファイル名_マクロ出力.pdf」`といった名前で保存する処理は、基本中の基本です。
しかし、ネットで見かける単純なコードをコピペして実務に投入すると、ある日突然、エラーや予期せぬファイル名の欠損でシステムが停止します。
本記事では、世界基準の業務自動化を設計するアーキテクトの視点から、「なぜあなたの文字列操作は壊れるのか」を論理的に解き明かし、実務のあらゆる例外（未保存ファイル、複数ドット、異なる拡張子など）を完全にねじ伏せる、極めて堅牢なVBA実装テクニックを伝授します。
—
1. 牙をむくアンチパターン：なぜ「安易な切り出し」は破綻するのか？
まずは、実務で絶対に書いてはいけない、破綻前提のアンチパターンを2つ紹介します。
アンチパターン①：文字数固定による切り出し
‘ ［最悪のコード例］末尾5文字（.pptx）を問答無用で削る
Dim baseName As String
baseName = Left(ActivePresentation.Name, Len(ActivePresentation.Name) – 5)
このコードの致命的な欠陥は、「拡張子の長さが常に5文字（ドット含む）である」と盲信している点です。
PowerPointの拡張子は多岐にわたります。
- `.pptx` （5文字）
- `.ppt` （4文字）
- `.pptm` （5文字）
- `.ppsx` （5文字）
もしユーザーが古い `.ppt` ファイルを開いてこのマクロを実行した場合、末尾の1文字（ファイル名自体の最後の文字）まで余計に削り取られてしまいます。逆に、未保存の新規プレゼンテーション（拡張子なし）だった場合、`Len`が5以下であれば実行時エラーで強制終了します。
アンチパターン②：単純な `Replace` によるドット置換
‘ ［危険なコード例］「.pptx」を空文字に置換する
Dim baseName As String
baseName = Replace(ActivePresentation.Name, “.pptx”, “”)
このコードは、ファイル名が `2024_project.pptx.pptx` のような奇妙な名前だった場合や、ファイル名の中に偶然 `.pptx` という文字列が含まれていた場合（例：`my.pptx_v2.pptx`）、意図しない中間部分まで消去してしまいます。
—
2. 堅牢性を極める2つのアプローチ
実務で「絶対にバグを起こさない」ためには、以下のいずれかのアプローチを採用する必要があります。
アプローチA：`InStrRev` 関数による「右側からのドット探索」
VBAの標準関数である `InStrRev`（In-String Reverse）は、文字列の末尾（右側）から左に向かって特定の文字を検索する関数です。
ファイル名において、拡張子の開始を表すドット（`.`）は必ず「最も右側にあるドット」です。ファイル名の中に `Ver.1.2_Proposal.pptx` のように複数のドットが含まれていても、`InStrRev` を使えば、拡張子の境界線である最後のドットを正確に特定できます。
アプローチB：`FileSystemObject`（FSO）によるオブジェクト操作
Windowsのファイルシステムに備わっている `Scripting.FileSystemObject` の `GetBaseName` メソッドを利用する方法です。
文字列操作コードを自前で書く必要が一切なく、OSの基準で「ファイル名から安全に拡張子を除去した文字列」を返してくれます。コードの可読性と保守性は劇的に向上します。
—
3. 実戦仕様のプロダクションコード
それでは、実務にそのままコピペして導入できる、堅牢極まりないVBAコードを示します。
このコードは、以下の「実務の例外」をすべて織り込み、安全にハンドリングします。
1. ファイルが未保存状態の場合（`Presentation.Path` が空、拡張子が存在しない）
2. ファイル名に複数のドットが含まれる場合
3. 拡張子の長さが異なる場合（`.ppt` / `.pptx` / `.pptm`）
4. 出力先フォルダが存在しない場合の自動生成
【プロダクションコード】PDF自動エクスポートマクロ
Option Explicit
”’
”’
Public Sub ExportToPDFWithSafeName()
Dim pptDoc As Presentation
Set pptDoc = ActivePresentation
‘ 1. 未保存ファイル（新規プレゼンテーション）のハンドリング
If pptDoc.Path = “” Then
MsgBox “このプレゼンテーションは保存されていません。” & vbCrLf & _
“一度ファイルを保存してから実行してください。”, vbExclamation, “実行キャンセルの警告”
Exit Sub
End If
‘ 2. 拡張子を除去したベース名の取得（InStrRev方式）
Dim rawName As String
Dim baseName As String
Dim dotPosition As Long
rawName = pptDoc.Name
dotPosition = InStrRev(rawName, “.”)
‘ 安全弁：万が一ドットが見つからなかった場合（あり得ないが堅牢性のために定義）
If dotPosition > 0 Then
baseName = Left(rawName, dotPosition – 1)
Else
baseName = rawName
End If
‘ 3. 出力ファイル名の組み立て（接尾辞として日付と出力を追加）
Dim timestamp As String
timestamp = Format(Now, “yyyymmdd_hhnnss”)
Dim pdfFileName As String
pdfFileName = baseName & “_マクロ出力_” & timestamp & “.pdf”
‘ 4. 出力パスの結合（カレントディレクトリ、または任意のフォルダ）
Dim outputFolder As String
outputFolder = pptDoc.Path & Application.PathSeparator & “PDF_Output”
‘ フォルダが存在しない場合は自動作成（FSOを利用）
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FolderExists(outputFolder) Then
On Error Resume Next
fso.CreateFolder (outputFolder)
If Err.Number <> 0 Then
MsgBox “出力フォルダの作成に失敗しました。” & vbCrLf & _
“パスを確認してください: ” & outputFolder, vbCritical, “システムエラー”
Set fso = Nothing
Exit Sub
End If
On Error GoTo 0
End If
Dim finalOutputPath As String
finalOutputPath = outputFolder & Application.PathSeparator & pdfFileName
‘ 5. PowerPoint標準機能によるPDFエクスポートの実行
On Error GoTo Err_Export
pptDoc.ExportAsFixedFormat _
Path:=finalOutputPath, _
FixedFormatType:=ppFixedFormatTypePDF, _
Intent:=ppFixedFormatIntentPrint, _
FrameSlides:=msoTrue
MsgBox “PDFのエクスポートが正常に完了しました。” & vbCrLf & _
“保存先: ” & finalOutputPath, vbInformation, “処理完了”
Set fso = Nothing
Exit Sub
Err_Export:
MsgBox “PDFのエクスポート中にエラーが発生しました。” & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “実行エラー”
Set fso = Nothing
End Sub
【解説】このコードが「プロ仕様」である理由
1. `ActivePresentation.Path = “”` の検知:
未保存のプレゼンテーションでマクロを実行した場合、保存先が存在しないため必ず失敗します。これを初期段階でトラップし、ユーザーに親切なダイアログを表示して処理を安全に終了（Early Exit）させています。
2. `InStrRev(rawName, “.”)` による正確な位置特定:
右側から最初に現れるドットの位置を特定するため、`Ver.1.2_Document.pptx` のようなファイル名であっても、`Ver.1.2_Document` という正しいベース名だけを完璧に切り出します。
3. タイムスタンプの付与:
実務で自動書き出しを行う際、同名ファイルが存在すると「上書きエラー」や「警告ダイアログによる処理停止」が発生します。`yyyymmdd_hhnnss`（時分秒までカバー）を付与することで、ファイル名の衝突を物理的に回避しています。
4. フォルダ自動生成ロジック:
「保存用フォルダがないからエラーで落ちる」という無様なバグを排除するため、`FileSystemObject` を用いて、保存先フォルダの有無を確認し、存在しなければその場で自動生成しています。
—
4. アーキテクトの視点：ファイルシステム連携時の「鉄則」
さらに高度なツールに進化させるために、設計者として考慮すべき2つの鉄則を共有します。
① 禁止文字（サニタイズ）の考慮
ユーザーは、OSがファイル名として禁止している文字（`\ / : ? ” < > |`）を、スライドのタイトルなどから引用してファイル名にしようとすることがあります。
もしスライドタイトルをファイル名に流用する場合は、必ずこれらの文字をアンダースコア（`_`）等に置換するサニタイズ関数を噛ませてください。
‘ スライドタイトル等からファイル名を作る際のサニタイズ関数
Private Function SanitizeFileName(ByVal fileName As String) As String
Dim invalidChars As Variant
invalidChars = Array(“\”, “/”, “:”, “”, “?”, “”””, “<", ">“, “|”)
Dim i As Long
For i = LBound(invalidChars) To UBound(invalidChars)
fileName = Replace(fileName, invalidChars(i), “_”)
Next i
SanitizeFileName = fileName
End Function
② `Application.PathSeparator` の一貫性
パスを結合する際、`”\”` を直接ハードコード（`folder & “\” & file`）するのではなく、`Application.PathSeparator` を使用する癖をつけてください。これは、将来的なマルチプラットフォーム対応や、コードの可読性を「プロレベル」に保つための標準的な作法です。
—
5. まとめ
ファイル名から拡張子を取り除くという、一見すると些細な処理。
しかし、ここに開発者の「設計思想」と「品質へのこだわり」がすべて凝縮されています。
- 文字数固定での切り出しは絶対に避ける。
- `InStrRev` で右側からドットを探索するか、`FileSystemObject` を活用する。
- 未保存状態や同名ファイルの上書き衝突など、実務の「想定外」を事前に潰す。
これらを徹底するだけで、あなたの作成するVBAツールの信頼性は跳ね上がり、社内やクライアントからの評価は「動けばいいだけの素人マクロ」から「業務を支える堅牢なシステム」へと昇華します。ぜひ、今日の開発からこの設計思想を取り入れてみてください。
