Private Sub Wrd_DocumentBeforeSave(ByVal Doc As Document, Cancel As Boolean)
 
 
End Sub

Private WithEvents Wrd As Word.Application
 
Private Sub Wrd_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, _
  Cancel As Boolean)
   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("F:\AnotherWrd1.doc")
   Selection.Copy
   newDoc.Save
 
   2. Dokument öffnen
   Set newDoc = Wrd.Documents.Open("D:\AnotherWrd2.doc")
   Selection.Copy
   newDoc.Save
 
End Sub