Tengo un sistema donde habro un .doc lo relaciono con una base de datos e imprimo, anda todo Ok, pero me queda siempre abierto el Word, y a la segunda ves si no lo cierro manualmente me da error.
El codigo que uso es este, pero no logro saber como cerrar la aplicacion.
 
Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim aMerge As Word.MailMerge
'Ejecuta Word y lo deja visible
Set objWord = New Word.Application
objWord.Visible = True
objWord.Application.WindowState = wdWindowStateMaximize
 
'Crea un Nuevo Documento
Set objDoc = objWord.Documents.Open(ArchivoDoc)
objDoc.ActiveWindow.WindowState = wdWindowStateMaximize
 
'Activa el Documento
objDoc.Activate
' Inicializamos la variable con la correspondencia de este documento
    Set aMerge = objDoc.MailMerge
  aMerge.OpenDataSource Name:=ArchivoMDB, SQLStatement:=xSql
  ActiveDocument.Fields.Update
  If aMerge.Fields.Count >= 1 Then
    aMerge.Destination = wdSendToNewDocument
    aMerge.Execute
    objDoc.Close
  End If
objWord.Application.ActiveDocument.PrintOut
'Destruyo aMerge
'    aMerge.DataSource.Close
    Set aMerge = Nothing
'Destruyo objDoc
    'objDoc.Close
    Set objDoc = Nothing
'Destruyo objWord
    objWord.Documents.Close
    'objWord.ActiveWindow.Close
    Set objWord = Nothing
Alguien me puede decir en donde esta la opcion para que se vuelva a cerrar word que estoy como loco....
 

Responder a