excel aus word öffnen und makro starten
14.03.2021 19:00:02
Farmer
ich habe eine Exceldatei mit verschiedenen Registern für Berechnungen. Am Ende habe ich verschiedene Ergebnisse die ich in einem Worddokument als Serienbrief ausgeben möchte. Das öffnen der Worddatei und starten des Makros (Dauftrag) zum auslesen der Serienbriefdaten habe ich soweit gelöst. Dabei habe ich das Problem das solange Excel offen ist das Datum nicht richtig im Serienbrief dargestellt wird. Sobald Excel geschlossen ist und ich das Makro in Word laufen lasse läuft es wunderbar.
Jetzt war meine Idee Excel nach dem Starten von Word zu schließen und das Makro zu starten. Leider bekomme ich nur hin word zu öffnen und excel zu schließen. Kann mir jemand helfen wo und wie ich den Befehl für das Makro in Word (serienbrief) zu starten einfügen muss?
Nachdem die Sereienbriefe fertig sind ( ich lasse jeden als pdf speichern) muss ich wieder zurück in Excel in die ursprüngliche Datei (D:\Daten\Berechnung.xlsm) um ein weiteres Makro (Datumlöschen) auszuführen.Auch hier läuft das Makro einwandfrei aber ich bekomme es nicht hin die Datei und das Makro von Word aus zu starten. Hier habe ich noch keinen Lösungsansatz.
Kann mir auch dabei jemand helfen?
Sub Dauftrag()
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application")
AppWD.Documents.Open "D:\Daten\2021.Docm"
AppWD.Visible = True
Application.DisplayAlerts = True
Set AppWD = Nothing
ThisWorkbook.Save
Application.Quit
End Sub