Jump to content
Sign in to follow this  
juan1to

como crear una macro para copiar datos de word hacia excel

Recommended Posts

bueno espero que me puedan ayudar actualmente estoy trabajando en una compañia de seguros y mi trabajo consta en que me mandan constancias de polizas en word osea una tabla con cuatro columnas con dni, apellido materno, apellido materno, primer nombre, y lo que tengo que hacer es copiar esas cuatro columnas y pegarlas en una plantilla de excel parece facil pero el volumen de archivos que me mandan es damasiado y nose si se pudiera copiar todos esos datos mendiante una macro desde word para pegarlo en excel en sus respectivas columnas de antemano gracias x :( la ayuda

Share this post


Link to post
Share on other sites

Respuesta: como crear una macro para copiar datos de word hacia excel

No conosco muy bien el modelo de objetos de Word, por lo que te propongo una macro en Excel.

Debes hacer una referencia hacia Word: CreateObject:"Application.Word"

Aqui supongo que ya tienes el archivo Tablas.doc en la direcciòn indicada

La tabla se pegarà en la celda A1 de la hoja 1.

cuidado con el nombre de la Hoja1 (Sheet1)

Sub wdxl()

Const MiDocu As String = "C:\Tablas.doc"

Dim wAp As Object

Dim wordDoc As Object

Dim ws As Worksheet

Set wAp = CreateObject("Word.Application")

Set wordDoc = wAp.Documents.Open(MiDocu)

Set ws = Worksheets("Sheet1")

ws.Activate

ws.Range("A1").Select

wordDoc.Tables(1).Select

wAp.Selection.Copy

ActiveSheet.Paste Link:=True

wAp.Quit

End sub

Share this post


Link to post
Share on other sites

Re: Respuesta: como crear una macro para copiar datos de word hacia excel

buen dia emiaj6130 inetente usar esa macro pero me sale erreo 5121 en tiempo de ejecucion

y no se pudo abrri word

agradeceria mucho me pudieras ayudar

gracias

Share this post


Link to post
Share on other sites

La probe y a mi me anda bien en excel 2003 que es lo que yo uso, checa el idioma de tu office, si es español cambia Sheet1 por Hoja1, tambien revisa en el editor que este habilitada la referencia a Microsoft Word 11 object library

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy