Sub CATMain()

On Error Resume Next

' 3D-Werkzeugkasten deklarieren -------------------------------------
Dim APart As Part
Set APart = CATIA.ActiveDocument.Part
Dim Wzk3D As ShapeFactory
Set Wzk3D = APart.ShapeFactory

' Koerper deklarieren ------------------------------------------------
    Dim Koerper1, Koerper2 As Body
    Set Koerper1 = APart.Bodies.Item(1)
    For i = 2 To Bodies.Count
    Set Koerper2 = Bodies.Item(i)


' Koerper addieren --------------------------------------------------
APart.InWorkObject = Koerper1
Dim Operation As Add
Set Operation = Wzk3D.AddNewAdd(Koerper2)
APart.Update

End Sub