VB 2005 y Word 2003

04/12/2006 - 00:39 por Ariel | Informe spam
Hola, estoy tratando de pasar el contenido de textbox a un documento de
word 2003 que tiene un marcador, esto hasta ahora lo he logrado, el
problema es que despues de imprimir quiero cerrar el documento sin
ningun cambio y cerrar las instancias de word abiertas(No quiero abrir
el word en forma visual)
Este codigo lo saque de aca y es el que utilizo:

Public Class Form1
Dim wd As Microsoft.Office.Interop.Word.Application
Dim wDoc As Microsoft.Office.Interop.Word.Document
Dim ObjDoc1 As Microsoft.Office.Interop.Word.Bookmark

Private Sub SimpleButton1_Click1(ByVal sender As Object, ByVal e As
System.EventArgs) Handles SimpleButton1.Click
wd = CreateObject("Word.Application")
wDoc = wd.Documents.Open("F:\Documents and
Settings\Ariel\Documento.doc", Type.Missing, True, )
wDoc.Bookmarks("MiMarcador").Range.Text = TextEdit1.Text
wDoc.PrintOut()


End Sub
End Class

Preguntas similare

Leer las respuestas

#1 Ariel
09/12/2006 - 11:04 | Informe spam
Le 03/12/2006, Ariel a supposé :
Hola, estoy tratando de pasar el contenido de textbox a un documento de word
2003 que tiene un marcador, esto hasta ahora lo he logrado, el problema es
que despues de imprimir quiero cerrar el documento sin ningun cambio y cerrar
las instancias de word abiertas(No quiero abrir el word en forma visual)
Este codigo lo saque de aca y es el que utilizo:

Public Class Form1
Dim wd As Microsoft.Office.Interop.Word.Application
Dim wDoc As Microsoft.Office.Interop.Word.Document
Dim ObjDoc1 As Microsoft.Office.Interop.Word.Bookmark

Private Sub SimpleButton1_Click1(ByVal sender As Object, ByVal e As
System.EventArgs) Handles SimpleButton1.Click
wd = CreateObject("Word.Application")
wDoc = wd.Documents.Open("F:\Documents and
Settings\Ariel\Documento.doc", Type.Missing, True, )
wDoc.Bookmarks("MiMarcador").Range.Text = TextEdit1.Text
wDoc.PrintOut()


End Sub
End Class



Bueno, de tanto buscar encontre la solucion con estas lineas de codigo:
wDoc.PrintOut(False)
wDoc.Close(False)
wDoc = Nothing
wd.Quit()
wd = Nothing

Saludos.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida