---

Hallo. wer weiß, wie man in VBA die iProperty "Revisionsnummer" anspricht?
Mit "Revision Number" scheint es nicht zu funktionieren, oder wo ist mein Fehler?

Code:

---

' Revisionsstand bestimmen
Dim sRev As String
sRev = "0"

' Get the PropertySets object.
Dim oPropSets As PropertySets
Set oPropSets = oDoc.PropertySets

' Get the design tracking property set.
Dim oPropSet As PropertySet
Set oPropSet = oPropSets.Item("Design Tracking Properties")
' Get the Revision Number iProperty.
    Dim oRevProp As Property
    Set oRevProp = oPropSet.Item("Revision Number")

sRev = oRevProp.Value

---

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

---

Hab den Fehler selbst gefunden.

Code:

---

Set oPropSet = oPropSets.Item("Design Tracking Properties")

---

muss lauten:

[CODE]Set oPropSet = oPropSets.Item("Inventor Summary Information")/CODE]

Schönes WE.

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