Office学习社区 › Office入门和提高 › 合并同文件夹下所有PPT的宏

goldeye 发表于 2019-3-13 06:23:02

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

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

lemon131 发表于 2019-3-13 08:49:29

你看看 我在你的代码上改成这样行不行？请测试！
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 发表于 2019-3-13 09:56:10

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

hello505 发表于 2019-3-13 10:08:00

下载学习，谢谢分享！

查看完整版本: 合并同文件夹下所有PPT的宏