Catia V5:
Dim MyDocument As Document Dim MyPart as Part Set MyDocument = CATIA.ActiveDocument Set MyPart = MyDocument.Part
Catia V6 EXPERIENCE:
Dim MyDocument As Editor Dim MyPart as Part Set MyEditor = CATIA.ActiveEditor Set MyPart = MyEditor.ActiveObject