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