如何分割PPT文件

发布网友 发布时间：2022-04-29 23:49

我来回答

共4个回答

热心网友 时间：2022-06-26 09:56

请尝试如下步骤：

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”……的新文档，即为分割之后的结果。

热心网友 时间：2022-06-26 09:57

把文件复制成多个ppt
删除不需要的部分剩下需要的
每个ppt都这么做就ok了

补充 ：我的意思把文件复制成ppt1ppt2放到不同的文件夹里 背景是保留的

参考资料：http://blog.sina.com.cn/zeus

热心网友 时间：2022-06-26 09:57

新建若干个PPT，然后按你的需要分别复制。

热心网友 时间：2022-06-26 09:58

你的这个补充有些不可思议！正常情况下不应该会这样吧。我试过了，不能打开