ShapeRange.TextEffect (Word)

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

Applies to ShapeRange objects that represent WordArt.

Dim sre As ShapeRange: Set sre =  
Dim tefTextEffect As TextEffectFormat
Set tefTextEffect = sre.TextEffect