Private Sub oAppEvents_OnSaveDocument(ByVal DocumentObject As Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As NameValueMap, HandlingCode As HandlingCodeEnum)
    If BeforeOrAfter = kBefore Then
        SaveCount = ThisApplication.ActiveDocument.FileSaveCounter
    ElseIf BeforeOrAfter = kAfter Then
        
        If ThisApplication.ActiveDocument.FileSaveCounter > SaveCount Then
            MsgBox "Speichern"
        Else
            MsgBox "Kopie Speichern unter"
        End If
    End If
End Sub