

Desde ya Muchas Gracias

| ||||
Respuesta: Mandar a escribir a una plantilla de word Nadie???? Que raro que nadie haya contestado a este Post. Bueno esperaré a que algún Gurú de la programación en VB.net se tome el tiempo para ayudarme. Gracias ![]() ![]() ![]()
__________________ Si te ayude.... regalame un poquito de karma!!! Los intelectuales resuelven los problemas; los genios ,los evitan. Albert Einstein (1879-1955) |
| ||||
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) |
| |||
Respuesta: Mandar a escribir a una plantilla de word Hola! Que sepas que el codigo anteriormente citado es perfecto y funciona a las mil maravillas, solo quiero remarcar un matiz para que se comprenda y se pueda usar este correctamente. En el punto 4: "Asignamos nuestro template y le mandamos los parametros de nuestra BD a nuestros Bookmarks:" En la plantilla de word debemos marcar unos bookmarks tal y como has indicado pero vayamos a concretar este punto ya que me causo confusion al utilizarlo. En el documento .dot debemos situar el cursor en el punto donde queremos insertar el texto (en mi caso, dentro de un cuadro de texto) ir al menu "Insertar > Marcador". Le asignamos un nombre a este punto del documento y pulsamos agregar. De esta forma definiremos el contenido que estara presente en nuestro documento. El nombre que hemos asignado sera el que tengamos que reflejar en la linea de codigo:
Código:
saludos wordDoc.Bookmarks.Item("Marcador_Documento_Word").Range.Text = anio |
| ||||
![]() Hola Shackpack, gracias por ampliar la explicacion. Y me alegro que te haya servido. Saludos ![]() ![]() ![]()
__________________ Si te ayude.... regalame un poquito de karma!!! Los intelectuales resuelven los problemas; los genios ,los evitan. Albert Einstein (1879-1955) |