Ver Mensaje Individual
  #3 (permalink)  
Antiguo 17/06/2009, 10:53
Avatar de Ing_FOFO
Ing_FOFO
 
Fecha de Ingreso: agosto-2008
Ubicación: Guatemala
Mensajes: 104
Antigüedad: 15 años, 9 meses
Puntos: 8
Respuesta: Mandar a escribir a una plantilla de word

Bueno lo he logrado, lástima que nadie me ha podido ayudar pero investigando lo he logrado. Les dejo un breve resumen para las personas que necesiten esto para futuras ocaciones:

Lo que necesitamos:

1. Agregar una referecia COM para la version de office que tengamos.
2. Hacemos los siguientes imports
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Core
3. Creamos los siguientes objetos:
Dim WordApp As New Word.ApplicationClass
Dim wordDoc As Word.DocumentClass
Dim Template As Object
Dim WordApp_temp As New Word.ApplicationClass
Dim wordDoc_temp As Word.DocumentClass
Dim Template2 As Object
4. Asignamos nuestro template y le mandamos los parametros de nuestra BD a nuestros Bookmarks:

Template = ("C:\\Cobro26_2007.dot")
WordApp_temp = CreateObject("word.application")
WordApp_temp.Visible = False
WordApp = CreateObject("word.application")
WordApp.Visible = False
WordApp_temp.Quit()
wordDoc = WordApp.Documents.Add(Template, , , )
wordDoc.Bookmarks.Item("anio").Range.Text = anio

Si se dan cuenta tuve que crear un objeto temporal para evitar los problemas de las referencias con Word.

Espero esto les sirva, cualquier duda estoy a las ordenes.

Saludos desde Guatemala
__________________
Si te ayude.... regalame un poquito de karma!!!

Los intelectuales resuelven los problemas; los genios ,los evitan.
Albert Einstein (1879-1955)