Word per VBA öffnen, mal gehts mal nicht
05.03.2013 10:41:07
bene
also ich habe ein VBA Script geschrieben, welches aus Excel heraus ein Worddokument öffnet, die Textmarken mit dem Inhalt von Zellen vollschreibt und dann ausdruckt.
Bei mir klappt es wunderbar, auch bei einem Kollegen der noch Windows XP und Office2003 benutzt geht es ohne Probleme. Allerding bei der Person die darauf angewiesen ist scheitert es.
Wenn man an dem Rechner auf den Button für drucken klickt passiert nichts, man kann aber auch Excel nicht beenden da immer der Ladekreis für die Maus erscheint. Nach einiger Zeit kommt dann die Meldung: Microsoft Excel wartet auf die Beendigung einer OLE-Aktion in einer anderen Anwendung
Ich habe dann einen Test gemacht, ich habe auf drucken geklickt und dann das Worddokument manuell geöffnet. Man kann es dann allerding nur schreibgeschützt öffnen, wenn man dies getan hat sieht man auch wie die Wordtextmarken durch die Zellen ersetzt werden. Danach schließt sich das Dokument und es wird gedruck, aber anstatt den Inhalt der Zellen an Stelle der Textmarken auszudrucken werden einfach nur die Textmarken gedruckt.
Hier ist einmal der Code zum öffnen und drucken:
With objWDApp
.Visible = False
Set objDoc = .Documents.Open(strFileName)
Hier dann die Übergabe an die Textmarken, danach die Druckanweisung
objWDApp.PrintOut Filename:=strFileName
objWDApp.ActiveDocument.Close savechanges:=False
objWDApp.Quit
Set objWDApp = Nothing
Ich hoffe Ihr könnt mir helfen
Gruß Bene