[VBA] problema chiusura word

[luca1]

ho inserito nel mio documento questo 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

[LeleFT]

Magari indicando il linguaggio nel titolo e usando i tag CODE per il codice... come richiesto dal Regolamento interno.


Ciao.

[alka]

Vale quanto già detto qui.