TextFrame.ThreeD (Word)

Returns a ThreeDFormat object that contains 3D effect formatting properties for the specified text frame.

Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = ActiveDocument.Background.TextFrame.ThreeD