将PPT拆分为多个PPT文件，一段代码三个步骤就能实现

这是一段运行于PowerPoint中【宏】的代码，可将多页PPT快速分拆为多个单文件PPT。比如，一个PPT文件有20页幻灯片，把这20页幻灯片快速分拆为20个PPT文件。

代码

Sub ExportSlide() 
Dim CurSlide As Slide 
Dim i As Integer 
Dim FileFullPath As String 
FileFullPath = "D:\PPT\导出单个文件\" '导出后存放的目标文件夹
On Error Resume Next 
MkDir (FileFullPath) '创建目标文件夹 
For Each CurSlide In ActivePresentation.Slides 
CurSlide.Export FileFullPath & "幻灯片" & i + 1 & ".pptx", "pptx" '导出的单个文件名：幻灯片1.pptx、幻灯片2.pptx …
i = i + 1 
Next 
End Sub

步骤

使用PPT中的【宏】运行这段代码，步骤如下：

1.打开要分拆的PPT文件，点击【视图】—【宏】，输入【宏名】ExportSlide，点击【创建】

2.点击【创建】之后，会弹出VBA代码编辑窗口，粘贴上代码

3.点击菜单【运行】—【运行子过程/用户窗体】，即可运行导出，在D:\PPT\导出单个文件\目录中生成文件名为幻灯片1.pptx、幻灯片2.pptx等20个PPT文件。

注意：代码中目标文件夹路径“D:\PPT\导出单个文件\”，D盘PPT文件夹需事先建立或存在，“导出单个文件”文件夹不用手动创建，代码程序会自动创建。