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

goldeye

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

2019-3-13 06:23 上传

点击文件名下载附件

lemon131

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

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

    MsgBox &quot;Done&quot;
End Sub

pxw686

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

hello505

下载学习，谢谢分享！