通过VBS脚本在PowerPoint 2013中打开演示文稿

Question

此VBS适用于PowerPoint 2010,2003

Set pptApp = CreateObject("Powerpoint.Application")
pptApp.Visible = True
pptApp.WindowState = 2
Set ppt = pptApp.Presentations.Open("c:\temp\test.pptx")

但PowerPoint 2013在最后一行有问题

Unspecified error

Answer 1

如果缺少某些特权，则会发生此错误。在属性中检查它 - >此文件的安全性。

请注意，Microsoft已经开始使用Visual Studio for Applications而不是VBA，不再推荐使用VBA。