本文目录一览：
- 1、如何将一个PPT文件拆分成多个PPT文件
- 2、ppt怎样分成几个文件，快速的，
- 3、怎样把一张幻灯片的内容快速分成两张
- 4、一页ppt怎么拆分成两页？
- 5、如何把一个ppt分成两个
- 6、如何分割PPT文件
如何将一个PPT文件拆分成多个PPT文件
使用PPT拆分合并工具可以实现将一个PPT文档拆分为多个ppt文件或将一个几个ppt合并成一个ppt文件，使用非常灵活。PPT拆分合并工具功能特色：
1、批量将PPT文档按页或份数分拆为多个
Powerpoint
文件。
2、多个ppt
文件合并
为一个
Powerpoint
文档。
3、按份拆分（自动计算每份文档页数）。
ppt怎样分成几个文件，快速的，
1、电脑打开PPT。
2、打开PPT后，选中要分成几个文件的其中一部分，点击鼠标右键，选择带格式粘贴。
3、点击带格式粘贴后，新建一个空白PPT，点击鼠标右键选中带格式粘贴。
4、点击带格式粘贴后，点击保存就可以了，其他文件也是一样的。
怎样把一张幻灯片的内容快速分成两张
1、打开PPT，点击左侧栏“大纲”；
2、将光标定位在要分页的位置，点击段落栏的“降低列表级别”；
3、一张幻灯片就被拆分为两张了，相应的“提高列表级别”，可以将两张幻灯片的内容合并为一张；
4、光标定位到第二张幻灯片行首，点击“提高列表级别”；
5、幻灯片又重新合并为一张。
一页ppt怎么拆分成两页？
拆分步骤如下：
1、进入电脑找到你要拆分的PPT打开并点击PPT中的大纲按钮，如下图。
2、在完成第一步操作之后进入的界面中将鼠标的光标放在你要拆分的位置，如下图。
3、在完成第二步操作之后按压Enter键让要拆分的地方出现一个空格，如下图。
4、完成第三步操作之后用鼠标左键点击降低列表级别按钮，如下图。
5、在完成第四步操作之后即可以看到PPT验机拆分为两张了，如下图。
如何把一个ppt分成两个
1、首先将当前PPT保存，再新建一个PPT，并在新建的PPT中点击“新建幻灯片”。
2、然后在下拉菜单中点击“重用幻灯片”。
3、然后点击“浏览”选择之前保存的PPT。
4、即可在“重用幻灯片”栏目下打开之前保存的PPT。
5、然后点击勾选页面下方的”保留源格式“选项。
6、根据需要点击需要分开显示的PPT页面，让选中的幻灯片页面形成一个新的PPT，原本的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”……的新文档，即为分割之后的结果。
