DocumentBeforeSave Word
Markus
ich habe ein Anliegen, welches in Excel wahrscheinlich einfacher zu lösen ist, als in Word.
Diesmal möchte ich ein Makro in Word ausführen, was bei "Speichern unter" ein Makro ausführt, welches vor dem eigentlichen Speichern den eingegebenen Namen prüft. Und den Speichervorgang abbrechen kann, wenn der Dateiname = "Dokument1" oder "Bitte umbennen!" ist. Ist das in Word möglich?
Dies ist mein bisheriger Code:
Private Sub Document_New()
Set thisApp.appWord = Word.Application
Dim test
test = ActiveDocument.Name
1:
With Dialogs(wdDialogFileSaveAs)
.Name = "Bitte umbenennen!"
.Show
End With
If ActiveDocument.Saved = False Then
If MsgBox("Möchten Sie das Dokument verwerfen?", vbYesNo, "Dokument verwerfen?") = vbYes Then
ActiveDocument.Close savechanges:=False
Else
GoTo 1
End If
End If
ActiveDocument.Close
Vielen Dank im Voraus für eure Unterstützung!!