Script kann ich gerne nach reichen 
wie gesagt als ich das Programm im Januar schrieb funktionierte alles, das hier ist sogar noch das Origial Script welches ich in der Form auf arbeit auch verwende,
jetzt startet es noch die WordFile und dann passiert nüscht mehr
Spoiler anzeigen
AutoIt
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <SendMessage.au3>
#include <StructureConstants.au3>
#Include <WinAPI.au3>
#include <Date.au3>
If $CMDLINE[0] = 2 Then
Global $data = $CMDLINE[1]
Global $path = StringRegExpReplace($CMDLINE[2], "[?]", " ")
Else
MsgBox(0,"", "CMD")
Exit
EndIf
Global $fret = StringSplit(StringRegExpReplace($data, "[?]", " "), ";")
Global $DocArt
Global $Counter = 0
Global $Safety = 1
If $fret[1] <> "Payango" Then
If $fret[1] <> "insidecard" Then
If $fret[1] <> "Cristalcard" Then
MsgBox(0,"", "Whitelabel")
Exit
EndIf
EndIf
EndIf
If $fret[2] <> "Herr" Then
If $fret[2] <> "Frau" Then
MsgBox(0,"", "Geschlecht")
Exit
EndIf
EndIf
$WhiteLabelFinal = $fret[1]
$GenderFinal = $fret[2]
$VorNameFinal = $fret[3]
$NachNameFinal = $fret[4]
$StrasseFinal = $fret[5]
$PLZundOrtFinal = $fret[6]
$VerwendungsZweckFinal = $fret[7]
$AmountFinal = $fret[8]
If $WhiteLabelFinal = "Payango" Then
$DocArt = "Payango"
ElseIf $WhiteLabelFinal = "insidecard" Then
$DocArt = "Inside"
ElseIf $WhiteLabelFinal = "Cristalcard" Then
$DocArt = "Cristal"
EndIf
ShellExecute($DocArt & "BE.docx")
Sleep(10000)
WinWaitActive($DocArt & "BE - Word")
Sleep(200)
Send("^h")
WinWaitActive("Suchen und Ersetzen")
Sleep(20)
Send("!e")
Sleep(50)
Send("!k")
Sleep(20)
Send("!n")
Sleep(50)
Send("!h")
Sleep(50)
Send("XXXX")
Send("!d")
Send($VorNameFinal)
Send("!a")
WinWaitActive("Microsoft Word")
Sleep(25)
Send("{Enter}")
WinWaitClose("Microsoft Word")
Sleep(50)
Send("!h")
Sleep(50)
Send("IIII")
Send("!d")
Send($NachNameFinal)
Send("!a")
WinWaitActive("Microsoft Word")
Sleep(25)
Send("{Enter}")
WinWaitClose("Microsoft Word")
$Gender1 = $GenderFinal
If $Gender1 = "Herr" Then
Sleep(50)
Send("!h")
Sleep(50)
Send("JJJJ")
Send("!d")
Send("geehrter Herr")
Send("!a")
WinWaitActive("Microsoft Word")
Sleep(25)
Send("{Enter}")
WinWaitClose("Microsoft Word")
ElseIf $Gender1 = "Frau" Then
Sleep(50)
Send("!h")
Sleep(50)
Send("JJJJ")
Send("!d")
Send("geehrte Frau")
Send("!a")
WinWaitActive("Microsoft Word")
Sleep(25)
Send("{Enter}")
WinWaitClose("Microsoft Word")
EndIf
Sleep(50)
Send("!h")
Sleep(50)
Send("KKKK")
Send("!d")
Send($StrasseFinal)
Send("!a")
WinWaitActive("Microsoft Word")
Sleep(25)
Send("{Enter}")
WinWaitClose("Microsoft Word")
Sleep(50)
Send("!h")
Sleep(50)
Send("LLLL")
Send("!d")
Send($PLZundOrtFinal)
Send("!a")
WinWaitActive("Microsoft Word")
Sleep(25)
Send("{Enter}")
WinWaitClose("Microsoft Word")
Sleep(50)
Send("!h")
Sleep(50)
Send("GGGGGGGGGGGGGG")
Send("!d")
Send($VerwendungsZweckFinal)
Send("!a")
WinWaitActive("Microsoft Word")
Sleep(25)
Send("{Enter}")
WinWaitClose("Microsoft Word")
Sleep(50)
Send("!h")
Sleep(50)
Send("MMMM")
Send("!d")
Send($AmountFinal)
Send("!a")
WinWaitActive("Microsoft Word")
Sleep(25)
Send("{Enter}")
WinWaitClose("Microsoft Word")
Sleep(50)
Send("{Esc}")
WinWaitClose("Suchen und Ersetzen")
Sleep(40)
Send("{F12}")
WinWaitActive("Speichern unter")
Sleep(50)
$Gender2 = $GenderFinal
If $Gender2 = "Herr" Then
$GenderShort = "Hr. "
ElseIf $Gender2 = "Frau" Then
$GenderShort = "Fr. "
EndIf
Send($path & "\" & $DocArt & "-" & $GenderShort & $VorNameFinal & " " & StringRegExpReplace($NachNameFinal, "[/]", "") & " - " & " - BE")
Sleep(50)
Send("{Enter}")
WinWaitClose("Speichern unter")
Sleep(200)
Send("!{F4}")
WinWaitClose($DocArt & "-" & $GenderShort & $VorNameFinal & " " & StringRegExpReplace($NachNameFinal, "[/]", "") & " - " & " - BE - Word")
Sleep(220)
ExitDas Script wird mit Parametern gestartet, wie gesagt das funktioniert einwandfrei, ers startet auch definitiv die Richtige Word Datei, jedoch wartet er sich danach zu tode, als könnte er nicht mehr auslesen das das Programm offfen ist...
Edit : Gelöst !! wenn man die Dateiendungen bei den Files mit anzeigen lääst, ändert sich dieses Detail auch im Titel von Word.... läuft also wieder Danke an alle =)
