Dato + 3 dage

Hej

Hvad med noget som dette.
Indsæt et Bookmark, og kald det for "DagsDato" (eller noget bedre).
Tryk på "alt" + F11. Indsæt følgende kode:


Private Sub Document_New()
Dim DagsDato As Date
DagsDato = Date + 3
ActiveDocument.Bookmarks("DagsDato").Select
Selection.TypeText Text:=DagsDato


End Sub

er det på rette vej?

Jeg har gjort som du siger, men der kommer ikke til at stå noget i dokumentet.
Hvad kan jeg have gjort forkert?

kan du køre koden via vba editoren?

Nu fik jeg datoen frem på dokumentet. Men den opdatere sig ikke, når jeg åbner dokumentet igen, efter jeg har ændret på datoen på min pc.

Nej, den skriver bare den nye dato ind. ikke? så der nu står 2 stk dato

Nej, der står bare den samme dato, som da jeg oprettede den. Den skal skifte hver gang den åbnes. Altså kun hvis det er en ny dag selvfølgelig´.

ok, så skal du nok til at læse lidt selv :-), det ved jeg ikke hvordan man gør.. sorry

Okay.
Det er bare iorden.

Smid et svar, så lukker jeg i morgen.

Godnat.

nej,tak... jeg kunne jo ikke løse det hele

Jeg mener at huske at DATE er datoen for dokumentets oprettelse. Prøv engang:

Dim DagsDato As Date
DagsDato = Format(Now() + 3, "d - mmmm - yy")
ActiveDocument.Bookmarks("DagsDato").Select
Selection.TypeText Text:=DagsDato

Prøv at se her: http://www.wopr.com/cgi-bin/w3t/showthreaded.pl?Number=249902

I den zippede fil er der adskillige eksempler på datoberegninger mm. Måske også en du kan bruge.

jkrons > brug af fields er også beskrevet hér, også med henvisning til dit link, eller diskussionen hvor linket oprinder fra.

http://www.gmayor.com/insert_a_date_other_than_today.htm

Så vidt jeg kan se så er det enklere at anvende makro og det bekræfter egentlig bare min opfattelse af at Word er umanerlig omstændelig at arbejde med set i forhold til Excel. Det undrer mig egentlig lidt, men måske er der ern fornuftig forklaring på det også  ;)

brynil-> Den ændre sig heller ikke, når man åbne det igen.
Er det fordi at makroen ikke bliver "afspillet" af sig selv, når dokumentet åbner?
Hvis jeg vælger at afspille makroen manuelt, så kommer den rigtige dato.

Beklager jnissen, min indsigt strækker sig kun så langt som til at foreslå at anvende Now istedet for Date.

Prøv om du kan bruge denne. Placeres i Normal-ThisDocument:

Private Sub Document_Open()
  With ActiveDocument
        If .Bookmarks.Exists("DagsDato") = True Then
            Selection.GoTo What:=wdGoToBookmark, Name:="DagsDato"
            Selection.Delete Unit:=wdCharacter, Count:=1
            Selection.InsertAfter Format(Now() + 3, "d-mmmm-yyyy")
            ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="DagsDato"
        End If
    End With
End Sub

Den checker om du har et bogmærke 'DagsDato' i det dokument du åbner og hvis det er sandt, indsætter eller erstatter den teksten i bogmærket.

Måske du kan bruge dette link til noget:

http://www.jojo-zawawi.com/code-samples-pages/code-samples.htm

Det virker desværre stadig ikke.
Hvis der er andre som kan hjælpe, ville det være rigtig dejligt.

Hvordan virker den ikke ?

Den opdatere heller ikke datoen.

Det gør den i mit eksemplar. Har du placeret koden det korrekte sted, i Normal.dot ?

Hej igen.
Jeg har haft lidt travlt. Beklager.

Jeg kan stadig ikke få det til at virke.
Har du mulighed for at sende dit dokument til mig, så kan jeg vel bare bruge det?

Mailadresse: jacob@iteax.dk

Mvh. Jacob

Det tror jeg ikke.

Prøv at åbne Word, luk alle dokumenter, så du kun har selve Word applicationen åben.

Tryk ALT+F11. Til venstre vil du kun se din Project-Normal (ellers tryk CTRL+R)

Dobbeltklik på ThisDocument og læg så denne kode ind:

Private Sub Document_Open()
  With ActiveDocument
        If .Bookmarks.Exists("DagsDato") = True Then
            Selection.GoTo What:=wdGoToBookmark, Name:="DagsDato"
            Selection.Delete Unit:=wdCharacter, Count:=1
            Selection.InsertAfter Format(Now() + 3, "d-mmmm-yyyy")
            .Bookmarks.Add Range:=Selection.Range, Name:="DagsDato"
        End If
    End With
End Sub

Gem, luk og genstart Word.

Du får sikkert et tomt dokument når du åbner Word. Opret et bogmærke (Indsæt-Bogmærke), navn: DagsDato, tryk Tilføj. Gem og Luk dokumentet.

Når du åbner dokumentet igen, skulle den gerne indeholde datoen. Hvis du ændrer dato i Windows, vil datoen i dokumentet ændre sig tilsvarende, næste gang du åbner dokumentet.

Den kode du har placeret i Normal.dot, anvendes af alle åbne dokumenter i Word. Har du andre dokumenter der indeholder et bogmærke med navnet DagsDato, påvirkes de også, når de åbnes.

Det er imidlertid ikke altid hensigtsmæssigt, så vær opmærksom på det.

Nu virker det sku. Hurra... :-)

Nu er der blot én enkelt ting mere. Kan datoen få formatet: dd-mm-yy. Altså: 30-05-06?

Ligger du også lige et svar?

Mvh. Jacob

Du udskifter bare "d-mmmm-yyyy" med "dd-mm-yy", som du selv nævner.
Go' fornøjelse!

Hehe....ja selvfølgelig :-)
Jeg skal bare se mig for.

Jeg takker mange gange for hjælpen.

Selvtak :)