When we select two or more boxes of artistic text, we cannot convert them all once into paragraph text. Same goes the other way - two or more selected paragraph text boxes cannot be simultaneously converted to artistic text.Please, make it possible.
This code below should help:
Sub convert_paragraph_to_artistic() Dim s As Shape, p As Page Dim srParagraph As ShapeRange For Each p In ActiveDocument.Pages Set srParagraph = p.Shapes.FindShapes(query:="@type='text:paragraph'") 'Get Paragraph TextActivePage.Shapes.FindShapes(Query:="@type='text:paragraph'") 'Get Paragraph Text For Each s In srParagraph s.Text.ConvertToArtistic Next s Next pEnd Sub
Wow, thank you veeery much! You saved me a lot of time manually converting each paragraph text boxes
It's really a pain to scale paragraph text in Corel.
Try hold ALT key when scale paragraph text