将一个PPT文档按页分割成多个PPT文档的代码

1、打开需要分割的PPT文档（假设文件名为“原始文档.ppt”）；
2、键入Alt+F11切换到VBA编辑环境，然后选择菜单“插入-模块”；
3、在代码编辑区粘贴如下代码：

Option Explicit
Sub SplitSlides()
Dim oSrcPresentation As Presentation, oNewPresentation As Presentation
Dim strSrcFileName As String, strNewFileName As String
Dim nIndex As Integer, nSubIndex As Integer, nTotalSlides As Integer, nBound As Integer, nCounter As Integer
Dim fso As Object
Const nSteps = 5 ' 修改这里控制每隔几页分割一次
If nSteps <= 0 Then Exit Sub
Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcPresentation = ActivePresentation
strSrcFileName = oSrcPresentation.FullName
nTotalSlides = oSrcPresentation.Slides.Count
nCounter = 1
For nIndex = 1 To nTotalSlides Step nSteps
If nIndex + nSteps > nTotalSlides Then
nBound = nTotalSlides
Else
nBound = nIndex + nSteps - 1
End If
strNewFileName = fso.BuildPath(fso.GetParentFolderName(strSrcFileName), _
fso.GetBaseName(strSrcFileName) & "_" & nCounter & "." & fso.GetExtensionName(strSrcFileName))
oSrcPresentation.SaveCopyAs strNewFileName
Set oNewPresentation = Presentations.Open(strNewFileName)
If nBound < nTotalSlides Then
For nSubIndex = nBound + 1 To nTotalSlides
oNewPresentation.Slides(nBound + 1).Delete
Next
End If
If nIndex > 1 Then
For nSubIndex = 1 To nIndex - 1
oNewPresentation.Slides(1).Delete
Next
End If
oNewPresentation.Save
oNewPresentation.Close
nCounter = nCounter + 1
Next nIndex
MsgBox "结束！", vbInformation
End Sub

4、修改代码中指定的分割页数；
5、键入F5运行，直到提示“完成！”
6、在源PPT所在目录下生成一系列命名为“原始文档_1.ppt”、“原始文档_2.ppt”……的新文档，即为分割之后的结果。
附注：原来想用更简单的一个API函数Slides.InsertFromFile，但是发现通过这个函数插入的PPT无法保留原始文档中的背景等信息。所以只好采用现在这样的另存为并删除多余幻灯片的“笨”办法了。

将一个PPT文档按页分割成多个PPT文档的代码相关推荐

python分解word文档为多个_如何将一个word文档按页分割成多个word文档-百度经验...
粘贴下面的代码: Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Di ...
word文档一个表格分割成两个表格
word文档一个表格分割成两个表格按住键盘上的ctrl+shift+enter即可快速实现分割表格效果. posted @ 2018-05-21 13:08 stujike123456 阅读( .. ...
将一个字符串里的各个数字分割成数组
例如:"1,2,2,3,4" 将分割成:[1,2,2,3,4] 代码: String string = "1,2,2,3,4"; String[] resu ...
将一个word文档按页数拆分为多个文档
1. 打开文档. 2. 快捷键Alt + F11打开VBA编辑器,选择菜单"插入->模块" 3. 粘贴代码 Option Explicit Sub SplitEveryFiv ...
字符串分割split()方法：将一个字符串通过指定的分隔符分割成若干子串
11111 将这行数据存为字符串,然后调用字符串分割函数split将其分割成字符数组String [] strRating,在定义一个整型数组,将字符数组转换成整数数组: import java.ut ...
字符串分割split：将一个字符串通过指定的分隔符分割成若干子串
1.先来看一下JAVA里的字符串分割代码: 首先从标准输入得到一行数据,数据之间用逗号,分隔. 将这行数据存为字符串,然后调用字符串分割函数split将其分割成字符数组String [] strRat ...
PDF文档如何在线分割成多个PDF小文件
PDF格式的文件在我们平时工作中运用地越来越多了,很多时候都需要将PDF文档合并或者是分割掉,这样的工作对于初入职场的人来说是很难的,今天在这里,小编给大家来分享一个PDF分割的小技巧,大家可要认真的 ...
PPT文档英文怎么翻译成中文？文档英文翻译这一招就够了
PPT文档英文怎么翻译成中文?PPT文档怎么翻译?我想这些问题一直围绕着大家的工作吧,想要翻译PPT文档,却不知道该怎么操作,来看这篇文章就对了,小编接下来要为大家分享文档英文翻译的方法,教你怎么把英 ...
怎么把PDF文件分割成单独的几页
一个扫描出来的PDF格式的文件里面有很多页,想把它的每一页分割成单独的一个PDF文件.将一个PDF文件劈开成多个PDF文件方法: 一.编辑工具 1.迅捷 pdf分割软件 ,这是一个小巧的分割PDF页面 ...

将一个PPT文档按页分割成多个PPT文档的代码

将一个PPT文档按页分割成多个PPT文档的代码相关推荐

最新文章

热门文章