Den Datentyp kannst du dort nicht ändern.
iProperties sind in PropertySets zusammengefaßt. Diese Sets beinhalten mehrere iProperties. Warum auch immer, die Sets sind nicht identisch mit den Reitern im iProperty-Dialog. Deswegen findest du im PropertySet mit der Bauteilnummer, die Revisionsnummer nicht. Vergleiche die internen Nummern aus deinem und meinem Code. Hier mal die Liste für ein Part. Jeweils PropertySet-DisplayName, -Name, -InternalName und Property-DisplayName und -Name.

Inventor - Zusammenfassungsinformationen --- Inventor Summary Information --- {F29F85E0-4FF9-1068-AB91-08002B27B3D9}
    Titel --- Title
    Thema --- Subject
    Autor --- Author
    Schlüsselwörter --- Keywords
    Kommentare --- Comments
    Zuletzt gespeichert von --- Last Saved By
    Revisionsnummer --- Revision Number
    Miniaturansicht --- Thumbnail
Inventor - Zus.-fassungsinfo f. Dokument --- Inventor Document Summary Information --- {D5CDD502-2E9C-101B-9397-08002B2CF9AE}
    Kategorie --- Category
    Manager --- Manager
    Firma --- Company
Design Tracking - Eigenschaften --- Design Tracking Properties --- {32853F0F-3444-11D1-9E93-0060B03C1CA6}
    Erstellungsdatum --- Creation Time
    Bauteilnummer --- Part Number
    Projekt --- Project
    Kostenstelle --- Cost Center
    Kontrolliert von --- Checked By
    Datum Überprüfung --- Date Checked
    Konstruktion genehmigt von --- Engr Approved By
    Datum Konstruktionsgenehmigung --- Engr Date Approved
    Benutzerstatus --- User Status
    Material --- Material
    Bauteilrevision --- Part Property Revision Id
    Web-Verknüpfung für Katalog --- Catalog Web Link
    Bauteilsymbol --- Part Icon
    Bezeichnung --- Description
    Zulieferer --- Vendor
    Bauteiltyp --- Document SubType
    Name des Bauteiltyps --- Document SubType Name
    Datum Proxy-Aktualisierung --- Proxy Refresh Date
    Fertigung genehmigt von --- Mfg Approved By
    Datum Fertigungsgenehmigung --- Mfg Date Approved
    Kosten --- Cost
    Norm --- Standard
    Konstruktionsstatus --- Design Status
    Konstrukteur --- Designer
    Ingenieur --- Engineer
    Bevollmächtigter --- Authority
    Parametrisierte Vorlage --- Parameterized Template
    Vorlagenzeile --- Template Row
    Revision externes Bauteil --- External Property Revision Id
    Normrevision --- Standard Revision
    Hersteller --- Manufacturer
    Normen - Organisation --- Standards Organization
    Sprache --- Language
    Aktualisierungen aufschieben --- Defer Updates
    Größenbezeichnung --- Size Designation
    Kategorien --- Categories
    Bestandsnummer --- Stock Number
    Material der Schweißnaht --- Weld Material
    Masse --- Mass
    Fläche --- SurfaceArea
    Volumen --- Volume
    Dichte --- Density
    Gültige Masseneigenschaften --- Valid MassProps
    FlatPatternExtentsWidth --- Flat Pattern Width
    FlatPatternExtentsLength --- Flat Pattern Length
    Fläche für Größe der Abwicklung --- Flat Pattern Area
    Blechregel --- Sheet Metal Rule
    Letzte Aktualisierung mit --- Last Updated With
    Blechbreite --- Sheet Metal Width
    Blechlänge --- Sheet Metal Length
    Blechbereich --- Sheet Metal Area
Inventor - Benutzerdefinierte Eigenschaften --- Inventor User Defined Properties --- {D5CDD505-2E9C-101B-9397-08002B2CF9AE}
Piping Style --- Piping Style --- {344C6667-62E9-41A8-87AD-1C862B5638BF}
    Name --- Name
    ActiveState --- ActiveState
    PipeType --- PipeType
    RoutePreview --- RoutePreview
    Material --- Material
    Standard --- Standard
    FittingMaterial --- FittingMaterial
    FittingStandard --- FittingStandard
    RouteDirection90 --- RouteDirection90
    RouteDirection45 --- RouteDirection45
    DiameterType --- DiameterType
    Diameter --- Diameter
    Schedule --- Schedule
    OD --- OD
    ID --- ID
    Ending --- Ending
    IntermediateSegmentsMin --- IntermediateSegmentsMin
    IntermediateSegmentsMax --- IntermediateSegmentsMax
    IntermediateSegmentsInc --- IntermediateSegmentsInc
    TerminationSegmentsMin --- TerminationSegmentsMin
    TerminationSegmentsMax --- TerminationSegmentsMax
    TerminationSegmentsInc --- TerminationSegmentsInc
    RoundUpValue --- RoundUpValue
    DefaultBendRadius --- DefaultBendRadius
    BendRadius --- BendRadius
    SolidRoutePreviewColor --- SolidRoutePreviewColor
    PipingComponentColor --- PipingComponentColor
    PipeKey --- PipeKey
    CouplingKey --- CouplingKey
    StartFittingKey --- StartFittingKey
    EndFittingKey --- EndFittingKey
    Elbow90Key --- Elbow90Key
    Elbow45Key --- Elbow45Key
    SuppressStartFitting --- SuppressStartFitting
    SuppressEndFitting --- SuppressEndFitting
    UseSubASM --- UseSubASM
iLogicEventsRules --- iLogicEventsRules --- {2C540830-0723-455E-A8E2-891722EB4C3E}

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Beachte, das du den falschen internen Namen des PropertySets verwendest. Wenn man ins falsche Buch schaut, kann man die betreffende Textpassage lange suchen. ;)
Ein Listing bekommst du z.B. so

Code:

---

Private Sub ListProps()

Dim odoc As Document
Set odoc = ThisApplication.ActiveDocument

Dim oPropSet As PropertySet
Dim oProp As Property

For Each oPropSet In odoc.PropertySets
    Debug.Print oPropSet.DisplayName & " --- " & oPropSet.Name & " --- " & oPropSet.InternalName
    For Each oProp In oPropSet
        Debug.Print "    " & oProp.DisplayName & " --- " & oProp.Name
    Next
Next

End Sub

---