合并同文件夹下所有PPT的宏

天地有雪

前段时间同事需要把多个PPT合并成一个PPT，我看着她手工copy Paste，好心累
上网度娘了好些资料，好像都没有找到一个比较方便快捷的办法，所以就自己做了一个粗略的VBA来合并PPT，
现在拿出来跟大家共享一下，希望能帮得上有同样需求的朋友
同时也希望有PPT的大神能给予修正，或能提供更好的办法，
非常感谢大家！也感谢你们看完我这堆废话。。。。

duquancai

你看看 我在你的代码上改成这样行不行？请测试！
Sub MergePPT()
    Dim S$, Filename$, n%
    Dim Outppt As Presentation

    Set Outppt = ActivePresentation
    S = Outppt.Path
    Filename = Dir(S & "\*.ppt*")
    Do While Filename <> ""
'        Debug.Print Filename
        If Filename <> Outppt.Name Then
            n = Outppt.Slides.Count
            Outppt.Slides.InsertFromFile S & "\" & Filename, n
        End If
        Filename = Dir
    Loop

    MsgBox "Done"
End Sub

天地有雪

duquancai 发表于 2018-4-6 19:32
你看看 我在你的代码上改成这样行不行？请测试！
Sub MergePPT()
    Dim S$, Filename$, n%

这办法更快速跟简洁，感谢修改！！

wdpfox

下载学习，谢谢分享！