如何将包含多张幻灯片的 PowerPoint 文件拆分为每个包含 1 张幻灯片的多个文件？

Question

我有一个包含 50 张幻灯片的文件。我需要创建 50 个不同的文件，每个文件都包含其中一张幻灯片。我想最快的方法包括 VBA，但我不知道如何让 VBA 创建一个新文件，然后回到主人那里。

Answer 1

假设您的意思是“创建 50 个演示文稿”，这将起作用。在运行代码之前创建目标文件夹：

Sub ExportSlides()
  For X = 1 To ActivePresentation.Slides.Count
    ActivePresentation.Slides(X).Export "c:\temp\slide" & X & ".pptx", "PPTX"
  Next X
End Sub