Sub CATMain()

'****Abfrage Dokumente****
    Set oFenster = CATIA.Windows
    If oFenster.Count = 0 Then
        Box = MsgBox("Es ist kein Dokument geladen!" + Chr(10) + "Das Makro kann nicht ausgeführt werden und wird beendet!", vbCritical, "Keine Dokument geladen")
        Exit Sub
    End If
    Set aktiDoc = CATIA.ActiveDocument
    ObjType = TypeName(aktiDoc)
    If ObjType <> "PartDocument" And ObjType <> "ProductDocument" Then
        Box = MsgBox("Das aktiv geladen Dokument ist KEIN CATPart!" + Chr(10) + "Bitte aktivieren sie ein CATPart und starten sie das Makro erneut!", vbExclamation, "Abbruch falscher Dateityp")
        Exit Sub
    End If

'***Allgemeine Definitionen***
    Set oDoc = CATIA.ActiveDocument
    Set oPart = oDoc.Part
    Set oRel = oPart.Relations

'***Definition Suche***
    Dim otype(0)
    Dim Auswahl
    Set mySel = oDoc.Selection
    otype(0) = "DesignTable"
    mySel.Clear
    Auswahl = mySel.SelectElement2(otype, "Bitte wählen Sie die Design Tabelle aus die Sie löschen wollen.", False)
    If Auswahl = "Normal" Then
        oSelName = mySel.Item(1).Value.Name
        mySel.Delete
    Else
        Box = MsgBox("Sie haben die Selektion abgebrochen" + Chr(10) + "Das Makro wird nun beendet!", vbCritical, "Abbruch durch Nutzer")
        Exit Sub
    End If

'***Abschluss***
Box = MsgBox("Das Makro wurde erfolgreich beendet!" + Chr(10) + "Es wurde folgende Design Tabelle gelöscht" _
& Chr(10) + "==> " & oSelName & " <==", vbInformation, "Makro erfolgreich beendet")

End Sub
