Sub CATMain()
Dim documents ' As Documents
Dim partDocument' As Document
Dim hybridBodies 'As HybridBodies
Dim hybridBody 'As HybridBody
Set documents = CATIA.Documents
Set partDocument = documents.Add("Part")
Set hybridBodies = catia.activedocument.part.HybridBodies
Set hybridBody = hybridBodies.add
End Sub