Word-Datei Speichern unter per XL-Makro
massimo17
ich generiere einen Serienbrief aus Excel herhaus in Word und lass ihn auch gleich ausdrucken.
Vorher fragt er mich noch, ob ich den Word-Brief speichern will.
Wie kann ich es automatisieren, dass er den Word-Brief in Abhängigkeit einer Zelle aus Excel unter deren Name als .doc speichert - ohne mich zu fragen?
Dies ist der bisherige Code:
Private Sub CommandButton2_Click()
Dim appWord As Object
Dim doc As Object
Application.DisplayAlerts = False
Set appWord = CreateObject("Word.Application")
Set doc = appWord.Documents.Open(ThisWorkbook.Path & "\Zeugnisgenerator.doc")
Application.DisplayAlerts = True
doc.PrintOut
appWord.Dialogs(84).Show
appWord.Quit
Set doc = Nothing
Set appWord = Nothing
End Sub
Danke!