代码之家  ›  专栏  ›  技术社区  ›  Scott Holtzman

通过VBA填充PDF组合框

  •  1
  • Scott Holtzman  · 技术社区  · 7 年前

    我有下面的代码来填充PDF文档中的组合框。据我所知,代码是正确的 Acrobat Forms API Reference

    enter image description here

    但是,代码在服务器上失败 PopulateListOrComboBox

    对象“IField”的方法“PopulateListOrComboBox”失败

    Dim acroApp As Acrobat.acroApp
    Set acroApp = New Acrobat.acroApp
    
    Dim myForm As Acrobat.AcroAVDoc
    Set myForm = New Acrobat.AcroAVDoc
    
    Dim bOK As Boolean
    bOK = myForm.Open("C:\Users\sholtzman\downloads\wordFormTest.pdf", "temp")
    
    Dim theRealForm As AFORMAUTLib.AFormApp
    Set theRealForm = New AFORMAUTLib.AFormApp
    
    Dim pdField As AFORMAUTLib.Field
    Set pdField = theRealForm.Fields.Add("triaCoverage", "combobox", 0, 10, 20, 100, 200)
    
    Dim items(2) As String
    items(0) = " "
    items(1) = "Accept"
    items(2) = "Reject"
    
    pdField.PopulateListOrComboBox items
    

    自动化错误未指定的错误

    Dim myPDForm As Acrobat.AcroPDDoc
    Set myPDForm = myForm.GetPDDoc
    
    Dim jso As Object
    Set jso = myPDForm.GetJSObject
    
    jso.getField("triaCoverage").setItems(1) = " "
    

    最后,在添加组合框后保存并关闭文档时,我可以进入

    1 回复  |  直到 7 年前
        1
  •  0
  •   Scott Holtzman    7 年前

    我做了更多的研究,刚刚通过替换该行找到了一个答案:

    jso.getField("triaCoverage").setItems(1) = " "
    

    jso.getField("triaCoverage").setItems(items)
    

    但是,如果可能的话,我更喜欢使用PopulateListOrComboBox方法,因此我将在一段时间内不回答这个问题。

    推荐文章