文件夹内有n个ppt，如何把它们合并成一个ppt？

luo_3085

文件夹内有n个ppt，如何把它们合并成一个ppt？ 如何合并ppt.rar (454.34 KB, 下载次数: 129)

2020-4-28 23:50 上传

点击文件名下载附件

chenhles

Sub pptcopy()
    FilePath = Application.ActivePresentation.Path
    MyName = Dir(FilePath & "*.pp*", vbDirectory)
    Do While MyName <> &quot;&quot;
        If MyName <> ActivePresentation.Name Then
            Set ppt = ActivePresentation
            '本ppt最后新建一个空白幻灯片
            'Set newSlide = ppt.Slides.Add(.Slides.Count + 1, ppLayoutBlank)
            Set pptInput = Presentations.Open(FilePath & &quot;&quot; & MyName)
            For i = 1 To pptInput.Slides.Count
                pptInput.Slides(i).Copy '合并至最后
                ppt.Slides.Paste (ppt.Slides.Count + 1)
            Next
            pptInput.Close: ppt.Save
        End If
        MyName = Dir
    Loop
End Sub