How to change font style in wordart....

[licsivaraman]

Dear Friends,

i have created a file consisting more than 100 wordarts. after taking print i feel to change the font style. but i couldn't change for all the wordarts at one click. i have to change every wordarts seperately. which practically difficult. Please help me in this regard.



thanks in advance...

Sivaraman.V

[macropod]

Hi Sivaraman,

Try something based on the following macro:

Sub UpdateWordArt()
Dim oShp As Shape, iShp As InlineShape
For Each oShp In ActiveDocument.Shapes
  If oShp.Type = msoTextEffect Then
    With oShp.TextEffect
      .FontName = "Arial"
      .FontBold = False
      .FontItalic = False
      .FontSize = 36
    End With
  End If
Next
For Each iShp In ActiveDocument.InlineShapes
  If iShp.Type = wdInlineShapePicture Then
    With iShp.TextEffect
      .FontName = "Arial"
      .FontBold = False
      .FontItalic = False
      .FontSize = 36
    End With
  End If
Next
End Sub

The macro handles WordArt objects that are in-line with the text or are 'floating' on the page. You can change the various attributes to suit your needs.

[licsivaraman]

Hai Mr.Paul Edstein,

thanks a lot. it worked great.
i am really thankful to u.