alles was sonst nirgends passt
Munich schrieb: |
ich würd einfach mal probieren die beiden Zeilen: Set wordapp = CreateObject("word.Application") wordapp.Visible = True auszukommentieren. Ich vermute mal dass es daran liegt. Wenn Du ausserdem danach noch einmal winword.exe aufrufst, dann öffnet sich ja immer nochmal word. Kommt jetzt drauf an von wo aus Du das aufrufst... Wenns aus Word kommt, dann nicht mit shell arbeiten... aus word reicht ein Documents.Open. Aus Excel z.b. macht es aber sinn mit shell zu arbeiten. Sub Makro2() ' Beispiel Datei öffnen filetoopen = "Filepfad&Filename.doc" Documents.Open FileName:=filetoopen, ConfirmConversions _ :=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _ PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _ WritePasswordTemplate:="", Format:=wdOpenFormatAuto End Sub |