Private WithEvents MyWrd As Word.Application
 
Private Sub Document_Close()
Beep
End Sub
 
Private Sub MyWrd_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
Beep
End Sub
 
Private Sub MyWrd_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As _
  Boolean, Cancel As Boolean)
Beep
   Dim newDoc As Document
   Set Wrd = New Word.Application
 
   Doc.Select                      'Aktuelles Dokument markieren
   Selection.WholeStory   'Aktuelles Dokument in die Zwischenablage
 
   '1. Dokument öffnen
   Set newDoc = Wrd.Documents.Open("d:\lall2.doc")
   Selection.Copy
   newDoc.Save
 
   '2. Dokument öffnen
   Set newDoc = Wrd.Documents.Open("D:\lall3.doc")
   Selection.Copy
   newDoc.Save
 
End Sub
 
Private Sub MyWrd_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As _
  Boolean)
    Beep
End Sub