Microsoft Office Forums - View Single Post - [Solved] How to change font style in wordart....

macropod · 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.