ConvertToArtistic

[Mike]

How do i use ConvertToArtistic to convert all paragraph text in my document
to artistic text. Could someone please note code for doing this. I would
really appreciate it, Thank You -Mike

[Alex Vakulenko]

Hi Mike,

Here is a VBA code for you:

'=====================
Sub ConvertParagraphToArtistic()
Dim s As Shape
For Each s In ActiveDocument.ActivePage.Shapes
ConvertShape s
Next s
End Sub

Private Sub ConvertShape(s As Shape)
Dim ss As Shape
Select Case s.Type
Case cdrTextShape
If s.Text.Type = cdrParagraphText Then
s.Text.ConvertToArtistic
End If
Case cdrGroupShape
For Each ss In s.Shapes
ConvertShape ss
Next ss
End Select
End Sub
'=====================

I hope this helps.

--
=============================
Alex Vakulenko, al...@vakcer.com
http://www.vakcer.com/oberon

[Mike]

Thank you so much I tried for hours trying to get that
-Mike

[Adam Twardoch]

"Alex Vakulenko" <al...@vakcer.com> wrote in message news:3a69db2c@cnews...

> Case cdrGroupShape
> For Each ss In s.Shapes
> ConvertShape ss
> Next ss

Recurrence. :) Good :) I'll remember this one, it's actually kind of
universal.

A.