我懂你的困扰——ActivePresentation.ApplyTemplate确实是"一刀切"式的应用，直接把整个模板套用到所有幻灯片上，没法只把源模板的设计资源导入到目标文件里留着自己按需使用。下面给你一套VBA方案，能精准复制源模板的母版和版式到目标演示文稿，完全不会自动修改现有幻灯片的样式：

完整VBA代码 #

Sub ImportDesignWithoutApplying()
    Dim srcPres As Presentation
    Dim targetPres As Presentation
    Dim srcMaster As SlideMaster
    Dim targetMaster As SlideMaster
    Dim srcLayout As CustomLayout
    Dim srcPath As String
    
    ' 替换成你的源模板实际路径
    srcPath = "C:\YourSourceTemplate.pptx"
    
    Set targetPres = ActivePresentation
    
    ' 后台静默打开源模板（只读模式，不显示窗口）
    Set srcPres = Presentations.Open(srcPath, ReadOnly:=True, WithWindow:=False)
    
    ' 将源模板的幻灯片母版复制到目标文件
    Set srcMaster = srcPres.SlideMaster
    Set targetMaster = targetPres.SlideMasters.Add
    srcMaster.Copy targetMaster
    
    ' 批量复制源模板的所有自定义版式
    For Each srcLayout In srcMaster.CustomLayouts
        srcLayout.Copy targetMaster.CustomLayouts(targetMaster.CustomLayouts.Count)
    Next srcLayout
    
    ' 关闭源模板，不保存任何临时修改
    srcPres.Close SaveChanges:=ppDoNotSaveChanges
    
    MsgBox "源模板设计已成功导入！可在幻灯片母版视图查看新增的设计资源", vbInformation
End Sub

代码说明 #

• 静默操作：用WithWindow:=False后台打开源模板，不会弹出额外窗口打扰操作；ReadOnly:=True避免误修改源模板文件。
• 完整复制设计：不仅复制母版，还会把源模板里的所有自定义版式（比如标题页、两栏内容页等）都同步到目标文件。
• 保留控制权：导入后，你需要手动给幻灯片应用这些设计——打开幻灯片母版视图就能看到新增的母版，选中任意幻灯片后，在「开始」选项卡的「版式」菜单里选择导入的样式即可。

内容的提问来源于stack exchange，提问作者Anurag Pattanayak