如何用VBScript打开Adobe Reader？

Question

我想以编程方式填写PDF格式的表格中的某些字段。

我试过这段代码：

Set objAdobe = CreateObject("AcrobatReader.Application")
objAdobe.Visible = True 

我得到“ActiceX组件无法创建对象”错误。

Answer 1

OLE自动化界面仅由Adobe Acrobat 提供，而不是Adobe Reader。

如果您安装了Adobe Acrobat，可以从VBScript启动它，如下所示：

Set oAcrobat = CreateObject("AcroExch.App")
oAcrobat.Show

有关Acrobat自动化API的完整参考，请参阅this document的“OLE自动化”部分。

Answer 2

尝试使用Windows API ShellExecute功能。 不确定VB语法（这适用于FoxPro）...

DECLARE INTEGER ShellExecute IN shell32.dll ; 
  INTEGER hndWin, ; 
  STRING cAction, ; 
  STRING cFileName, ; 
  STRING cParams, ;  
  STRING cDir, ; 
  INTEGER nShowWin
cFileName = "d:\MyDocs\myfile.pdf"
cAction = "open"
ShellExecute(0,cAction,cFileName,"","",1)

...但是用户必须手动填写字段。