Jump to content

generar informe desde excel en un nuevo documento


Recommended Posts

hola que tal?, buen dia, tengo un pequeña duda y es que tengo una tabla de excel la cual me sirve para generar un informe que es un documento de word prediseñado, el problema radica en que esa plantilla que me "combina" desde excel no quiero que me combine esa plantilla sino que me genere un documento nuevo con esa plantilla ya que el usuario puede modificar la plantilla. Todo esto es algo como "combinar correspondencia" pero con menos pasos, ¿como puedo hacer que me genere ese informe deacuerdo a la plantilla pero como un documento nuevo ?(en combinar correspondencia sería -carta1-). Gracias y Saludos. Para poder que funcionen los archivos se tienen que descomprimir estos en una misma carpeta.

Anexo documento y libro.

ayudaexcel.rar

Link to comment
Share on other sites

  • 3 weeks later...

¿alo?, nadie que me ayude?

solo necesito que el documento prediseñado llamado "informe"; una vez combinado desde excel a word copie todo el documento "informe" (ya combinado previamente), abra un nuevo documento, pegue lo de informe a ese documento nuevo y cierre la plantilla " informe" sin guardar los cambios, dejando unicamente el documento nuevo (documento 1, 2, 3, etc) con los datos que se combinaron desde excel.

Link to comment
Share on other sites

mira esto que encontré en combito.com te servirá mucho

Después de revisar innumerables posts acerca de pasar datos desde Excel hacia Word encontré la mejor solución. Esta consiste en enviar los datos desde hojas Excel o cualquier variable hacia cualquier lugar en Word utilizando el método “buscar y reemplazar” con macros VBA en Excel.

La mejor ventaja es que pueden colocar diferentes variables con texto a voluntad, conservando el formato en cualquier parte de Word, además permite modificaciones posteriores. Muy útil para diseñar pequeños aplicativos para gestionar documentos diversos, como notificaciones, cartas, formatos de inscripción, sin utilizar la función “combinar correspondencia” en Word, todo esto se hace desde Excel.

Pasos:

1 Convertir o crear tu documento Word como plantilla, con extension .dotx, Archivo / Guardar como, luego seleccionan “Plantilla de Word (*.dotx)”, y cuando quieran utilizarla el documento abrirá una copia en vez del original. Para modificar el original tienen que abrirlo desde Archivo / Abrir, en Word.

guardar_como_plantilla

2 Deben colocar textos a reemplazar en la plantilla Word original, por ejemplo [reemp_nombre], [reemp_direccion], [reemp_telefono], o lo que se les ocurra (sin los corchetes también funciona).

1

3 Ahora viene el código en macros de Excel, inserten un nuevo módulo y peguen este código (no olviden guardar como “Libro habilitado para macros”):

3

Para una sola variable, solo reemplazará el texto “[reemp_nombre]“

Sub exportaraword1()

patharch = ThisWorkbook.Path & "\plantilla.dotx" 'ruta de la plantilla

Set objWord = CreateObject("Word.Application")

objWord.Visible = True

objWord.documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0

textobuscar = "[reemp_nombre]"

textoreemplazar = "Manuel Vizcarra"

objWord.Selection.Move 6, -1 'moverse al principio del documento

objWord.Selection.Find.Execute FindText:=textobuscar

While objWord.Selection.Find.found = True 'reemplaza el texto, y busca si hay otro para reemplazarlo

objWord.Selection.Text = textoreemplazar

objWord.Selection.Move 6, -1

objWord.Selection.Find.Execute FindText:=textobuscar

Wend

objWord.Activate

End Sub

Ahora el código para muchas variables (sólo es una sugerencia)

Sub exportaraword2()

Dim datos(0 To 1, 0 To 2) As String '(columna,fila)

patharch = ThisWorkbook.Path & "\plantilla.dotx"

Set objWord = CreateObject("Word.Application")

objWord.Visible = True

objWord.documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0

datos(0, 0) = "[reemp_nombre]"

datos(1, 0) = Hoja1.cells(1,1) 'datos(columna,fila) = Hoja1.cells(fila,columna)

datos(0, 1) = "[reemp_direccion]"

datos(1, 1) = Hoja1.cells(2,1)

datos(0, 2) = "[reemp_telefono]"

datos(1, 2) = Hoja1.cells(3,1)

For i = 0 To UBound(datos, 2)

textobuscar = datos(0, i)

objWord.Selection.Move 6, -1

objWord.Selection.Find.Execute FindText:=textobuscar

While objWord.Selection.Find.found = True

objWord.Selection.Text = datos(1, i) 'texto a reemplazar

objWord.Selection.Move 6, -1

objWord.Selection.Find.Execute FindText:=textobuscar

Wend

Next i

objWord.Activate

End Sub

4

Espero que este código les haya servido, aún no lo pruebo en Excel 2007, solamente en Excel 2010. Dejo los archivos de ejemplo para quepuedan descargarlo. No olviden dejar sus agradecimientos, buen día para todos.

Link to comment
Share on other sites

hola te agradesco mucho la aportacion, pero los archivos ejemplo no me aparecen tampoco el link donde sacaste l info, te agradeceria me lo pudieras volver a poner para poderlo digerir un poco mas tanta informacion jeje.

Link to comment
Share on other sites

hola de nuevo, estuve checando el codigo, y quise adaptarlo a mi codigo de mi archivo que subí convirtiendo el archivo que utilizo como plantilla como una verdadera plantilla (.doxt) pero a la hora de usar mi codigo no me funciona esa parte, despues de un rato de batalla me rendi queriendo o mas bien tratando de usar el codigo que me diste y pero encontré que en este codigo no logra adaptarse a la ultima fila escrita de la "base de datos", dado que uno manualmente tendria que poner la parte de estar escribiendo o sustituyendo (fila, columna) x (fiila, columna) y la verdad no supe como solucionarlo, ojala me puedas dar una ayuda extra a la informacion que me mandaste.

ya habiendo convertido mi archivo de word (plantilla) en un documento con extension .doxt y referirlo en mi codigo del archivo que subí no logro que me abra el documento copia, me sigue abriendo el documento original, la verdad no lo logro, podrias ayudarme?

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy