PowerPoint 2007 單檔另存 PDF 容易，但百檔批量轉換無內建功能。利用 VBScript 呼叫 PowerPoint COM 物件模型 `SaveAs` 方法 (檔案類型常數 32 = PDF)，整合至檔案總管右鍵選單，實現「有 PPT 的地方就有 PDF」的一鍵批量轉換。

核心原理

Office 2007 安裝「另存為 PDF 增益集」 (SaveAsPDFandXPS.exe) 後，PowerPoint 物件模型新增 `ppSaveAsPDF = 32` 常數。VBScript 建立 PowerPoint.Application 實例，批次開啟 .ppt/.pptx → `SaveAs 新路徑, 32` → 關閉 → 退出。

實作步驟

1. 建立 PDF.VBS 腳本

記事本建立 pdf.vbs (儲存於固定路徑，如 C:\Scripts\pdf.vbs)：

' PDF.VBS - 批量 PPT 轉 PDF
On Error Resume Next
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True ' 可見模式便於觀察/除錯

Set objArgs = WScript.Arguments
If objArgs.Count = 0 Then WScript.Quit

For i = 0 To objArgs.Count - 1
    strFile = objArgs(i)
    If LCase(Right(strFile, 4)) = ".ppt" Or LCase(Right(strFile, 5)) = ".pptx" Then
        Set objPres = objPPT.Presentations.Open(strFile, , , False)
        strNew = Left(strFile, InStrRev(strFile, ".")) & "pdf"
        objPres.SaveAs strNew, 32 ' 32 = ppSaveAsPDF
        objPres.Close
    End If
Next
objPPT.Quit

2. 整合至檔案總管右鍵選單

1. 開啟「資料夾選項」→「檔案類型」索引標籤 (Win 10/11: 設定→應用程式→預設應用程式→選擇依檔案類型設定預設值→找 .ppt/.pptx)。
2. 找到「Microsoft PowerPoint 97-2003 Presentation」或「PowerPoint Presentation」→ 「進階」/「編輯」。
3. 「新增」動作：
   動作：PPT2PDF
   執行此動作的應用程式：
   C:\Windows\System32\wscript.exe "C:\Scripts\pdf.vbs" "%1"
   (%1 為傳入的檔案完整路徑，雙引號處理路徑空格)。
4. 確定關閉所有對話框。

3. 批量操作

• 資料夾中 Ctrl+點選多個 .ppt/.pptx → 右鍵 → 選「PPT2PDF」。
• PowerPoint 後台依序開啟、轉換、關閉，生成同名 .pdf 於原目錄。
• 配合 Windows 搜尋 (如 `*.pptx` 遞迴搜尋子目錄) → 全選 → 右鍵「PPT2PDF」，實現多層級目錄批量轉換。

進階優化建議

• 腳本加入錯誤日誌記錄、轉換進度提示、檔案鎖定偵測跳過。
• PowerPoint 2010+ 可改用 `ppSaveAsPDF = 32` 常數名稱增強可讀性 (需引用類型庫)。
• 企業級部署可打包為 MSI/Intune 應用程式，統一推送右鍵選單註冊表項。

此方案解決了 PowerPoint 2007 缺乏批量轉 PDF 的痛點，同樣適用於 Word/Excel (對應常數 `wdSaveFormatPDF = 17` / `xlTypePDF = 0`)。