---

Hallo gibts eigentlich eine Möglichkeit IDW IAM und IPT Dateien zu signieren dass immer nachvollziehbar ist wer die Datei erstellt hat.

Grüße Marcus

------------------
Marcus 

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

---

Hallo Marcus,

eigentlich nicht.
Du kannst aber eine neue Gruppe in den iProperties erstellen und darin ein Property erstellen:
"Wer hats erfunden" vom Typ Text mit dem Value "Marcus wars"
Da das in den normalen iProperties nicht angezeigt wird, sieht es niemand.
Über VBA kannst du es aber abfragen, löschen oder ändern.
Wenn du dann von einem Anderen eine Datei mit diesem Property bekommst, siehst du dass das eine Kopie von einem deiner Originale ist.

------------------
Gruß Roland

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

---

Hallo Roland ja das klingt doch gut :-)

ähm wie erstelle ich eine neue Gruppe in den iProperties.
ich bin net wirklich mit vba fit, habe aber jemanden an der Hand der mir immer wieder was programmiert.
Grüße

------------------
Marcus 

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

---

das könnte zum Einstieg schon helfen:
PropertySets.Add Method

------------------
Gruß KraBBy

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

---

oder die beiden Subs zum
Schreiben:

Code:

---

Public Sub eigenes_iProp()
    Dim oDoc As Document
    Set oDoc = ThisApplication.ActiveDocument
   
    Dim Mein_iPropSet As PropertySet
    On Error Resume Next 'sonst Laufzeitfehler, wenn das iProp schon vorhanden ist
   
    Set Mein_iPropSet = oDoc.PropertySets.Add("Mein_iPropSet")
    oDoc.PropertySets("Mein_iPropSet").Add "Marcus", "Erfinder"
   
End Sub

---

Lesen:

Code:

---

Public Sub ErfinderCheck()
    Dim oDoc As Document
    Set oDoc = ThisApplication.ActiveDocument
   
    Dim oPropSet As PropertySet
    Dim oItem As Property
    For Each oPropSet In oDoc.PropertySets
        If oPropSet.Name = "Mein_iPropSet" Then
       
            For Each oItem In oDoc.PropertySets("Mein_iPropset")
                If oItem.Name = "Erfinder" Then
                    MsgBox "Erfinder: " & oItem.Value
                    End If
            Next 'oItem
        End If
    Next 'oPropSet
End Sub

---

------------------
Gruß Roland

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