This would help so much.
try this one
Sub ToggleTextFormats()Dim s As Shape, sr As ShapeRangeActiveDocument.BeginCommandGroup "Toggle"Optimization = TrueSet sr = ActiveSelectionRangeFor Each s In srIf s.Text.Type = cdrArtisticText Thens.Text.ConvertToParagraphs.RemoveFromSelectionEnd IfNext sSet sr = ActiveSelectionRangeFor Each s In srIf s.Text.Type = cdrParagraphText Then
s.Text.ConvertToArtistic
End IfNext sOptimization = False: RefreshActiveDocument.EndCommandGroup
End Sub
Thanks a lot Myron, it works like a charm!!!
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
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..."