Is there a macro to find and convert all paragraph text to artistic on a page or document?

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

You don't need a macro for this - just a right click

But if a I have two or twenty paragraph text doesn´t works. besides working with macros is for accelerate the workflow in big projects, not for only easy designs.

try this one

Sub ToggleTextFormats()
Dim s As Shape, sr As ShapeRange
ActiveDocument.BeginCommandGroup "Toggle"
Optimization = True
Set sr = ActiveSelectionRange
For Each s In sr
If s.Text.Type = cdrArtisticText Then
s.Text.ConvertToParagraph
s.RemoveFromSelection
End If
Next s
Set sr = ActiveSelectionRange
For Each s In sr
If s.Text.Type = cdrParagraphText Then

s.Text.ConvertToArtistic

End If
Next s
Optimization = False: Refresh
ActiveDocument.EndCommandGroup

End Sub

Thanks a lot Myron, it works like a charm!!!