求可将PPT幻灯片合并到母版PPT的VBA脚本

以下是适配你需求的VBA脚本，可将同一文件夹内的10份独立报告幻灯片合并到指定的母版PPT中：

使用前置操作： #

• 将母版PPT命名为Master.pptx，与其他10份报告PPT放在同一文件夹内
• 打开Master.pptx，按下Alt+F11打开VBA编辑器
• 右键点击左侧工程窗口中的当前PPT项目，选择「插入」→「模块」
• 将下方代码粘贴到模块窗口，按F5启动运行

VBA代码： #

Sub MergePPTsToMaster()
    Dim masterPres As Presentation
    Dim sourcePres As Presentation
    Dim filePath As String
    Dim folderPath As String
    Dim slideCount As Integer
    Dim i As Integer
    
    ' 定位当前母版PPT为合并目标
    Set masterPres = ActivePresentation
    ' 获取当前PPT所在文件夹路径
    folderPath = masterPres.Path & "\"
    
    ' 遍历文件夹内所有PPT文件
    filePath = Dir(folderPath & "*.pptx")
    
    Do While filePath <> ""
        ' 跳过母版文件本身
        If filePath <> masterPres.Name Then
            ' 以只读模式打开源PPT
            Set sourcePres = Presentations.Open(folderPath & filePath, ReadOnly:=True)
            
            slideCount = sourcePres.Slides.Count
            
            ' 逐个复制幻灯片到母版PPT末尾
            For i = 1 To slideCount
                sourcePres.Slides(i).Copy
                masterPres.Slides.Paste
                ' 若要强制合并后的幻灯片使用母版主题，取消下一行注释
                ' masterPres.Slides(masterPres.Slides.Count).Design = masterPres.Designs(1)
            Next i
            
            ' 关闭源PPT，不保存任何修改
            sourcePres.Close SaveChanges:=ppDoNotSaveChanges
        End If
        
        ' 获取下一个PPT文件
        filePath = Dir
    Loop
    
    MsgBox "合并完成！共添加" & masterPres.Slides.Count - 1 & "张幻灯片", vbInformation
End Sub

关键提示： #

• 运行前请关闭其他打开的PPT文件，避免进程冲突
• 若希望合并后的幻灯片完全沿用母版的格式与主题，取消代码中对应行的注释即可
• 确保目标文件夹内仅包含需要合并的11份PPT，防止误合并无关文件
• 运行时若弹出宏安全提示，需选择「启用宏」以正常执行脚本

内容的提问来源于stack exchange，提问作者Rhett Domino