如何阻止PowerPoint宏打开.ppsm时启动编辑器？

这个问题我之前帮同事排查过，核心原因是你当前用Presentations.Open打开.pps文件时，哪怕设置了WithWindow:=True，PowerPoint还是会先启动编辑窗口再切换到放映模式——2010版本的空白窗口就是这个机制的“副作用”。下面给你两个靠谱的解决方案，亲测在2010和2016都能用：

方案一：后台打开文件，直接启动放映 #

通过设置WithWindow:=False让PowerPoint在后台加载文件，不显示编辑窗口，然后直接启动幻灯片放映。修改后的代码如下：

Public Sub OpenROD()
    Dim random_number As Integer
    Dim targetPres As Presentation
    Randomize
    random_number = Int(10 * Rnd) + 1
    
    ' 后台打开文件，不显示编辑窗口
    Set targetPres = Presentations.Open(FileName:="C:\Users\name\Desktop\NEW ROD\rod" & random_number & ".pps", _
        ReadOnly:=True, WithWindow:=False)
    
    ' 直接启动幻灯片放映
    targetPres.SlideShowSettings.Run
End Sub

为什么这个能行？ #

WithWindow:=False会让PowerPoint在后台加载演示文件，不会弹出编辑窗口，随后调用SlideShowSettings.Run直接进入放映模式，完美避开你不需要的编辑器界面。

方案二：用命令行直接启动放映模式 #

如果想彻底绕开PowerPoint的编辑进程，可以用Shell命令调用PowerPoint的/s参数，这个参数的作用就是直接启动指定文件的放映模式，完全跳过编辑环节，适合对2010版本稳定性要求高的场景：

Public Sub OpenROD_Shell()
    Dim random_number As Integer
    Dim filePath As String
    Dim powerPointPath As String
    
    Randomize
    random_number = Int(10 * Rnd) + 1
    filePath = "C:\Users\name\Desktop\NEW ROD\rod" & random_number & ".pps"
    
    ' 自动获取当前PowerPoint的安装路径（也可以直接写死，比如2010对应"C:\Program Files\Microsoft Office\Office14\POWERPNT.EXE"）
    powerPointPath = Application.Path & "\POWERPNT.EXE"
    
    ' 用/s参数启动放映，无编辑窗口弹出
    Shell """" & powerPointPath & """ /s """ & filePath & """", vbNormalFocus
End Sub

注意事项 #

如果你的目标文件是带宏的.ppsm格式，只需要把代码里的.pps后缀改成.ppsm就行，两个方案都兼容。

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