PowerPoint VSTO VB插件复制幻灯片失效问题求助

新建未保存的空白演示文稿时，PowerPoint对这类文稿的窗口/实例引用存在特殊处理：当调用Presentations.Open打开源文稿时，PowerPoint会自动将焦点完全切换到源文稿，甚至导致未保存的空白文稿的窗口引用失效，从而触发Object does not exist错误。而修改空白文稿内容或关闭源文稿后重新新建，本质是让文稿处于“已修改”状态，PowerPoint不会轻易回收其窗口引用。

针对你的代码，做以下几处关键修改即可解决问题：

1. 使用VSTO内置的Application实例：VSTO插件无需通过GetObject获取PowerPoint应用，直接用Globals.ThisAddIn.Application，确保操作的是当前插件绑定的PowerPoint实例，避免实例混淆。
2. 替换窗口激活为演示文稿激活：用destPPT.Activate()替代destPPT.Windows.Item(1).Activate()，Presentation.Activate()方法会自动激活对应文稿的窗口，比直接操作窗口集合更稳定，尤其是针对未保存的空白文稿。
3. 增加空文稿有效性检查：在操作前确认目标文稿存在，避免因意外情况导致destPPT为空。
4. 后台打开源文稿：打开源文稿时指定WithWindow:=False，让源文稿在后台打开，不会抢占焦点，进一步避免目标文稿的引用失效。

修改后的代码：

Dim pptApp As PowerPoint.Application = Globals.ThisAddIn.Application
Dim destPPT As PowerPoint.Presentation = pptApp.ActivePresentation
Dim srcPPT As PowerPoint.Presentation

' 检查目标文稿是否有效
If destPPT Is Nothing Then
    MessageBox.Show("请确保有活动的演示文稿")
    Return
End If

' 后台打开源文稿，不抢占焦点
srcPPT = pptApp.Presentations.Open(srcPath, WithWindow:=False)

' 复制源文稿所有幻灯片
srcPPT.Slides.Range().Copy()

' 激活目标文稿
destPPT.Activate()

' 粘贴并保留源格式
pptApp.CommandBars.ExecuteMso("PasteSourceFormatting")

' 关闭源文稿
srcPPT.Close()

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