Office学习社区 › Office入门和提高 › 文件夹内有n个ppt，如何把它们合并成一个ppt？

luo_3085 发表于 2020-4-28 23:50:06

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

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

chenhles 发表于 2020-4-29 01:36:01

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

查看完整版本: 文件夹内有n个ppt，如何把它们合并成一个ppt？