Object doesn't support this property or method - partDocument1.part

[kuleszajmk]

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1
Set partDocument1 = CATIA.ActiveDocument

Dim part1
Set part1 = partDocument1.Part