Ответ: Кривые стрелки
Попробуй вот этот макрос...
Sub d_ConvertOutline()
Dim origSel As ShapeRange, myAlign As New ShapeRange
Dim ss As Shape, s As New Shape, sss As New Shape, sssT As New Shape
Set origSel = ActiveSelectionRange
ActiveDocument.BeginCommandGroup "d_ConvertOutline"...