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

最新推荐文章于 2024-12-11 15:29:03 发布

a useful man

最新推荐文章于 2024-12-11 15:29:03 发布

阅读量3.1k

点赞数 6

分类专栏：计算机

本文链接：https://blog.csdn.net/sinat_23971513/article/details/105900737

版权

本文介绍了一种通过VBA脚本来将一个PPT文档按页分割的方法，详细步骤包括打开PPT、进入VBA编辑环境、插入模块、编写并运行代码。在代码执行后，源目录下会生成多个新PPT文档，每个包含原始文档的一张幻灯片。由于Slides.InsertFromFile函数不能保留所有格式，因此采用了保存并删除多余幻灯片的方式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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