使用ExecuteMso("PasteSourceFormatting")粘贴多幻灯片范围仅最后一个生效的解决方法

你的问题核心在于CommandBars.ExecuteMso("PasteSourceFormatting")是异步执行的——PowerPoint不会在代码调用时立刻处理粘贴，而是会等到当前Sub过程执行完才批量处理。两次Copy操作会覆盖剪贴板内容，最终只有最后一次的粘贴会生效。

下面提供两种无需保存演示文稿的解决方案：

方案一：用DoEvents强制PowerPoint立即处理粘贴 #

在每次调用ExecuteMso后，调用pptApp.DoEvents()，让PowerPoint优先处理当前的粘贴消息队列，再继续执行后续代码。修改后的代码如下：

Private Sub ButtonInsertSong_Click(sender As Object, e As RibbonControlEventArgs) Handles ButtonInsertSong.Click
    Dim srcPath1 As String = "" ' 替换为实际路径
    Dim srcPath2 As String = "" ' 替换为实际路径

    Dim pptApp As PowerPoint.Application
    Dim destPPT As Presentation
    Dim srcPPT1 As Presentation
    Dim srcPPT2 As Presentation

    pptApp = GetObject([Class]:="PowerPoint.Application")
    destPPT = pptApp.ActivePresentation
    
    ' 打开第一个源演示文稿并粘贴
    srcPPT1 = pptApp.Presentations.Open(srcPath1, MsoTriState.msoTrue,, MsoTriState.msoFalse)
    srcPPT1.Slides.Range().Copy()
    pptApp.CommandBars.ExecuteMso("PasteSourceFormatting")
    pptApp.DoEvents() ' 强制PowerPoint完成粘贴操作
    srcPPT1.Close()

    ' 打开第二个源演示文稿并粘贴
    srcPPT2 = pptApp.Presentations.Open(srcPath2, MsoTriState.msoTrue,, MsoTriState.msoFalse)
    srcPPT2.Slides.Range().Copy()
    pptApp.CommandBars.ExecuteMso("PasteSourceFormatting")
    pptApp.DoEvents() ' 强制PowerPoint完成粘贴操作
    srcPPT2.Close()
End Sub

注意：这里把关闭源文稿的操作移到了对应粘贴完成后，避免源文稿提前关闭导致剪贴板内容丢失。

方案二：使用Slides.PasteSpecial替代ExecuteMso（更可靠） #

直接使用PowerPoint对象模型的PasteSpecial方法，指定粘贴格式为ppPasteDefault（会保留源格式），这个方法是同步执行的，不需要依赖剪贴板的异步处理，稳定性更高。代码示例：

Private Sub ButtonInsertSong_Click(sender As Object, e As RibbonControlEventArgs) Handles ButtonInsertSong.Click
    Dim srcPath1 As String = "" ' 替换为实际路径
    Dim srcPath2 As String = "" ' 替换为实际路径

    Dim pptApp As PowerPoint.Application
    Dim destPPT As Presentation
    Dim srcPPT1 As Presentation
    Dim srcPPT2 As Presentation

    pptApp = GetObject([Class]:="PowerPoint.Application")
    destPPT = pptApp.ActivePresentation
    
    ' 处理第一个源文稿
    srcPPT1 = pptApp.Presentations.Open(srcPath1, MsoTriState.msoTrue,, MsoTriState.msoFalse)
    srcPPT1.Slides.Range().Copy()
    ' 粘贴并保留源格式，ppPasteDefault对应保留源格式的粘贴行为
    destPPT.Slides.PasteSpecial(DataType:=PasteDataType.ppPasteDefault)
    srcPPT1.Close()

    ' 处理第二个源文稿
    srcPPT2 = pptApp.Presentations.Open(srcPath2, MsoTriState.msoTrue,, MsoTriState.msoFalse)
    srcPPT2.Slides.Range().Copy()
    destPPT.Slides.PasteSpecial(DataType:=PasteDataType.ppPasteDefault)
    srcPPT2.Close()
End Sub

这个方案完全通过对象模型控制粘贴逻辑，不依赖ExecuteMso的异步特性，适配未保存的新建演示文稿毫无问题。

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