
如何把一个PPT中的每一张幻灯片单独保存
比如,一个PPT中有10张幻灯片,怎样把这10幻灯片分别单独保存成一个PPT文件。有没有一次性的简单的方法?这样反复复制、删除太麻烦了...
比如,一个PPT中有10张幻灯片,怎样把这10幻灯片分别单独保存成一个PPT文件。
有没有一次性的简单的方法?这样反复复制、删除太麻烦了 展开
有没有一次性的简单的方法?这样反复复制、删除太麻烦了 展开
5个回答
展开全部
要用到VBA,以PowerPoint 2007为例:
1、“视图”->“宏”,输入宏名ExportSlide后(宏名可任意),创建宏,并添加以下代码:
Sub ExportSlide()
Dim CurSlide As Slide
Dim i As Integer
Dim FileFullPath As String
FileFullPath = "D:\PPTSlide\" '目标文件夹
On Error Resume Next
MkDir (FileFullPath) '创建目标文件夹
For Each CurSlide In ActivePresentation.Slides
CurSlide.Export FileFullPath & "幻灯片" & i & ".ppt", "ppt"
i = i + 1
Next
End Sub
2、运行宏
注意:
1.FileFullPath为目标文件夹的完整路径,根据自己需要修改。
2.语句“CurSlide.Export FileFullPath & "幻灯片" & i & ".ppt", "ppt"”中的“"幻灯片" & i & ".ppt"”为文件名“幻灯片i.ppt”(i为一个从1递增的数),也可根据需要自行修改。
3.只能导出为ppt格式,无法导出为07版的pptx格式,因为07也没提供相应的转换器。
4.导出过程中会比较卡。
有什么其它问题的话再追问。
1、“视图”->“宏”,输入宏名ExportSlide后(宏名可任意),创建宏,并添加以下代码:
Sub ExportSlide()
Dim CurSlide As Slide
Dim i As Integer
Dim FileFullPath As String
FileFullPath = "D:\PPTSlide\" '目标文件夹
On Error Resume Next
MkDir (FileFullPath) '创建目标文件夹
For Each CurSlide In ActivePresentation.Slides
CurSlide.Export FileFullPath & "幻灯片" & i & ".ppt", "ppt"
i = i + 1
Next
End Sub
2、运行宏
注意:
1.FileFullPath为目标文件夹的完整路径,根据自己需要修改。
2.语句“CurSlide.Export FileFullPath & "幻灯片" & i & ".ppt", "ppt"”中的“"幻灯片" & i & ".ppt"”为文件名“幻灯片i.ppt”(i为一个从1递增的数),也可根据需要自行修改。
3.只能导出为ppt格式,无法导出为07版的pptx格式,因为07也没提供相应的转换器。
4.导出过程中会比较卡。
有什么其它问题的话再追问。

2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员,对于Word文档生成PPT的操作,我们有以下建议:1. 使用另存为功能:在Word中编辑完文档后,点击文件->另存为,选择PowerPoint演示文稿(*.pptx)格式,即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
展开全部
打开后,另存PPT文档.分别打开删除另外的9张,
或者,再打开新的PPT,复制第一页到新的PPT里再保存,然后又开启新PPT,复制第二页到新的PPT里再保存,这样反复做就行了
或者,再打开新的PPT,复制第一页到新的PPT里再保存,然后又开启新PPT,复制第二页到新的PPT里再保存,这样反复做就行了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
将这个PPT文件复制10份,分别打开删除另外的9张。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
没有简单的办法,只有一页一页的复制
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
另存为gif格式,试试吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询