Word-Makro mit einem Excel-Makro starten
22.11.2016 11:52:17
Gerhard
ich habe in einer Word-Datei (in der ein Serienbrief erstellt wird) das Makro "Serienbrief_einzeln_speichern" erstellt, das in Word funktioniert und das ich aus der Excel-Datei, in der sich die Quelldaten für den Serienbrief befinden, starten möchte.
Das Word-Makro wird aber nicht ausgeführt, sondern lediglich die Worddatei geöffnet und wieder geschlossen. Anscheinend funktioniert die Zeile ".Run ..-" nicht. Habt Ihr eine Idee, woran das liegen kann?
Sub WordMakro_starten()
' Die Word-Datei "C:\Ordner xy\Serienbrief.docm" öffnen
' und das Makro "Serienbrief_einzeln_speichern" ausführen:
Dim Word As Object
Set Word = CreateObject("Word.Application")
With Word
.Visible = True
.Documents.Open ("C:\Ordner xy\Serienbrief.docm")
.Run "Serienbrief_einzeln_speichern"
.Quit
End With
End Sub
Gerhard