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
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 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!!!