如何合并上百个只有1页的pptx文件.docxVIP

上百个只有一页的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 Then Dim iCount As Integer Dim iAll As IntegeriCount = 0iAll = .SelectedItems.Count On Error Resume Next /* 遍历FileDialogSelectedItems集合中的每一个路径字符串. */ For Each vntSelectedItem In .SelectedItems With ActivePresentation /* 幻灯片不为空。 */ If .Slides.Count = 0 Then Dim cl As CustomLayout Dim intCl As IntegerintCl = .SlideMaster.CustomLayouts.Count /* 自定义布局不为空。 */ If intCl 0 Then Set cl = .SlideMaster.CustomLayouts.Item(1) .Slides.AddSlide 1, cl ElseMsgBox 找不到可用的自定义布局！, vbExclamation, PPTJoinerGoTonoCustomLayouts End If End If .Slides.InsertFromFilevntSelectedItem, .Slides.Count /* 执行时遇到错误。 */ If Err.Number 0 Then 清除错误，以便下次继续捕获。Err.Clear If iCount 0 TheniCount = iCount - 1 End If ElseiCount = iCount + 1 End If End With NextMsgBox 打开 PPT 文件数： CStr(iAll) vbNewLineMsgBox 合并 PPT 文件数： CStr(iCount), vbInformation, 合并报告noCustomLayouts: