Visual Basic - problema con mailmerge

Hola,

Quiero sacar desde access un documento word usando combinar correspondencia.
Siguiendo algun ejemplo de este foro, tengo la siguiente función:

Sub MAILINEAR(BASEdeDATOS As String, DOCUMENTO As String, consSQL As String)
Dim oApp As Word.Application
Dim oMainDoc As Word.Document

Set oApp = CreateObject("Word.Application")
Set oMainDoc = oApp.Documents.Open(DOCUMENTO)

oApp.DisplayAlerts = wdAlertsAll

With oMainDoc.MailMerge
.MainDocumentType = wdFormLetters
.OpenDataSource Name:=BASEdeDATOS, _
SQLStatement:=consSQL
End With

With oMainDoc
.MailMerge.Destination = wdSendToNewDocument
.MailMerge.Execute pause:=False
End With

oMainDoc.Close False
oApp.Visible = True
Set oApp = Nothing
End Sub

Funciona todo perfecto, excepto que no consigo de ninguna manera que no me pregunte si quiero guardar el documento obtenido, ya que no me interesa para nada guardarlo y sería muy molesto que lo preguntase siempre.

Lo del diplayAlerts no tiene ningún efecto.

Muchas gracias por adelantado.

Documents.Close (wdDoNotSaveChanges)

En el ejemplo tuyo sera:
oMainDoc.Close (wdDoNotSaveChanges)

solo con enviar el parametro cero 0 cierra sin preguntar nada.

ActiveDocument.Close 0