Shape.TextEffect (Word)

Returns a TextEffectFormat object that contains text-effect formatting properties for the specified shape.

This property applies to Shape objects that represent WordArt.

Set myDocument = ActiveDocument 
With myDocument.Shapes(3) 
 If .Type = msoTextEffect Then 
 .TextEffect.FontBold = True 
 End If 
End With