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
I got this error:
Well, it’s clear - there is no text and nothing to convert. Why is there an empty frame there?
you need to either check or ignore errors Add after 2nd line macro new lineOn Error Resume Next
it will be easier