【问题标题】:VB Script for Opening PowerPoint file fails用于打开 PowerPoint 文件的 VB 脚本失败
【发布时间】:2014-11-09 01:12:06
【问题描述】:

我正在使用 VBScript 打开 PowerPoint 文件(Windows Server 2008 R2 64 位中的 Office 2010)

下面是代码sn-p:

Set objPowerPoint = CreateObject("PowerPoint.Application")

objPowerPoint.Visible = TRUE

Set openPPT = objPowerPoint.Presentations.Open("C:\Directory\Sample.pptx")

openPPT .SaveAs PathOfPDF("C:\Directory\ConvertedPDFs"), POWERPOINT_PDF, True

运行此脚本时,我在打开演示文稿的行中收到以下消息:

“未指定的错误...错误代码 80004005..Source:(null)”

PathofPDF 是一个单独的函数,用于将其保存为 PDF,但在打开 PPTX 文件时它甚至不会这样做并且失败。

该文件确实存在,我可以在 PowerPoint 中手动打开该文件。我可以访问文件和目录,因此我不确定为什么会收到此错误。

另外,我在另一个装有 Windows 7 64 位和 Office 2010 的系统上尝试了 VBScript,它运行得非常好。

【问题讨论】:

  • 你能创建一个新的演示文稿 (Set ppt = objPowerPoint.Presentations.Add) 还是同样失败?
  • 同样的错误也失败了。
  • 那么您在该计算机上的 PowerPoint 安装似乎有问题。安装的程序是否支持 VBA?
  • 我不知道如何检查。我还为 excel 到 PDF 和 Word 到 PDF 的转换编写了类似的 vb 脚本,它工作正常。仅适用于失败的 Powerpoint to PDF。

标签: vbscript


【解决方案1】:

您只需要打开它吗?只要pptx 文件与 PowerPoint 正确关联,您应该能够只“壳”该文件,它就会打开。

CreateObject("WScript.Shell").Run Chr(34) & "C:\Directory\Sample.pptx" & Chr(34)

【讨论】:

  • 我实际上需要打开它并将 Powerpoint 文件另存为 PDF。我最初使用这段代码: Set objPowerPoint = CreateObject("PowerPoint.Application") objPowerPoint.Visible = TRUE Set openPPT = objPowerPoint.Presentations.Open("C:\Directory\Sample.pptx") openPPT .SaveAs PathOfPDF( "C:\Directory\ConvertedPDFs"), POWERPOINT_PDF, True PathofPDF 是一个单独的函数,用于将其保存为 PDF。但是在打开 PPTX 文件时它甚至不会这样做并且失败
猜你喜欢
  • 1970-01-01
  • 1970-01-01
  • 2013-06-03
  • 2016-03-06
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
相关资源
最近更新 更多