Mein Problem ist folgendes:
Ich will eine Reihe Worddokumente in Pdf umwandeln, dazu wollte ich CC Pdf Converter und _WordDocPrint verwenden.
Spoiler anzeigen
#include <Word.au3>
#include <_GetFilesFolder_Rekursiv.au3>
#include <Array.au3>
$s_progname = "pdf_umwandeln"
$s_printername = 'CC PDF Converter'
$s_wordfilesdir = Inputbox($s_progname,"Bitte geben sie den Pfad zu ihren Worddateien an.")
$a_wordfiles = _GetFilesFolder_Rekursiv($s_wordfilesdir, '.doc', 0, 0, '0')
_ArrayDisplay ($a_wordfiles)
for $i = 1 to $a_wordfiles[0] Step 2
msgbox(1,'bla','open')
$o_WordApp = _WordCreate($a_wordfiles[$i],0,0,0)
$o_Doc = _WordDocGetCollection($o_WordApp,0)
msgbox(1,'bla','print')
_WordDocPrint($o_Doc,1,1,-1,1,$s_printername)
msgbox(1,'bla','wait')
sleep(1000)
msgbox(1,'bla','send')
ControlSend('Select a filename to write into','','[CLASS:Edit; INSTANCE:1]',StringTrimRight ( $a_wordfiles[$i], 3 ) & 'pdf')
msgbox(1,'bla','click')
ControlClick('Select a filename to write into', '', '[CLASS:Button; INSTANCE:1]' )
msgbox(1,'bla','wait')
sleep(2000)
msgbox(1,'bla','quit')
_WordQuit($o_WordApp)
next
Das funktioniert so nicht, wie man an den Msgboxen sieht. _WordDocPrint bleibt, trotz der Anweisung nicht auf`s Drucken zu warten, stehen.
Was mache ich falsch?
Mfg,
jendrik