Macro for TEXT Box to Plain Text Conversion?

[binar]

Fellow Forum Members,
I have a table containing a lot of data that was created using some
engineering application from Autodesk. The file has been converted to a CGM
format and this enables me to import it into WORD 2003 and take the table
apart. The problem is that the data for the table converts into a bunch of
objects. The text alone is made up of close to 400 individual text boxes. I
need help creating a macro that will select the text inside each text box and
then paste it as plain text on a page. Manually converting close to 400 text
boxes using a cut and paste operation is something I would like to avoid. I
would appreciate it if anyone out there can help me figure out how to best
convert 400 text boxes each containing text I need converted into Plain Text.
Thanks.

 

[Bear]

Binar:

I created five text boxes, each with one letter, spelling the word "Write."
I used the drawing selection tool to select all five, and was able to extract
each letter with this code in the immediate box.

?Selection.ShapeRange(1).TextFrame.TextRange.Text

In other words, whatever group of shapes you can gather into a shaperange --
say all the shapes in a Cell.Range, you can step through and build into a
text string.

Bear