---

Hallo Zusammen
Ich arbeite nun mit Inv 2016 und Vault WG 2016. Bei Neuspeicherung eröffnet sich ein Iproperty-Fenster in dem vieles eingetragen werden kann. Über den Nummerngenerator wird auch automatisch eine Zeichnungsnummer, ist auch Dateiname, vergeben. Bei "Benutzerdefiniert" taucht jetzt ein Eintrag "DocNumber" mit dem Wert Dateiname (ohne .ipt, .iam)auf. Ich benötige diesen Eintrag nun in "Bauteilnummer" in Projekt. Aufgrund von Historien kann ich das nicht mit fx machen. Kann mir jemand bei einer VBA-Lösung helfen?

------------------
Didi

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

---

Habe die Lösung gefunden.

Code:

---

Public Sub Teilenummer()

  Dim oDoc As PartDocument
  Set oDoc = ThisApplication.ActiveDocument
   
  Dim oPropSets As PropertySets
  Set oPropSets = oDoc.PropertySets
 
  Dim oPropSet As PropertySet
  Dim oProp As Property
 
  On Error Resume Next
  Set oProp = oDoc.PropertySets(4).Item("DocNumber")
 
  For Each oPropSet In oPropSets
       
    For i = 1 To oPropSet.Count
     
      If oPropSet(i).Name = "Part Number" Then
        On Error Resume Next
        Debug.Print oPropSet(i).Name & "    " & oPropSet(i).Value
        oPropSet(i).Value = oProp.Value
      End If
     
      If oPropSet(i).Name = "Creation Time" Then
        On Error Resume Next
        Debug.Print oPropSet(i).Name & "    " & oPropSet(i).Value
        oPropSet(i).Value = Now
      End If

---

Gruß

------------------
Didi

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