Date/time

=idag()+7

jeg skriver {TIME \@"=idag()+7"} det virker ikke hvordan virker den funktion du skriver til mig ????

chewie-> Er IDAG() ikke en regnearksfunktion?

Jeg kender ingen funktion i Word, der kan fremdate en dato, så du er nok nødt til at lave en makro.

ok hvorledes laves den ??

Her er et eksempel. Den kan du "bare" kopiere. Den indsætter en fremdateret dato på markørens plads.

Sub fremdato()
Dim dato As Date

dato = Date + 7
Selection.TypeText Text:=dato
   
End Sub

Jeg glemte lige, at det skulle opdateres automatisk. Det må jeg lige tænke lidt over.

Jo det er en excel formel ..... jeg glemte måske lige at uddybe lidt

I værktøjslinien er der en knap der hedder MS Excel her har man mulighed for at indsætte en celle fra excel .... i den celle skriver men formelen

Chewie

chewie-> Når man indsætter den på den måde, skal man så ikke dobbeltklikke på cellen (altså åbne Excel) før den opdaterer?

Det dokument jeg lavede i går bliver i hvert fald først opdateret, når jeg gør som beskrevet. Det bliver ikke opdateret ved at åbne dokumentet.

Jeg tror efter lang tids eftertanke ikke at man kan få den til at opdatere automatisk, men man kan eventuelt lave en Auto_Open makro, der udskifter den eksisterende dato med aktuel dato + 7. Men hvorfor skal den i det hele taget opdateres?

fordi det er fast, at 1 uge fra dags dato er der møde igen, så ville det jo være smart hvis den bare satte det ind automatisk. men det kan det ikke.

Måske dte kommer i version 47, tak for svarene,

Så kan det faktisk godt lade sig gøre, for så skal det jo kom opdateres en gang i virkeligheden,  nemlig når det skrives første gang.

Lav dit dokument som en skabelon. (Gem som skabelon). Indsæt et bogmærke der hedder "datoplussyv" uden anførselstegn, der hvor du vil have datoen til at stå. Indsæt så nedenstående kode på dokumentets makroark. Tryk Alt+F11. I øverste venstre hjørne dobbeltklikker du på ThisDocument. Måske skal du ændre på datoens format, men dette virker faktisk.

Når du nu laver nye dokumenter baseret på denne skabelon indsættes en dato, der ligger 7 dage efter dokumentents oprettelsesdato.

Her er koden, du skal sætte ind:

Sub AutoNew()

    Dim BMRange As Range
    'Find bogmærke og indsæt datoen som tekst
    Set BMRange = ActiveDocument.Bookmarks("datoplussyv").Range
    BMRange.Text = Format(DateAdd("d", 7, Now), "dd/mm/yy")
    'Indsæt bogmærker igentil næste gang
    ActiveDocument.Bookmarks.Add "dateplusseven", BMRange

End Sub

Den sidste skal selvfølgelig rettes fra "Dateplusseven" til "Datoplussyv" i næstsidste linie. Det gik galt da jeg oversatte.