How to change font style in wordart....

licsivaraman · #1 01-24-2011, 05:51 AM

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 · #2 01-24-2011, 04:20 PM

Hi Sivaraman,

Try something based on the following macro:

Code:

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 · #3 01-24-2011, 11:27 PM

Hai Mr.Paul Edstein,

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Change font & point size?	markg2	Outlook	2	06-09-2010 03:23 PM
Change Default Font Word	datuk.ahmad	Word	3	03-09-2010 04:47 PM
Change font across company	Dill	Excel	1	11-04-2009 08:21 PM
Can't change font type or size	sideways	Word	2	11-01-2009 09:57 AM
How do I change the default font?	mrylanxus	Office	1	05-31-2009 01:52 AM