Sub Hauptkoerper_kopieren()
Set Document1 = CATIA.ActiveDocument
Set part1 = Document1.Part
Set body1 = part1.Bodies.Item(1)
Set selektion1 = CATIA.ActiveDocument.selection
selektion1.Clear
selektion1.Add body1
selektion1.Copy
'Document.Close
Set document2 = CATIA.Documents.Add("Part")
document2.Activate
MsgBox selektion1.Count
MsgBox selektion1.Item(1).Value.Name
Dim part2 As Part
Set part2 = document2.Part
Set selektion2 = document2.selection

'MsgBox selektion2.Count
'MsgBox selektion2.Item(1).Value.Name
'Set bodies2 = part2.Bodies
'Set body2 = bodies2.Item(1)
selektion2.Add part2
selektion2.PasteSpecial "CATPrtResultWithOutLink"
part2.Update
End Sub