Ответ: - - - - в 12 кореле
Отличная идея -- вот код в чтобы в одно действие!...
Public Sub breackDASHandSPACE()
Dim origSel As ShapeRange, ss As Shape, sTemp As New Shape, sNew As New Shape, tempSSdupl As New Shape
Set origSel = ActiveSelectionRange
ActiveDocument.BeginCommandGroup...