ho inserito nel mio documento questo codice

codice:
Private Sub Document_Open()
   With ActiveDocument.MailMerge
        .Destination = wdSendToPrinter
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
            .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
        End With
        .Execute Pause:=False
    End With
    ActiveWindow.Close
    Application.Quit
End Sub
il file che lancio dopo l'inserimento di questo codice in automatico mi apre la stampa unione e
mi chiude il documento creato
ma quello che non riesco a fare e far chiudere il word e il documento di partenza

grazie a tutti per l'aiuto