VBA: Wie kann ich die Inventor iProperties auslesen?

Mit diesem kleine VBA-Programm können die iProperties eines Modells ausgelesen werden.

Public Sub iprops()
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
Dim oPropSets As PropertySets
    Set oPropSets = oDoc.PropertySets
    Dim oProp As Property
    Dim oPropSet As PropertySet
  
    For Each oPropSet In oPropSets
                Debug.Print "-------------------------------------------------------------------------------------"
                Debug.Print oPropSet.DisplayName & " | " & oPropSet.Name
                Debug.Print "-------------------------------------------------------------------------------------"
                For Each oProp In oPropSet
                On Error GoTo Naechstes
                Debug.Print oProp.DisplayName & " | " & oProp.Name & " =" & oProp.Value
          
Naechstes:
                Next

     Next
End Sub

Ausgegeben werden der deutsche Name (oProp.DisplayName), der englische Name (oProp.Name) und der Wert (oProp.Value) des iProperties.

Dort tauchen z.B. auch so iProperties auch wie “Last Updated With” die ich in diesem Beitrag verwendet habe.