似乎缺乏adobe属性/方法的文档。我有Adobe SDK API,但缺少任何细节。
我的代码是将Excel文档中的数据写入PDF表单。它遍历所有字段并将数据写入PDF表单。如果PDF表单字段类型是数字,则抛出并发生错误。
我需要测试PDF表单字段是否为数字。如果是,我会将该字段名称添加到集合中,并在过程完成后显示。
我查找了GetField属性但找不到任何文档。类似的东西:
IF jso.getfield(strField).type=numeric
colFail.Add=strField
答案 0 :(得分:0)
审查Peh提供的链接(谢谢Peh);这就是我处理它的方式:
'Fill the form fields.
For r = 20 To 149
strField = ToPDFsh.Cells(r, 3).Value
strFieldVal = ToPDFsh.Cells(r, 4).Value
If strFieldVal = "" Then GoTo BlankVal
objJSO.GetField(strField).Value = strFieldVal
On Error GoTo ErrHandler
BlankVal: 下一个r`
等等等等等等等等。ErrHandler:
e = e + 1
If e > 7 Then
MsgBox "Something Bad happend... :(" & vbNewLine & "Form not filled", vbCritical, "Failed"
GoTo ErrHandlerExit
End If
colFail.Add strField
Resume Next
Exit Sub
ErrHandlerExit: '关闭表单而不保存更改。 objAcroAVDoc.Close True
'Close the Acrobat application.
objAcroApp.Exit
'Release the objects and exit.
Set objJSO = Nothing
Set objAcroPDDoc = Nothing
Set objAcroAVDoc = Nothing
Set objAcroApp = Nothing
'Enable the screen.
Application.ScreenUpdating = True
Exit Sub
End Sub