Sub CATMain()
    
    Dim productdocument1 As ProductDocument
    Set productdocument1 = CATIA.ActiveDocument
    Dim product1 As Product
    Set product1 = productdocument1.Product
    Dim products1 As Products
    Set products1 = product1.Products
    
    Dim documents1 As Documents
    Set documents1 = CATIA.Documents
                
'----------------------------------- Selektion zum Löschen definieren -------------------------------------------------
    
    Dim LoeschSelection
    Set LoeschSelection = CATIA.ActiveDocument.Selection
    LoeschSelection.Clear
            
'----------------------------------- Part aus Produktstruktur löschen -------------------------------------------------
                
    Set partDocument1 = documents1.Item("PART1.CATPart")
    Set part1 = partDocument1.Part
    
    Dim product10 As Product
    Set product10 = products1.Item("Part1.1")
    LoeschSelection.Add product10
    
    LoeschSelection.Delete
    
'----------------------------------- Part von Festplatte löschen ------------------------------------------------------
    
    CATIA.FileSystem.DeleteFile (partDocument1.fullname)
        
'----------------------------------- Schleife zum Füllen der Undo-Schritte --------------------------------------------
        
    For n = 1 To xyz
    
        '????? Hier sollen die Schritte ausgeführt werden, damit das Item aus der Document Collection entfernt wird.
    
    Next n
    
    product1.Update
        
End Sub