Signaturfeld in einer PDF per VBA anlegen

 Public Sub test()
On Error GoTo Err_Handler
    Dim pdfPDDoc As New AcroPDDoc, oJS As Object, oSign As Object, oPpklite As Object, oFields As Object
    Dim strFName As String, strSignFName As String
    Dim oSignInfo As Object, strSecInfo As String
    Dim oParam As Parameter
    
    strSignFName = "C:\Documents and Settings\638423\Ncts\AdobeSignature\testing.pfx"  
            
    strFName = "C:\Users\Nutzer\Desktop\test.pdf"  
    
    If pdfPDDoc.Open(strFName) Then
        Set oJS = pdfPDDoc.GetJSObject
        
        Set oFields = oJS.AddField("SignatureField", "signature", 0, Array(130, 136, 320, 175))  
        pdfPDDoc.Save 1, strFName
   

        
Exit_Proc:
    Exit Sub
        
Err_Handler:
    
    MsgBox "In test" & vbCrLf & Err.Number & "--" & Err.Description  
    
    Resume Exit_Proc
End Sub