Excel-Makro für Word anpassen

Question

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

Hallo Helfer,
ich habe Makros bisher nur in Excel genutzt. Das obige Makro funzt dort.
Wie muss ich es für Word anpassen, damit es auch in Word funzt?
mfg
Wolfgang

Answer 1

Hallo,
hab schon 2mal "Workbook" durch "Document" ersetzt.
Ist der Ort "Normal", ThisDocument" richtig?
mfg
Wolfgang

Answer 2

Hallo Wolfgang,

öffne den VBA-Editor und gehe in das VBA-Projekt des betreffenden WORD-Dokuments (achte darauf, dass das Makro nicht in der Normal.dot gespeichert wird). Klicke auf den Ordner "Microsoft Word Objekte" und dann auf "This document" und gib das folgende Makro ein:

Private Sub Document_Close()
ActiveDocument.Save
End Sub

Nun wird dein Dokument vor dem Schließen automatisch gespeichert (das Dokument sollte bereits abgespeichert worden sein).

Gruß

M.O.

Answer 3

Hallo M.O.
Vielen Dank.
mfg
Wolfgang