[VBA] date = datum *

[battler]

Ik probeer voor het eerst een word (office 2007) macro (VBA 6.3) aan te maken. Wat ik graag wil is dat hij het document (een offerte) scant op het woord datum en daar dan de huidige datum voor in de plaats zet.

Het vervangen van het woord datum gaat goed

code:

With Selection.Find
        .Text = "datum"
        .Replacement.Text = Datum
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.Execute Replace:=wdReplaceAll

Maar de replacement.text = Datum
Ik krijg Datum maar niet vervangen voor de echte datum
De code die ik denk dat ik moet hebben

code:

Datum = Selection.InsertDateTime DateTimeFormat:="d MMMM yyyy", InsertAsField:= _
        False, DateLanguage:=wdDutch, CalendarType:=wdCalendarWestern, _
        InsertAsFullWidth:=False

Uiteraard werkt dat niet, maar zou iemand mij op weg kunnen helpen?

[RobIII]

Waar hoort mijn topic?
PRG >> OFF

[Lukse]

Ik neem aan dat je VBA bedoelt, ipv VB.NET?
Je kan de datum als volgt opvragen:
Datum = Format(Now(), "d MMMM yyyy")

[battler]

Hartelijk bedankt dat was het inderdaad. Alleen nu moet ik nog even uitzoeken hoe hij de datum in het Nederlands noteert.

[Lukse]

Ik denk niet dat je 'm met VBA naar het Nederlands kan zetten.
Dan kun je 'm beter als normale datum in de cel zetten (mm/dd/yyyy) en dan de opmaak van de cel wijzigen.

[battler]

Ik weet niet of dat dit in het zelfde topic kan. Maar kan ik ook ergens definiëren dat hij bv. bij de datum van vandaag 7 dagen erbij moet optellen?

[Bolukan]

-7 toevoegen (NOW()-7)

Edit: +7 natuurlijk

[ Voor 65% gewijzigd door Bolukan op 27-08-2008 15:36 ]

[battler]

Ahh hartelijk bedankt, ik had dat al geprobeerd maar dan (NOW(+7)). Maar dit werkt perfect, bedankt.