InlineShape.Model3D (Word)

Dim mdfModel3D As Model3DFormat
Set mdfModel3D = ActiveDocument.Range.InlineShapes(1).Model3D