Erstellung Word-Dokument mit automatischem Speichern und Schließen nach Ausdruck
Hallo zusammen, ich möchte in Word 2003 ein Dokument erstellen, welches sich nach dem Ausdruck automatisch in einem von mir bestimmten Ordner abspeichert und automatisch schliesst. Ich denken so etwas lässt sich nur über ein Makro lösen. Kann mir jemand einen Tipp geben, wie ich das anstellen kann. Vg.
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 207838
Url: https://administrator.de/forum/erstellung-word-dokument-mit-automatischem-speichern-und-schliessen-nach-ausdruck-207838.html
Ausgedruckt am: 23.05.2025 um 07:05 Uhr
9 Kommentare
Neuester Kommentar
Hallo MCSLDE,
ganz simpel in dieser Art
Wenn du das in "ThisDocument" im Makroeditor kopierst (ALT-F11), wird das Makro ausgeführt sobald du versuchst das Dokument zu schließen.
Grüße Uwe
ganz simpel in dieser Art
Private Sub Document_Close()
ActiveDocument.PrintOut Background:=False
ActiveDocument.SaveAs "C:\DeinPfad\test.doc"
ActiveDocument.Close
' Wenn Word komplett geschlossen werden soll nächste Zeile auskommentieren
'Application.Quit
End Sub
Grüße Uwe
Und hier noch zum besseren Verständnis ein Demo-Dokument zum Download
OK dann mal wieder für absolute Anfänger (aber nur weil du hier neu bist
):
hier ein Demo-Video
und hier noch der Code den du im Video benötigst:
Wenn jetzt noch was unklar ist, ist dir leider nicht mehr zu helfen...
Grüße Uwe
hier ein Demo-Video
und hier noch der Code den du im Video benötigst:
ActiveDocument.PrintOut Background:=False
DokumentPfad = ""
Speicherordner = "C:\Zielordner"
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)
With fd
.InitialFileName = Speicherordner
.AllowMultiSelect = False
If .Show = -1 Then
DokumentPfad = .SelectedItems(1)
End If
End With
If DokumentPfad <> "" Then
ActiveDocument.SaveAs DokumentPfad
Application.Quit
End If
Wenn jetzt noch was unklar ist, ist dir leider nicht mehr zu helfen...
Grüße Uwe

Hallo Uwe!
Gruß Dieter
In Word 2003 lässt sich kein Event "Drucken" abfangen ....
Würde dies hier mit Word 2003 nicht funktionieren?Gruß Dieter
Hallo Dieter,
danke für die Info, ja so könnte man das auch lösen hat ich total vergessen...
hab das Demo-Dokument dahingehend korrigiert > Download
Grüße Uwe
danke für die Info, ja so könnte man das auch lösen hat ich total vergessen...
hab das Demo-Dokument dahingehend korrigiert > Download
Grüße Uwe

Hallo Uwe!

Allerdings sollte das 'Cancel = True' unabhängig vom Speichern, ausserhalb des IF-Blocks (davor) stehen, sonst druckt er bei Abbrechen 2 mal...
Gruß Dieter
danke für die Info..., hab das Demo-Dokument dahingehend korrigiert
Gerne dochAllerdings sollte das 'Cancel = True' unabhängig vom Speichern, ausserhalb des IF-Blocks (davor) stehen, sonst druckt er bei Abbrechen 2 mal...
Gruß Dieter