Question

我想从MS-Access 2003 .mdb项目中填写PDF表单。 PDF是使用Adobe LifeCycle Designer ES 8.2创建的，所有字段都有重要名称。但是，运行PDf-filling功能的用户没有安装LifeCycle，而只安装了Adobe Reader 9.5（可能很快就会迁移到Adobe Reader X，我希望我的代码有一点未来证明）。

我该如何实现？我在Web上看到的大多数线程都重定向到官方的Adobe SDK文档，当你只做VBA时，这完全是一团糟。

谢谢。

Answer 1

最后设法在合并一些代码行后得到一些工作。这里是。它适用于在我的VBA项目中设置为参考的Adobe Acrobat 9.0类型库。

Dim FileNm, gApp, avDoc, pdDoc, jso

FileNm = "c:\form.pdf" 'File location
Set gApp = CreateObject("AcroExch.app")

Set avDoc = CreateObject("AcroExch.AVDoc")
If avDoc.Open(FileNm, "") Then
    Set pdDoc = avDoc.GetPDDoc()
    Set jso = pdDoc.GetJSObject

    jso.getField("topmostSubform[0].Page1[0].fieldName[0]").value = "myValue"
    pdDoc.Save PDSaveIncremental, FileNm 'Save changes to the PDF document
    pdDoc.Close
End If

'Close the PDF; the True parameter prevents the Save As dialog from showing
avDoc.Close (True) 

'Some cleaning
Set gApp = Nothing
Set avDoc = Nothing
Set pdDoc = Nothing
Set jso = Nothing

请注意，topmostSubform[0].Page1[0]是Adobe LiveCycle Designer为主PDF文档提供的默认名称，而fieldName[0]是您的字段的名称。如果您有多个具有相同名称的字段，Adobe LiveCycle Designer会自动添加索引编号，以便您可以轻松遍历字段。

从VBA（MS-Access）填写PDF表格

1 个答案: