如何用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) 

...但用户必须填写手工等领域。