本文目录一览：
一页ppt怎么拆分成两页？
拆分步骤如下：
1、进入电脑找到你要拆分的PPT打开并点击PPT中的大纲按钮，如下图。
2、在完成第一步操作之后进入的界面中将鼠标的光标放在你要拆分的位置，如下图。
3、在完成第二步操作之后按压Enter键让要拆分的地方出现一个空格，如下图。
4、完成第三步操作之后用鼠标左键点击降低列表级别按钮，如下图。
5、在完成第四步操作之后即可以看到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”……的新文档，即为分割之后的结果。
如何把几百页的课件分解成几个章节？
如果是PPT版本的话，最快的办法就是把原始课件拷贝成N份，即打算分成几章就拷贝几份。然后打开每一份，把不属于该章节的页面删除掉。希望这个对您有所帮助。
ppt怎么拆分幻灯片
打开PPT——视图——幻灯片浏览，按shift或Ctrl键选中要分出去的幻灯片——右击——剪切，重建PPT，视图——幻灯片浏览——单击空白幻灯片后面出现光标闪动——右击——粘贴——粘贴选项选保留源格式即可。最后可以把这里的空白页删除
怎么把几百张ppt分开保存
1. 如何把一个PPT中的每一张幻灯片单独保存
要用到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.导出过程中会比较卡。
有什么其它问题的话再追问。
2. 怎样把一张幻灯片的内容快速分成两张
1、打开PPT，点击左侧栏“大纲”；
2、将光标定位在要分页的位置，点击段落栏的“降低列表级别”；
3、一张幻灯片就被拆分为两张了，相应的“提高列表级别”，可以将两张幻灯片的内容合并为一张；
4、光标定位到第二张幻灯片行首，点击“提高列表级别”；
5、幻灯片又重新合并为一张。
