SoloCodigo

Tengo el siguiente codigo. Lo que hace es:
Abrir un documento word existente que contiene marcadores.
Lo lleno con algunos datos y lo mando a imprimir.
La ultima sentencia no graba los cambios.
Cuando cierro la aplicacion, el WORD sigue trabajando background.

ALGUIEN SABE COMO CERRAR EL DOCUMENTO BACKGROUND?

Gracias por vuestra ayuda.



        Dim MiDocto As New Word.Application
        MiArchivo = app.path & "MANDATO.DOC"
               
        'abre el mandato
        MiDocto.Application.Documents.Open MiArchivo
        'relleno de marcadores
        Mandato.Documents.Item(1).Bookmarks.Item("Numero").Range.Text = Format(CDbl(dNumero), "000000")
        Mandato.Documents.Item(1).Bookmarks.Item("Fecha").Range.Text = Format(date,"dd-mmm-yyyy")
        Mandato.Documents.Item(1).Bookmarks.Item("Titulo").Range.Text = "Original"
        Mandato.Documents.Item(1).Bookmarks.Item("Referencia").Range.Text = "Empresa"
        'Envio a impresion
        Mandato.Application.PrintOut
        Set Mandato = Nothing
        'Sale sin grabar
        Mandato.Quit (0)

Efectivamente la variable esta mal asignada: El codigo completo es
Dim MiDocto As New Word.Application
MiArchivo = app.path & "MANDATO.DOC"

'abre el mandato
MiDocto.Application.Documents.Open MiArchivo
'relleno de marcadores
MiDocto.Documents.Item(1).Bookmarks.Item("Numero").Range.Text = Format(CDbl(dNumero), "000000")
MiDocto.Documents.Item(1).Bookmarks.Item("Fecha").Range.Text = Format(date,"dd-mmm-yyyy")
MiDocto.Documents.Item(1).Bookmarks.Item("Titulo").Range.Text = "Original"
MiDocto.Documents.Item(1).Bookmarks.Item("Referencia").Range.Text = "Empresa"
'Envio a impresion
MiDocto.Application.PrintOut
Set MiDocto= Nothing
'Sale sin grabar
MiDocto.Quit (0)

Al aplicar tu ayuda, VB no me considera el comando CLOSE como propiedad del objeto MiDocto

No me funciona el cuento

Gracias por tu ayuda