mcslde
Jun 11, 2013
view9062
view9
0
Goto Top

Erstellung Word-Dokument mit automatischem Speichern und Schließen nach Ausdruck

GermanQuestionMicrosoft OfficeMicrosoft
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.
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 207838

Url: https://administrator.de/contentid/207838

Printed on: April 20, 2024 at 02:04 o'clock

9 Comments
Latest comment
Goto Top
Member: colinardo
colinardo Jun 11, 2013 updated at 16:11:41 (UTC)
Goto Top
Hallo MCSLDE,
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
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
Member: MCSLDE
MCSLDE Jun 11, 2013 at 16:39:55 (UTC)
Goto Top
Hallo Uwe,
danke für die schnelle Antwort.
Irgendwie haut das alles nicht hin bei mir.
Also nochmal meinem Problem:
Ich habe eine Dokumentenvorlage in Word 2003.
Ich will nun, dass wenn man auf drucken klickt, das ganze in einem von mir festgelegten ordner als word dokument gespeichert wird und word automatisch geschlossen wird.
Vielleicht kannst du mir ja hiezu das komplette Makro geben......wäre nett.....
Danke und Gruss
Martin
Member: colinardo
colinardo Jun 12, 2013 at 06:36:51 (UTC)
Goto Top
In Word 2003 lässt sich kein Event "Drucken" abfangen an das man das Makro binden könnte. Was du machen kannst ist eine neue Schaltfläche zu erstellen an die du das Makro bindest. Damit Word komplett geschlossen wird musst du die letzte Zeile auskommentieren.
Member: colinardo
colinardo Jun 12, 2013 at 08:30:12 (UTC)
Goto Top
Und hier noch zum besseren Verständnis ein Demo-Dokument zum Download
Member: MCSLDE
MCSLDE Jun 12, 2013 at 08:49:05 (UTC)
Goto Top
Hallo und erstmal tausend Dank für Deine Mühe.

Deine Vorlage funktioniert einwandfrei.

Allerdings verstehe ich es noch nicht so ganz, wie ich das Ganze auf meine Bedürfnisse umscheidern kann.....face-sad

Ich möchte halt, dass ein Word-Vorlage-Dokument nach dem drucken automatisch abgespeichert wird. Nämlich in einem festgelegten Ordner aber mit einem Dateinamen, den der benutzer vorgibt.

Ich weiss, vllt stelle ich mich etwas tollpatschig an.....aber irgendwie fehlt mir hier etwas der Durchblick.....face-smile

VG
Member: colinardo
colinardo Jun 12, 2013 at 09:38:09 (UTC)
Goto Top
OK dann mal wieder für absolute Anfänger (aber nur weil du hier neu bist face-wink):
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
Mitglied: 76109
76109 Jun 12, 2013 at 15:15:11 (UTC)
Goto Top
Hallo Uwe!

In Word 2003 lässt sich kein Event "Drucken" abfangen ....
Würde dies hier mit Word 2003 nicht funktionieren?

Gruß Dieter
Member: colinardo
colinardo Jun 13, 2013 at 08:11:29 (UTC)
Goto Top
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
Mitglied: 76109
76109 Jun 13, 2013 updated at 13:54:01 (UTC)
Goto Top
Hallo Uwe!

danke für die Info..., hab das Demo-Dokument dahingehend korrigiert
Gerne dochface-smile

Allerdings sollte das 'Cancel = True' unabhängig vom Speichern, ausserhalb des IF-Blocks (davor) stehen, sonst druckt er bei Abbrechen 2 mal...

Gruß Dieter
GermanQuestionMicrosoft OfficeMicrosoft
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment