Pasar un documento de Word a Excel desde Word

[Antoni]

Hola:

Os dejo una macro VBA para vuestro documento de Word.

Si ejecutais esta macro, se generará un libro Excel con el documento en la columna 1.

El editor de VBA de Word, funciona exactamente igual que el de Excel.

Añadir un módulo al Proyecto y copiar la macro:

Sub DeWordAExcel()

'

'Esta macro, debe estar en el documento de Word en un módulo normal,

'y se ejecuta igual que en Excel, Alt F8, seleccionar la macro y pulsar "Ejecutar" 


Application.ScreenUpdating = False

Set ConexionExcel = New Excel.Application

With ConexionExcel

   .Workbooks.Add

   .Visible = True

   .Cells.Clear

End With

x = 1

Selection.HomeKey Unit:=wdStory

Do Until Selection.Bookmarks.Exists("\EndOfDoc") = True

   Selection.HomeKey Unit:=wdLine

   Selection.EndKey Unit:=wdLine, Extend:=wdExtend

   ConexionExcel.Cells(x, 1) = Left(Selection.Text, Len(Selection.Text) - 1)

   Selection.MoveDown Unit:=wdLine, Count:=1

   x = x + 1

Loop

End Sub

[/CODE]

Un saludo. "Macro".

[verzulsan]

Madre mia, nunca dejas de explorar nuevos horizontes y de sorprenderme. Bastante util para ahorrar tiempo con copy/pegas, aun que llevo haciendolo tanto tiempo que ya lo hago inconscientemente, aun que esto por su puesto es mas rapido.

Realmente tienes una mente informatica

[Salvador1]

Hola:

Por si le pasa a alguien más como a mi (que dé un error en la linea "Set ConexionExcel = New Excel.Application"), con solo cambiar "New Excel.Applicatión" por CreateObject("Excel.Application"), funcionará.

Un saludo.