Cómo extraer texto de Word2003 AutoShape

No sabes programar en WORD. Puedes pegar la Autoforma en EXCEL y luego ejecutar el siguiente programa:

Sub?Read AutoShape text() Dim?myshape? ¿Como?Forma [a1].Activar para?Cada?miforma?En?ActiveSheet.Shapes

ActiveCell.Offset(1,?0).Activar

myshape.Select

ActiveCell.Value?=?Selection.Characters.Text Next?myshape

Fin?Sub

——————————————— — ————————————————————————————————————————?

Si No puedes pegar el programa macro, Hola.