Supportnet / Forum / Textverarbeitung
Word beim speichern mit VBA Aktion ausführen
Frage
Hallo,
ich möchte beim Speichern einer Word-Datei automatisch mit VBA eine Aktion (Speicherung auch an anderer Stelle) ausführen.
In Excel geht das mit Private Sub Workbook_BeforeSave(...
Gibt's sowas auch in Word?
Wäre für jede Hilfe dankbar...
Gruß
Thomas
Antwort 1 von Guenter
Hallo,
bei Word habe ich nichts dergeichen gefunden.
Aber, Du könntest Dir doch ein MAkro schreiben, was die Speicheraktionen durchführt. Zum Speichern rufst Du dann das Makro auf, was normal speichert und an einem anderen Ort speichert.
Gruß
Günter
bei Word habe ich nichts dergeichen gefunden.
Aber, Du könntest Dir doch ein MAkro schreiben, was die Speicheraktionen durchführt. Zum Speichern rufst Du dann das Makro auf, was normal speichert und an einem anderen Ort speichert.
Gruß
Günter
Antwort 2 von thomas221
@Günther: Erstmal vielen Dank für die Lösung, habe es erstmal so implementiert.
Hat jemand noch eine Idee, wie man es dennoch hin bekommt, das er zusätzlich eine Kopie der Datei in einem anderen Verzeichnis anlegt, wenn man das Standard-Speichern (Strg+s, Datei-> Speichern usw.) verwendet?
Gruß
Thomas
Hat jemand noch eine Idee, wie man es dennoch hin bekommt, das er zusätzlich eine Kopie der Datei in einem anderen Verzeichnis anlegt, wenn man das Standard-Speichern (Strg+s, Datei-> Speichern usw.) verwendet?
Gruß
Thomas
Antwort 3 von Guenter
Hallo Thomas,
ich habe nochmals weitergesucht.
Das Ereignis für das Application-Object heißt (ab Word 2000!):
DocumentBeforeSave
Vielleicht kommst Du mit der Hilfe zu diesem Thema schon weiter??
Falls Du dort nicht weiter kommst, nochmals melden.
Gruß
Günter
ich habe nochmals weitergesucht.
Das Ereignis für das Application-Object heißt (ab Word 2000!):
DocumentBeforeSave
Vielleicht kommst Du mit der Hilfe zu diesem Thema schon weiter??
Falls Du dort nicht weiter kommst, nochmals melden.
Gruß
Günter
Antwort 4 von Guenter
Hallo nochmals,
mittlerweile habe ich ein Makro gebastelt für die Aktion DocumentBeforeSave:
Geht bei mir in Word 2000.
Das Makro wurde eingegeben bei ThisDocument.
Viel Spaß
Günter
mittlerweile habe ich ein Makro gebastelt für die Aktion DocumentBeforeSave:
Option Explicit
Private WithEvents appTest As Application
Private Sub appTest_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
Dim a
a = MsgBox("Do you really want to " _
& "save the document?", _
vbYesNo)
If a = vbNo Then Cancel = True
End Sub
Private Sub Document_Open()
Set appTest = Application
End Sub
Geht bei mir in Word 2000.
Das Makro wurde eingegeben bei ThisDocument.
Viel Spaß
Günter
Antwort 5 von thomas221
Hallo,
erstmal vielen Dank für deine Hilfe!!!
Also leider muss das auch (noch) auf Office97 laufen (und auf XP).
Dein selbstgeschriebenes Makro läuft wohl nicht unter 97 (oder ich bekomm es nicht zum laufen), weil das Application-Objekt nicht DocumentBeforeSave kennt.
Ich werd's mal heute abend unter Office 2000 testen.
Wenn dir noch was zu Office 97 einfällt, immer her damit.
Vielen Dank nochmal
Thomas
erstmal vielen Dank für deine Hilfe!!!
Also leider muss das auch (noch) auf Office97 laufen (und auf XP).
Dein selbstgeschriebenes Makro läuft wohl nicht unter 97 (oder ich bekomm es nicht zum laufen), weil das Application-Objekt nicht DocumentBeforeSave kennt.
Ich werd's mal heute abend unter Office 2000 testen.
Wenn dir noch was zu Office 97 einfällt, immer her damit.
Vielen Dank nochmal
Thomas
Antwort 6 von Guenter
Hallo,
ab Word 2000 läuft das Makro, bei Word 97 nicht.
Eine ausführliche Diskussion in Englisch findest Du hier:
http://www.experts-exchange.com/Applications/MS_Office/Q_20293393.html
Dabei geht es darum den Speichern unter Menüpunkt durch ein Makro zu ersetzen.
Gruß
Günter
ab Word 2000 läuft das Makro, bei Word 97 nicht.
Eine ausführliche Diskussion in Englisch findest Du hier:
http://www.experts-exchange.com/Applications/MS_Office/Q_20293393.html
Dabei geht es darum den Speichern unter Menüpunkt durch ein Makro zu ersetzen.
Gruß
Günter