Dies ist mein Makro I

Sub AutoSave()
    Call allelöschen
End Sub


Und dies ist mein Makro II

Sub allelöschen()

Dim oDoc As Inventor.Document

Set oDoc = ThisApplication.ActiveDocument

AnzahlEigenschaften = oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Count()

For i = 1 To AnzahlEigenschaften
    oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item(1).Delete
Next i

End Sub


Bemerkung: beide Makro's sind im Bauteil gespeichert.