问如何查找PDF表单域类型

EN

           '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

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

'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