PDF Formularfeld ausfüllen

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>

;---------------------------File----------------
; PDFTKServer
Local $Server = @ScriptDir & "\PDFtk Server\bin\pdftk.exe "

Local $MasterPDF = @ScriptDir & '\Master\Test.pdf'
Local $sFilename = @TempDir & '\Vorlagen\Test.pdf'

; Formular FDF
Local $MasterFDF = @ScriptDir & '\Master\Test.fdf'
Local $FDF = @TempDir & '\Vorlagen\Test.fdf'

FileCopy($MasterPDF, $sFilename, 1 + 8)
FileCopy($MasterFDF, $FDF, 1 + 8)

; Bearbeiten
Local $FileBearbeiten = @TempDir & '\Vorlagen\Temp_fe.pdf'
;-------------------------------------------------

;~ pdftk Formular.pdf generate_fdf output formulardaten.fdf
RunWait($Server & $sFilename & ' generate_fdf ' & $FDF, "", @SW_HIDE)

;2. AutoDaten eintragen
If FileExists($sFilename) Then
    $sX = StringReplace($sFilename, "\", "/")
    $sX = StringReplace($sX, ":", "")
    $sPdfNM = "/" & $sX
    $FdfNM = FileOpen($FDF, $FO_OVERWRITE + $FO_ANSI)

    ;----------------------------SCHREIBEN---------------------------------------------
    $Ex = "%FDF-1.2 %% Fill Form Fields %%" & @CRLF _
             & "1 0 obj << /FDF << /F (" & $sPdfNM & ") /Fields " & @CRLF _
             & "[" & @CRLF _
             & '<</T(Feld1)/V(HalloTest)>>' & @CRLF _
             & '<</T(Feld2)/V(Hallo)>>' & @CRLF _
             & "]>>>>" & @CRLF _
             & "endobj" & @CRLF _
             & "trailer" & @CRLF _
             & "<</Root 1 0 R >>" & @CRLF _
             & "%%EOF"
;~     MsgBox(1, "", $Ex)
    FileWrite($FdfNM, $Ex)
    FileClose($FdfNM)
    RunWait($FDF, "", @SW_HIDE)
EndIf

If FileExists($Server) Then
    If FileExists($FileBearbeiten) Then FileDelete($FileBearbeiten)
    RunWait($Server & $sFilename & " fill_form " & $FDF & " output " & $FileBearbeiten & ' flatten ', "", @SW_HIDE) ; Nicht mehr editierbar
    ShellExecute($FileBearbeiten)
;~     FileDelete($FDF)
EndIf