might be a start. You'll have to select in the order you want and re-size the paragraph frame. Sub ConvertArtTextToPara() ActiveDocument.BeginCommandGroup "ConverArtTextToPara" Dim s As Shape, sr As ShapeRange Set sr = ActiveSelection.Shapes.FindShapes(, ArtisticText) For Each s In sr s.Text.ConvertToParagraph Next s sr.Combine ActiveDocument.EndCommandGroup End Sub
↧
