【PowerPoint VBA】上書き恐怖からの解放。世代管理を完全自動化するスマート保存ロジックの極意
開発現場でプレゼン資料の修正を繰り返すうち、気づけばデスクトップには `案3_最終_修正版_本当に最後.pptx` のような、見るだけで冷や汗が出るファイルが乱立する――。
あなたも、そんな「バージョン管理の混乱」に絶望した経験はないだろうか。
手動でのファイル命名は、ヒューマンエラーの温床だ。上書き保存ミスによるデータ消失を防ぎ、かつ無駄なゴミファイルを生まないためには、VBAによる動的な世代管理（バージョニング）を仕組み化するほかない。
今回は、世界最高峰の自動化アーキテクトである私が、PowerPoint VBAにおける堅牢なファイル保存の極意と、実務の現場でそのまま稼働するプロダクションコードを伝授する。
—
なぜ「単純な上書き保存」や「手動リネーム」は破綻するのか？
多くの初級・中級プログラマブルな実務者がやりがちなのが、`ActivePresentation.SaveAs` を安易に叩くコードだ。しかし、これには致命的な欠陥がある。
1. 同名ファイルの爆発（Collision）： 競合チェックを行わない保存は、過去の成果物を容赦なく上書き破壊する。
2. タイムスタンプの限界： ファイル名に `20231025_1430.pptx` のように日時を付与する方法は、短時間に複数回保存した際に重複し、結局一意性を保てなくなる。
3. カレントディレクトリの罠： PowerPointの `ActivePresentation.Path` は、ファイルが未保存の状態（新規作成直後など）では空文字列を返し、予期せぬエラー（実行時エラー ’52’: ファイル名または番号が不正です）を引き起こす。
真にプロフェッショナルなマクロとは、「保存先フォルダの物理状態をスキャンし、既存のバージョン番号を解析した上で、アトミックかつ安全に次の世代番号を割り出す」ものでなければならない。
—
世代管理スマート保存のアーキテクチャ設計
今回構築するマクロの仕様は以下の通りだ。
- ベース名の維持： ユーザーが定めたベース名（例: `Proposal_ProjectA`）を維持する。
- 日付の自動付与： 命名規則に今日の日付（`YYYYMMDD`）を組み込む。
- インクリメント機構： 同日の同名ファイルが既に存在する場合、ファイル名末尾のバージョンサフィックス（`v1.0`, `v1.1`…）を正規表現または文字列操作で解析し、自動で繰り上げ（`v1.2`）を行う。
- 未保存ガード： 一度も保存されていないプレゼンテーションを検知した場合、デフォルトの保存先（またはデスクトップ）へと安全に誘導する。
—
【実戦投入コード】完全版プロダクションコード
以下のコードをVBAエディタの標準モジュールに貼り付けてほしい。実務での耐障害性を考慮し、エラーハンドリングとファイルシステムオブジェクト（FSO）を駆使した堅牢な実装に仕上げている。
Option Explicit
‘================================================================================
ニッチなエラーを完全封じ込め：世代管理自動保存プロシージャ
アーキテクト設計思想: FileSystemObjectによる安全なパス解決とバージョンインクリメント
================================================================================
Public Sub SaveWithSmartVersioning()
Dim targetPres As Presentation
Set targetPres = ActivePresentation
‘ 1. 未保存ドキュメントのガード処理
If targetPres.Path = “” Then
MsgBox “このプレゼンテーションはまだ一度も保存されていません。” & vbCrLf & _
“一度手動で任意の場所に保存してから実行してください。”, vbExclamation, “スマート保存 – 中断”
Exit Sub
End If
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim originalPath As String, folderPath As String, baseName As String, ext As String
originalPath = targetPres.FullName
folderPath = targetPres.Path & “\”
ext = “.” & fso.GetExtensionName(originalPath)
‘ 拡張子を除いたファイル名を取得（例: “Proposal_ProjectA_v1.0” から バージョン部分を剥がす前処理）
Dim rawBaseName As String
rawBaseName = fso.GetBaseName(originalPath)
‘ すでに付与されている可能性のあるバージョンサフィックス（_vX.X）を除去して「真のベース名」を抽出
Dim cleanBaseName As String
cleanBaseName = ExtractCleanBaseName(rawBaseName)
‘ 2. 本日の日付文字列を取得 (YYYYMMDD形式)
Dim dateStr As String
dateStr = Format(Date, “yyyymmdd”)
‘ 3. 保存先フォルダを走査し、次のバージョン番号を決定する
Dim nextVersion As String
nextVersion = DetermineNextVersion(folderPath, cleanBaseName, dateStr, ext, fso)
‘ 4. 新しいファイル名の組み立て
‘ 命名規則: [ベース名]_[YYYYMMDD]_v[バージョン].[拡張子]
Dim newFileName As String
newFileName = cleanBaseName & “_” & dateStr & “_v” & nextVersion & ext
Dim fullSavePath As String
fullSavePath = folderPath & newFileName
‘ 5. エラーハンドリングを伴う保存実行
On Error GoTo ErrorHandler
‘ アクティブプレゼンテーションを別名で保存（コピーではなく新規世代として保存）
targetPres.SaveAs fullSavePath
On Error GoTo 0
‘ 完了通知（実務ではトースト通知やステータスバー表示に置き換えても良い）
MsgBox “世代管理保存が完了しました。” & vbCrLf & _
“保存先: ” & fullSavePath, vbInformation, “スマート保存 – 成功”
Exit Sub
ErrorHandler:
MsgBox “保存中に予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“詳細: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
‘================================================================================
ヘルパー関数: 既存のファイル群から最大のバージョン番号を算出し、インクリメントする
================================================================================
Private Function DetermineNextVersion(ByVal folderPath As String, ByVal baseName As String, ByVal dateStr As String, ByVal ext As String, ByRef fso As Object) As String
Dim targetFolder As Object
Set targetFolder = fso.GetFolder(folderPath)
Dim fileItem As Object
Dim maxMajor As Integer, maxMinor As Integer
maxMajor = 1
maxMinor = 0
Dim prefixPattern As String
prefixPattern = baseName & “_” & dateStr & “_v”
Dim fileName As String
Dim versionPart As String
Dim vParts() As String
‘ フォルダ内のファイルをループし、同日・同ベース名のファイルを走査
For Each fileItem In targetFolder.Files
fileName = fileItem.Name
‘ 命名規則に一致するもの群を対象とする
If Left(fileName, Len(prefixPattern)) = prefixPattern And _
LCase(Right(fileName, Len(ext))) = LCase(ext) Then
‘ バージョン部分の切り出し (例: “Proposal_20231025_v1.2.pptx” -> “1.2”)
versionPart = Mid(fileName, Len(prefixPattern) + 1, Len(fileName) – Len(prefixPattern) – Len(ext))
If InStr(versionPart, “.”) > 0 Then
vParts = Split(versionPart, “.”)
If IsNumeric(vParts(0)) And IsNumeric(vParts(1)) Then
Dim maj As Integer, min As Integer
maj = CInt(vParts(0))
min = CInt(vParts(1))
‘ 最大のバージョンを特定（メジャー優先、次にマイナー）
If maj > maxMajor Or (maj = maxMajor And min > maxMinor) Then
maxMajor = maj
maxMinor = min + 1 ‘ 次のマイナーバージョンへインクリメント
If maxMinor >= 10 Then ‘ 10を超えたらメジャーを繰り上げる簡易ロジック
maxMajor = maxMajor + 1
maxMinor = 0
End If
End If
End If
End If
End If
Next fileItem
‘ 初回、あるいは該当ファイルがない場合は “1.0” を返す
If maxMajor = 1 And maxMinor = 0 Then
‘ フォルダ内に同日のファイルがまだないかチェック
Dim exactMatchPath As String
exactMatchPath = folderPath & baseName & “_” & dateStr & “_v1.0” & ext
If fso.FileExists(exactMatchPath) Then
maxMinor = 1 ‘ 1.0が既にあれば 1.1 にする
End If
End If
DetermineNextVersion = maxMajor & “.” & maxMinor
End Function
‘================================================================================
ヘルパー関数: 既存ファイル名から過去のバージョンサフィックスを除去する
================================================================================
Private Function ExtractCleanBaseName(ByVal rawName As String) As String
‘ “_vX.X” のようなパターンを末尾から検知して削ぎ落とす
Dim pos As Long
pos = InStrRev(rawName, “_v”)
If pos > 0 Then
‘ _v 以降がバージョン表記（数字とドットのみ）であるか簡易検証
Dim suffix As String
suffix = Mid(rawName, pos + 2)
If LikeString(suffix, “#.#”) Or LikeString(suffix, “#”) Then
ExtractCleanBaseName = Left(rawName, pos – 1)
Exit Function
End If
End If
ExtractCleanBaseName = rawName
End Function
‘================================================================================
簡易パターンマッチ関数
================================================================================
Private Function LikeString(ByVal target As String, ByVal patternStr As String) As Boolean
LikeString = (target Like patternStr)
End Function
—
ジニアスなポイント：このコードの真骨頂は、単なる「上書き回避」に留まらず、「同一日付内での世代交代（v1.0 → v1.1 → v1.2）」を完全自動でハンドリングする点にある。ファイルシステムをリアルタイムで走査（Scan）し、過去の最大のバージョンを数学的に特定してインクリメントするため、どれだけマクロを連打してもファイルが破綻することはない。
—
現場で導入する際の注意点・ベストプラクティス
1. ネットワークドライブ（SharePoint / OneDrive）上の挙動：
同期ラグが発生するクラウドストレージ上でこのマクロを動かす場合、`FileSystemObject` によるフォルダスキャンが追いつかないケースがある。極力、ローカル環境（同期フォルダのローカルキャッシュ）で実行し、保存後にバックグラウンド同期させる運用が望ましい。
2. UI/UXの向上（リボン・クイックアクセスツールバーへの配置）：
このマクロ（`SaveWithSmartVersioning`）をPowerPointのクイックアクセスツールバー（QAT）に登録し、標準の「上書き保存（Ctrl+S）」の代わりに叩く習慣をチームに強制せよ。それだけで、バージョン管理に起因する無駄な業務ストレスは地球上から消え去る。
まとめ
VBAは、単なる「退屈な作業の代行ツール」ではない。業務のプロセスそのものを強靭化し、人間の認知負荷（ヒューマンエラーの元凶）を極限までゼロにするための「エンジニアリング・武器」である。
今回のスマート保存ロジックをあなたの開発環境に組み込み、上書きの恐怖から解放された快適なオーサリングライフを手に入れてほしい。
