Sub CATMain()
Dim documents1 'As Documents
Dim partDocument1 'As Document
Set documents1 = CATIA.Documents
Set partDocument1 = documents1.Add("Part")
End Sub