InlineShape.TextEffect (Word)

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

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