datum in beeld laten veranderen na opslaan

[joris2006]

hoi mensen..
Ik wil in een word een document hebben met boven in beeld een datum en daarvoor geschreven:
Laatste gewijzigd:

Daar achter moet de datum komen en die moet veranderen in de datum op het moment dat hij wordt opgeslagen. OFwel, na opslaan moet bij lezen de datum laten zien wanneer het document het laatst is gewijzigd.
Groetjes
Joris

 

[Wigi]

Dag Joris

Hier kan je alvast wat code vinden om gestart te geraken:

http://www.microsoft.com/technet/scriptcenter/resources/qanda/feb07/hey0223.mspx

Wigi

 

[joris2006]

dank u! ik ga eens kijken!

hmm

De datum heeft een vaste plaats. Als dit document opgeslagen wordt, dan verandert de datum mee. Als het document geopend wordt dan moet bij datum dus niet veranderen.
haal ik niet uit deze site (engels is lastig soms vind Ik)

Dus
document wordt opgeslagen, datum past zich aan.
Document wordt gelezen, datum geeft laatste wijziging aan.

groetjes

 

[Wigi]

Ik zal proberen om zelf code te schrijven, in Excel is dat een eitje, Word is wat anders

 

[joris2006]

Ok! Ben benieuwd. Had vandaag iets gevonden en toegepast.. Gevolg was dat ie op bleef slaan en ik de computer heb moeten resetten..
Wellicht toch iets met bookmarks erin en dan daar de date etc..

 

[Jans__@hotmail]

Hai Joris

Moet dit via vba?
Dat kan wel, maar er is ook een veld die je zou kunnen leggen.
het veld DOCPROPERTY LastSavedTime

Als het via vba moet dan moet je de automatische macro's van Word aanpassen

de Sub BestandOpslaan() en de Sub BestandOpslaanAls()



Groeten,

Jans

 

[Wigi]

Dit doet wat je gevraagd hebt:

Private Sub Document_Close()

    Dim sNameBookmark As String
    Dim RangeBookmark As Range
    
    sNameBookmark = "LaatstOpgeslagen"
    Set RangeBookmark = ActiveDocument.Bookmarks(sNameBookmark).Range

    On Error Resume Next
    RangeBookmark.Text = ActiveDocument.BuiltInDocumentProperties(wdPropertyTimeLastSaved).Value

    If Err.Number > 0 Then
        RangeBookmark.Text = "?"
        Err.Clear
    End If
    
    ActiveDocument.Bookmarks.Add Name:=sNameBookmark, Range:=RangeBookmark

End Sub

Is mijn eerste macro in Word... of het scheelt toch niet veel.

Wigi

 

[joris2006]

dank je! Heb er mee gestoeid en ben er uit gekomen!

 

[Wigi]

Dan mag je de vraag nog op opgelost plaatsen ajb.