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
Thanks Myron. Does this search the page for each paragraph text object? I ran it but I had to select one instance and the others were not changed.
Only searches from what you select as per your request.
"...but there is a way to only convert the select paragraph text..."
That is not my quote.
Oops, sorry about that.