' hier wird das dokument mit dem bei New erklärten regeln gespeichert
    Private Sub WordApp_DocumentBeforeClose(ByVal Doc As _
      Microsoft.Office.Interop.Word.Document, ByRef Cancel As Boolean)
        Try
            Dim ant As DialogResult = MessageBox.Show("Wollen Sie dieses" & _
              "Dokument speichern?", "Speichern", _
              MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
            If ant = DialogResult.Yes Then
                ' ja
                If m_SaveAs.Equals("") Then
                    ' sonst tut ers nicht
                    WordApp.ActiveDocument.Saved = False
                    WordApp.ActiveDocument.Save()
                    ' damit word das auch weis das ich gespeichert habe
                    WordApp.ActiveDocument.Saved = True
                Else
                    WordApp.ActiveDocument.SaveAs(CType(m_SaveAs, Object))
                End If
            ElseIf ant = DialogResult.No Then
                ' nicht speichern
                ' auch nicht durch Word selbst
                WordApp.ActiveDocument.Saved = True
            ElseIf ant = DialogResult.Cancel Then
                ' abbrechen
                WordApp.ActiveDocument.Saved = False
                Cancel = True
            End If
        Catch ex As Exception
        End Try
 
 
        If Cancel = False Then
            WordApp.Documents.Close()
            WordApp.Dispose()
        End If
    End Sub
 
    Public Sub Dispose()
        WordApp = Nothing
    End Sub
 
End Class