---

Hallo,

ich habe ein Macro in der idw zu laufen das die letzte Speicherung der idw automatisch im Datumsfeld einschreibt. Dieses Macro zeigt mir im Bauteil (ipt) unter Benutzerdefiniert das letzte gespeicherte Datum an.
Nun habe ich überlegt ob es nicht eine Möglichkeit gibt, das Erstellungsdatum so zu ändern, dass immer der letzte Speicherstand in diesem Feld angezeigt wird. Demzufolge müste man aus Erstellungsdatum letzte Änderung machen oder ähnliches.
Hant jemand eine Ahnung ob dies überhaupt moglich ist?

Danke im voraus für eure Anworten
Ronald

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

---

Hallo!

Versuchs mal damit
++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Sub Erstellungsdatum()
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
Dim Erstelldatum As String
Dim Datum As String

Datum = Mid(Date, 1, 10) 'Datum wird 10 Stellig formatiert zB.  12.12.1999
MsgBox "Datum : " & Datum

'Liest  das Erstellungsdatum aus
Erstelldatum = oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Creation Time").Value

MsgBox "Erstelldatum : " & Erstelldatum

'Setzt das Aktuelle Datum mit der date Funktion
oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Creation Time").Value = Date

MsgBox "Erstelldatum aktuell : " & oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Creation Time").Value

End Sub

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