Shape.Model3D (Word)

Returns a Model3DFormat object that contains Model3D properties.

For Each s In ActiveDocument.Shapes
 If s.Type = mso3DModel Then s.Model3D.AutoFit = True
Next