Sub Test() Dim s As Shape For Each s In ActivePage.FindShapes(, cdrTextShape) If s.Text.Type = cdrParagraphText Then s.Text.ConvertToArtistic s.ConvertToCurves End If Next sEnd Sub