1

我希望通过使用以下 VB 脚本调用的 PowerPoint 文件 test.pptm 中有一个宏 runTest。在装有 Office 2010 的机器上调用脚本时一切正常，但脚本仅适用于 Office 2007，前提是在调用脚本之前已打开 PowerPoint 应用程序。我很想知道是否有人遇到过类似的问题，或者想知道任何潜在的解决方案。

Option Explicit
On Error Resume Next

RunProcess

Sub RunProcess() 

    Dim pptApp 
    Dim pptPresentation 
    Set pptApp = CreateObject("PowerPoint.Application") 
    Set pptPresentation = pptApp.Presentations.Open("C:\test.pptm", True) 
    pptApp.Run "test.pptm!runTest"
    pptApp.Quit 
    Set pptPresentation = Nothing 
    Set pptApp = Nothing 

 End Sub
4

2 回答 2

2

我通过添加解决了这个问题

    pptApp.Visible = True

在创建 pptApp 之后和打开演示文稿之前。

于 2013-09-05T08:36:31.513 回答
0

如果它需要启动 Powerpoint，我会触发启动作为 vbscript 的一部分

Set WshShell = wscript.CreateObject("wscript.Shell")
WshShell.Run "C:\Program Files (x86)\Microsoft Office\Office12\POWERPNT.EXE"

您可以构建一些错误处理以查看安装了哪个版本，并调用适当的 exe 文件

于 2013-09-04T13:12:44.907 回答