PowerPoint宏故障：无法自动以阅读视图打开演示文稿

原代码的问题 #

• 视图常量使用错误：代码里的3对应演讲者备注视图（ppViewSpeakerNotes），并非阅读视图，阅读视图的对应数值是7（ppViewReading）。
• 视图启动方式错误：SlideShowSettings.Run是启动全屏幻灯片放映模式，不能用来切换到阅读视图——阅读视图属于演示文稿的窗口视图模式，和幻灯片放映是不同的模式。

修正后的代码 #

Sub OpenPowerPointInReadingView()
    Dim pptApp As Object
    Dim pptPresentation As Object
    
    Set pptApp = CreateObject("PowerPoint.Application")
    ' 打开演示文稿时直接指定以阅读视图启动
    Set pptPresentation = pptApp.Presentations.Open( _
        FileName:="C:\Caminho\Para\Sua\Apresentacao.pptx", _
        View:=7 ' 对应PowerPoint内置常量ppViewReading，即阅读视图
    )
    pptApp.Visible = True
End Sub

关键说明 #

• 因为采用后期绑定（CreateObject方式），无法直接调用PowerPoint内置的ppViewReading常量，所以直接使用对应的数值7。
• 在Presentations.Open方法中直接指定View参数，是最直接高效的打开阅读视图的方式，无需额外操作幻灯片放映设置。

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