text Normteil zu Bauteil

Posted 2021-05-01

' Das Makro löscht das 5 Property Set
' und macht so aus Normteilen die
' normale, editierbare Bauteile
' Funktioniert in der Bauteilumgebung
' Das Bauteil wird nicht automatisch gespeichert
'
' Igor Zupevc, FX64, 12.12.2013
Sub ContentToNormalPart()
    If (ThisApplication.ActiveDocumentType <> kPartDocumentObject) Then
        MsgBox "Das Makro funktioniert nur in der Bauteilumgebung.", vbExclamation, "ContentToNormalPart"
        Exit Sub
    End If
    On Error Resume Next
    ThisApplication.ActiveDocument.PropertySets(5).Delete
     
    If (Err.Number <> 0) Then
        MsgBox "Ein Fehler ist aufgetreten. Das Bauteil ist vermutlich kein Normteil.", vbCritical, "ContentToNormalPart"
    Else
        MsgBox "Das fünfte Property Set wurde erfolgreich entfernt. Das Bauteil ist kein Normteil mehr.", vbInformation, "ContentToNormalPart"
         
    End If
End Sub