InlineShape.TextEffect (Word)

Devuelve un objeto TextEffectFormat que contiene las propiedades de formato de efecto de texto de la forma entre líneas especificada.

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