VBA导出PPT幻灯片报错：将第1-20页另存为新演示文稿时语法错误

需求：将包含450页幻灯片的演示文稿中第1至20页另存为名为XYZ.pptx的新演示文稿。

原代码存在三个核心问题，导致最后一行出现语法错误：

1. 变量类型定义错误：Dim myPresentation As Presentations 定义的是演示文稿集合类型，但Slides.Range()返回的是幻灯片范围对象（SlideRange），类型不匹配。
2. 方法使用错误：Export方法的作用是将幻灯片导出为图片、PDF等格式，无法直接生成PPTX演示文稿。要创建新的PPTX文件，需要新建演示文稿并复制目标幻灯片。
3. 语法格式错误：即使Export方法适用，原代码中用括号包裹整个参数列表且混合命名参数的写法也不符合VBA语法规范。

修正后的代码 #

Sub ExportSlides()
    Dim sourcePres As Presentation
    Dim targetPres As Presentation
    Dim slideRange As SlideRange
    
    ' 指定源演示文稿（需确保该文件已打开）
    Set sourcePres = Presentations("PPTWITH450SLIDES.pptx")
    ' 获取第1到20页的幻灯片范围
    Set slideRange = sourcePres.Slides.Range(Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20))
    
    ' 创建空白新演示文稿
    Set targetPres = Presentations.Add
    ' 将选中的幻灯片复制到新演示文稿
    slideRange.Copy
    targetPres.Slides.Paste
    
    ' 保存新演示文稿为XYZ.pptx
    targetPres.SaveAs "C:\Users\rajat.kapoor\XYZ.pptx", ppSaveAsOpenXMLPresentation
    ' 可选：若不需要保留新演示文稿打开状态，可添加此行关闭
    ' targetPres.Close
End Sub

补充说明 #

• 如果源演示文稿未提前打开，可替换Set sourcePres = ...这一行为：

  Set sourcePres = Presentations.Open("C:\你的源文件路径\PPTWITH450SLIDES.pptx")
  

• ppSaveAsOpenXMLPresentation是PowerPoint内置常量，用于指定保存为PPTX格式，避免保存为旧版PPT格式。

内容的提问来源于stack exchange，提问作者Rajat Kapoor