This would help so much.
try it
Sub convert()Dim spar As Shape, sr As ShapeRange, p As Page
For Each p In ActiveDocument.Pages p.Activate
Set sr = ActivePage.Shapes.FindShapes(Query:="@type = 'text:paragraph'") For Each spar In sr spar.Text.ConvertToArtistic Next spar sr.RemoveAllNext pEnd Sub
You can try "Find" option and selecting the kind of object, then apply the change with the menu. Maybe on latests versions on Corel Draw you can use "Find & Replace" also for multiple pages in one time. It can work faster. There can be also other solutions despiting macros.
Hi, good macro but there is a way to only convert the select paragraph text and the inverse case, artistic text to paragraph text?
thanks
Thank you! I will try this.
Funny thing about the Find docker is that it seems to be bugged. It only worked one time and I had to reset and add a new query and run it again.