with text selected
sr.Duplicate.CreateSelectionset sr = ActiveShapeRangesr.BreakApart
now only one character is selected
how to add the other characters back to the ShapeRange.
set sr = sr.BreakApartEx
Same result