PowerPoint VBA:如何将每张幻灯片分别保存为新的演示文稿？

Sub SaveSlidesAsSeparatePresentations()
    Dim originalPresentation As Presentation
    Dim newPresentation As Presentation
    Dim slide As Slide
    Dim slideNum As Integer
    
    ' 设置原始演示文稿
    Set originalPresentation = ActivePresentation
    
    ' 循环遍历每张幻灯片
    For Each slide In originalPresentation.Slides
        ' 创建新的演示文稿
        Set newPresentation = Presentations.Add
        
        ' 复制当前幻灯片到新的演示文稿
        slide.Copy
        newPresentation.Slides.Paste
        
        ' 保存新的演示文稿
        slideNum = slide.SlideNumber
        newPresentation.SaveAs "路径\幻灯片" & slideNum & ".pptx" ' 请替换为实际的保存路径
        
        ' 关闭新的演示文稿
        newPresentation.Close
        
        ' 清理对象引用
        Set newPresentation = Nothing
    Next slide
    
    ' 清理对象引用
    Set originalPresentation = Nothing
End Sub