Automatisk dato opdatering

Bruger selv denne makro i mine word skabeloner (bruger bookmarks til at placere datoen i brevet)Her indsættes den dato, hvor brevet dannes på grundlag af skabelonen, og fastfryses derefter. Måske kan du bruge den metode.

Selection.GoTo what:=wdGoToLine, Which:=wdGoToFirst, Count:=10, Name:=""
 
      With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="Dato"
      End With

ActiveDocument.Bookmarks("Dato").Range.InsertDateTime DateTimeFormat:="d. MMMM yyyy", InsertAsField:= _
        False, DateLanguage:=wdDanish, CalendarType:=wdCalendarWestern, _
        InsertAsFullWidth:=False

Det tror jeg ikke hlt jeg forstår :-( men jeg er muligvis også lidt dum ! hvor smider jeg det kode ind ?

Du skal bruge en skabelon (dot) og lægge koden i kodemodulet this Document og vælge  new
 
Selection.GoTo what:=wdGoToLine, Which:=wdGoToFirst, Count:=10, Name:=""
 
      With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="Dato"
      End With

ActiveDocument.Bookmarks("Dato").Range.InsertDateTime DateTimeFormat:="d. MMMM yyyy", InsertAsField:= _
        False, DateLanguage:=wdDanish, CalendarType:=wdCalendarWestern, _
        InsertAsFullWidth:=False