在Powerpoint VBA中仅导出特定部分中的幻灯片

Sub ExportSpecificSlides()
    Dim ppt As Presentation
    Dim slide As Slide
    Dim exportRange As Range
    Dim exportPath As String
    
    ' 设置导出路径
    exportPath = "C:\Export\"
    
    ' 打开PPT文件
    Set ppt = Presentations.Open("C:\Presentation.pptx")
    
    ' 设置导出范围，这里假设要导出第2至第4张幻灯片
    Set exportRange = ppt.Slides.Range(Array(2, 3, 4))
    
    ' 循环导出每张幻灯片
    For Each slide In exportRange
        ' 创建新的PPT文件，仅包含当前幻灯片
        Dim newPpt As Presentation
        Set newPpt = Presentations.Add
        
        ' 复制当前幻灯片到新的PPT文件
        slide.Copy
        newPpt.Slides.Paste
        
        ' 保存新的PPT文件
        newPpt.SaveAs exportPath & "Slide" & slide.SlideIndex & ".pptx"
        
        ' 关闭新的PPT文件
        newPpt.Close
    Next slide
    
    ' 关闭原始PPT文件
    ppt.Close
    
    ' 提示导出完成
    MsgBox "幻灯片导出完成！"
End Sub