Макрос: Конверт текст

[Sanchos]

Вот мелочть, но полезная... можд и вам сгодится.
Пробегает по выделеному и если находит Артистик текст, то конвертит его в Параграф и наоборот...

Sub textConvertTo()
    Dim s As Shape, r As New ShapeRange
    Set r = ActiveSelectionRange
    For Each s In r
        If s.Type = cdrTextShape Then
            If s.Text.Type = cdrArtisticText Then
                s.Text.ConvertToParagraph
            Else
                If s.Text.Type = cdrParagraphText Then s.Text.ConvertToArtistic
            End If
        End If
    Next s
End Sub