SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Jose Arriagada en Lunes 2 de Diciembre de 2002, 18:27

Título: Re: Ayuda con archivo WORD desde VB!!!!
Publicado por: Jose Arriagada en Lunes 2 de Diciembre de 2002, 18:27

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)

Título: Re: Ayuda con archivo WORD desde VB!!!!
Publicado por: valedor en Martes 3 de Diciembre de 2002, 06:41

Supongo que la variable Mandato la inicializas en algun lado que no muestras en tu codigo, pero solo tienes que salir primero y despues eliminar la referencia...

'Salimos sin grabar
Mandato.Close False
'Ahora si, liberamos la memoria
Set Mandato = Nothing


Saludos desde México...

Título: Ayuda con archivo WORD desde VB!!!!
Publicado por: Jose Arriagada en Martes 3 de Diciembre de 2002, 14:29

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