For a single selected shape you could change:
With ActiveDocument.Shapes(1)
to:
With Selection.ShapeRange(1)
You could, of course, change the index # to refer to the 2nd, 3rd, etc. Shape in the document or selection, as appropriate. For multiple shapes, you'd need to implement a loop.

To work with text in a shape, refer to its .TextFrame.TextRange property.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]