---

Hallo zusammen !

Ich brauche Eure Hilfe.
Das sollte meine erste Macro werden. Habe ich mir ganz einfach vorgestestellt. Aber leider doch nicht so einfach wie ich dachte.
Was ich vorhabe. Ich nehme ein vorhandener Bauteil -> Speichern unter.
Und unter I.Properties - Konstrukteur steht erstmal der "originele" Konstrukteur, den ich auf mein Name abändern will.
So habe ich mich erstmal versucht:

Sub Kon()
Dim Konstrukteur As String
Set Konstrukteur = "XXX"
Set kDesignerDesignTrackingProperties = Konstrukteur
End Sub

Aber gleich bei der zweiter Zeile kriege ich Fehlermeldung : Compile error: Object required.
Wo mache ich einen Fehler? Wie ich schon sagte - ist mein erster Macroversuch   

------------------
cosmo

[Diese Nachricht wurde von cosmo2 am 13. Mrz. 2013 editiert.]

[Diese Nachricht wurde von cosmo2 am 13. Mrz. 2013 editiert.]

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

---

Hallo Cosmo,

probier mal das um die Property zu setzen:

Code:

---

Sub SetProp()
    Dim oDoc As Document
    Set oDoc = ThisApplication.ActiveDocument
   
    oDoc.PropertySets(3)("Designer").Value = "cosmo2"
End Sub

---

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools
FX64 LambdaSpect - Lichtsimulation mit Autodesk Inventor

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

---

Danke!
Das hat geklappt.

------------------
cosmo

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

---

Wüstesst du auch wie man den Autor ändert?
Zu finden unter iProperties->Übersicht->Autor

Ich habe versucht mit folgendem Code alle I-Propertis auszulesen aber Autor ist nicht dabei...

Sub PropertyNameList()
    Dim oProp As Property, i As Integer, j As Integer
    For j = 3 To ThisApplication.ActiveDocument.PropertySets.Count
        For i = 1 To ThisApplication.ActiveDocument.PropertySets(j).Count
            Set oProp = ThisApplication.ActiveDocument.PropertySets(j).Item(i)
     
            Debug.Print oProp.Name
         
        Next
    Next
End Sub

Vielleicht hast du eine Idee 
Gruß

------------------
cosmo

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

---

Jetzt hat es sich erledigt. j=1 und dann geht es auch...

------------------
cosmo

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