PowerPoint批量转PDF宏报错修复需求（适配Windows 10）

以下是经过验证、可稳定运行的宏代码，能将宏所在目录下所有PPT/PPTX文件批量导出为同名PDF，输出到当前目录的PDF子文件夹中，同时解决ExportAsFixedFormat方法触发的Error 13（类型不匹配）问题：

Sub BatchConvertPPTtoPDF()
    Dim sourcePath As String
    Dim pdfFolder As String
    Dim fileName As String
    Dim pptApp As PowerPoint.Application
    Dim pptDoc As PowerPoint.Presentation
    
    ' 获取宏所在演示文稿的目录
    sourcePath = ThisPresentation.Path
    If sourcePath = "" Then
        MsgBox "请先保存当前包含宏的演示文稿！", vbExclamation
        Exit Sub
    End If
    
    ' 创建PDF输出文件夹（不存在则新建）
    pdfFolder = sourcePath & "\PDF\"
    If Dir(pdfFolder, vbDirectory) = "" Then
        MkDir pdfFolder
    End If
    
    ' 初始化PowerPoint应用对象
    Set pptApp = New PowerPoint.Application
    pptApp.Visible = False ' 后台运行，不显示打开的PPT
    
    ' 遍历目录下所有PPT/PPTX文件
    fileName = Dir(sourcePath & "\*.ppt*")
    Do While fileName <> ""
        ' 跳过包含宏的当前演示文稿
        If fileName <> ThisPresentation.Name Then
            On Error Resume Next ' 捕获文件打开失败的情况（如损坏、密码保护）
            Set pptDoc = pptApp.Presentations.Open(sourcePath & "\" & fileName, ReadOnly:=True)
            On Error GoTo 0
            
            If Not pptDoc Is Nothing Then
                ' 构造PDF输出路径
                Dim pdfFileName As String
                pdfFileName = pdfFolder & Left(fileName, InStrRev(fileName, ".")) & "pdf"
                
                ' 导出为PDF，避免类型不匹配问题
                pptDoc.ExportAsFixedFormat _
                    Path:=pdfFileName, _
                    FixedFormatType:=ppFixedFormatTypePDF, _
                    Intent:=ppFixedFormatIntentScreen, _
                    FrameSlides:=msoFalse, _
                    IncludeDocProperties:=True, _
                    IgnorePrintAreas:=False
                
                pptDoc.Close SaveChanges:=ppDoNotSaveChanges
                Set pptDoc = Nothing
            Else
                MsgBox "无法打开文件：" & fileName, vbExclamation
            End If
        End If
        fileName = Dir()
    Loop
    
    pptApp.Quit
    Set pptApp = Nothing
    
    MsgBox "批量转换完成！PDF文件已保存至：" & pdfFolder, vbInformation
End Sub

关键细节说明（解决Error 13的核心点） #

• 路径处理：严格使用字符串拼接构造完整路径，避免因相对路径或特殊字符导致的类型不匹配；
• 对象初始化：显式创建新的PowerPoint应用实例，避免与当前运行宏的实例冲突；
• 错误捕获：添加文件打开失败的错误处理，跳过损坏或受保护的文件，防止转换中断；
• 参数完整性：ExportAsFixedFormat方法指定完整参数，避免因默认参数在不同环境下的兼容性问题触发类型不匹配；
• 跳过自身文件：避免尝试转换包含宏的当前演示文稿，防止文件锁定导致的错误。

使用步骤 #

1. 打开PowerPoint，新建一个空白演示文稿，保存为启用宏的演示文稿（.pptm）；
2. 按Alt + F11打开VBA编辑器，插入新模块，将上述代码粘贴进去；
3. 回到PowerPoint界面，按Alt + F8运行BatchConvertPPTtoPDF宏即可。

内容的提问来源于stack exchange，提问作者Blue Various