上百个只有一页的 ppt 文件，如何将他们合并到一个文件内？请复制以下宏 PPTJoiner 到 VBE 模块中（打开一个新的 PowerPoint 应用程序，按 Alt+F11 快捷键，并从“插入”菜单中选择“模块…” ） 代码：Sub PPTJoiner()Dim fd As FileDialog' 引用 FileDialog 对象Set fd = Application.FileDialog(msoFileDialogFilePicker)' 包含每个选中项的路径Dim vntSelectedItem As Variant'/* 设置 FileDialog 对象的属性并调用相关方法 */With fd' 允许多选AllowMultiSelect = True' 清空过滤器Filters.Clear' 添加过滤器Filters.Add "所有 PowerPoint 演示文稿", "*.pptx,*.ppt,*.pptm,*.ppsx,*.pps,*.ppsm,*.potx,*.pot,*.potm,*.odp" ' 设置打开对话框的标题Title = "请选择您要合并的 PPT 文件"'/* 用户点了打开按钮。
*/If .Show = -1 ThenDim iCount As IntegerDim iAll As IntegeriCount = 0iAll = .SelectedItems.CountOn Error Resume Next'/* 遍历 FileDialogSelectedItems 集合中的每一个路径字符串. */For Each vntSelectedItem In .SelectedItemsWith ActivePresentation' /* 幻灯片不为空 */If .Slides.Count = 0 ThenDim cl As CustomLayoutDim intCl As Integer intCl = .SlideMaster.CustomLayouts.Count' /* 自定义布局不为空 */If intCl > 0 ThenSet cl = .SlideMaster.CustomLayouts.Item(1).Slides.AddSlide 1, clElseMsgBox "找不到可用的自定义布局！", vbExclamation, "PPTJoiner"GoTo noCustomLayoutsEnd IfEnd If.Slides.InsertFromFile vntSelectedItem, .Slides.Count' /* 执行时遇到错误。
*/If Err.Number 0 TheniCount = iCount - 1 End IfElseiCount = iCount + 1End IfEnd WithNextMsgBox "打开 PPT 文件数：" & CStr(iAll) & vbNewLineMsgBox "合并 PPT 文件数：" & CStr(iCount), vbInformation, "合并报告"noCustomLayouts:' 释放内存资源If Not (fd Is Nothing) Then Set fd = NothingEnd IfEnd With End Subcode.txt运行方法：方法 1 >> 直接在新建的模块中按 F5 运行；方法 2 >> 返回 PowerPoint 主界面，按下 Alt+F8 快捷键，在弹出的宏对话框中选择名为“PPTJoiner”的宏，然后单击“运行”按钮注意事项：1. 如果您需要对内容按顺序合并，请把 PPT 文件名更名为带有索引号或者其他能够按顺序排序的文件名，例如：PPT (1).ppt , PPT (2).ppt … , PPT (100).ppt （这个可以用系统的批量改名做到）2. 由于您要合并的是 100 个 PPT 文件，请不要在宏执行期间点击鼠标、打开其他程序或文件，以免造成程序死锁；3. 如果您无法运行这个宏，请按照以下步骤进行宏安全性设置：1). PowerPoint 2003单击菜单“工具→选项→安全性”，单击“宏安全性 ”按钮，弹出“安全性”对话框，在“安全级”选项卡中进行选择即可。
2). PowerPoint 2007单击“Office 按钮→选项→信任中心”，单击“信任中心设置” 按钮，在弹出的“信任中心”对话框中选择“宏设置”，然后在右边的区域中选择3). PowerPoint 2010单击“文件→选项→信任中心”，单击“信任中心设置 ” 按钮，在弹出的“信任中心”对话框中选择“宏设置”，然后在右边的区域中选择。