---

Ich füge mit dem Code eine Benutzerdef. iPropertie hinzu.
Wenn Sie noch nicht existiert wird der "Status" genommen und dorthin übertragen.

Code:

---

Public Sub Propertie_Index_Add()
    On Error Resume Next
    Set Doc = ThisApplication.ActiveDocument
    Debug.Print Doc.PropertySets.item("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").item("Index").Value
    If Err.Number <> 0 Then
        Dim temp_index As String
        Debug.Print "Error: " & Err.Number
        temp_index = Doc.PropertySets.item("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").item("User Status").Value
        Debug.Print "temp_index: " & temp_index
        Set Property = Doc.PropertySets.item("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Add(temp_index & "", "Index")
        Debug.Print "Error: " & Err.Number
    End If
End Sub

---

Zu beginn hatte ich diese Zeile:

Code:

---

Set Property = Doc.PropertySets.item("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Add(temp_index & "", "Index")

---

Ohne dem

Code:

---

& ""

---

Da hat es nicht funktioniert und er hat mir den eintrag nicht gemacht bei den Benutzerdef. iProperties. Aber mit dem fügt er mir alles so ein wie ich es will.
Kann mir jemand erklären warum das so ist? Ich habe ja den temp_index als String definiert Inhalt ist "00".

------------------
Grüße aus Wien
Philipp
Email: Base64 Encoded:
cGhpcHNfOTJAeWFob28uZGU=

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

---

Hallo

Du wirst es nicht glauben aber es liegt an der Variable "temp_index"

Mache mal ein "a"davor zb: "atemp_index"
oder ein anderes Wort zB.: "PropValue" dann geht es :-)

wahrscheinlich denkt er es wäre ein Befehl

Gruß
Berno

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

---

Oh man 
Dann ist das eine Vorgegebene oder wie?^^

------------------
Grüße aus Wien
Philipp
Email: Base64 Encoded:
cGhpcHNfOTJAeWFob28uZGU=

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