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".
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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:
Un saludo. "Macro".