Avatar billede thomasmyg Nybegynder
25. november 2011 - 12:11 Der er 17 kommentarer og
1 løsning

Udregning i word

Jeg er i gang med og lave et dokument og jeg vil gerne udregne noget i det dokument.

Kan jeg udregne min alder så det så ændre sig hver gang jeg åbner dokumentet og er blevet et år ældre?
Avatar billede supertekst Ekspert
25. november 2011 - 12:53 #1
Via VBA er det muligt..
Avatar billede thomasmyg Nybegynder
25. november 2011 - 13:10 #2
Okay super, kan du komme med et eks.?
Avatar billede supertekst Ekspert
25. november 2011 - 13:17 #3
Skal det skrives i selve dokumentet - eller vises som "Message"?
Avatar billede supertekst Ekspert
25. november 2011 - 13:50 #4
Private Sub Document_Open()
Dim fdag As Date, d1 As Date, d2 As Date, alder As Byte

Rem Under egenskaber / avanceret / Brugerdefineret - f.dato oprettet som dato med det viste navn
Rem hent din fødselsdag
    fdag = ActiveDocument.CustomDocumentProperties("fødselsdato").Value
   
Rem opbyg datoer (ddMM)
    d1 = Format(fdag, "dd-mm")
    d2 = Format(Now, "dd-mm")
    alder = Year(Now) - Year(fdag)
   
Rem sammenlign dato.måned for f.dato og idag - korriger evt.
    If d2 <= d1 Then
        alder = alder - 1
    End If
   
    MsgBox "Min alder er: " & alder & " år"
End Sub
Avatar billede thomasmyg Nybegynder
25. november 2011 - 15:43 #5
Det skal skrives i selve dokumentet.
Avatar billede supertekst Ekspert
25. november 2011 - 15:50 #6
Private Sub Document_Open()
Dim fdag As Date, d1 As Date, d2 As Date, alder As Byte

Rem Under egenskaber / avanceret / Brugerdefineret - f.dato oprettet som dato med det viste navn
Rem hent din fødselsdag
    fdag = ActiveDocument.CustomDocumentProperties("fødselsdato").Value
   
Rem opbyg datoer (ddMM)
    d1 = Format(fdag, "dd-mm")
    d2 = Format(Now, "dd-mm")
    alder = Year(Now) - Year(fdag)
   
Rem sammenlign dato.måned for f.dato og idag - korriger evt.
    If d2 <= d1 Then
        alder = alder - 1
    End If
   
    Selection.TypeText Text:="Min alder er " & alder & " år"
End Sub
Avatar billede thomasmyg Nybegynder
25. november 2011 - 16:30 #7
Hvor skal jeg skrive det henne? I et VB script eller???
Avatar billede supertekst Ekspert
25. november 2011 - 17:34 #8
Alt+f11 / VBA_vinduet / ThisDocument
Avatar billede thomasmyg Nybegynder
25. november 2011 - 17:45 #9
Hvad skal jeg skrive i mit dokument for at få alderen frem?
Avatar billede supertekst Ekspert
25. november 2011 - 18:05 #10
Ingenting - fordi

Private Sub Document_Open()

i starten af koden - viser at denne eksekveres, når dokumentet åbnes - hvis du har gjort udførelse af makroer muligt.
Avatar billede thomasmyg Nybegynder
25. november 2011 - 20:56 #11
Kan det ikke lade sig gøre uden makroer, så man bare skal lave en eller anden form for tekstboks som det kommer til at stå i?
Avatar billede supertekst Ekspert
25. november 2011 - 22:58 #12
Stopper her -
Avatar billede thomasmyg Nybegynder
25. november 2011 - 23:06 #13
Hvorfor?
Avatar billede supertekst Ekspert
25. november 2011 - 23:28 #14
Fordi du har fået et eksempel.
Avatar billede thomasmyg Nybegynder
26. november 2011 - 09:18 #15
Men det er jeg jo ikke det jeg kan bruge, det er meningen at dokumentet skal sendes rundt og det er ikke sikkert alle har makroer slået til.
Avatar billede thomasmyg Nybegynder
14. december 2011 - 12:37 #16
Det var da en elendig hjælp, håber ikke du har nogen kunder som betaler for din "hjælp".
Avatar billede supertekst Ekspert
14. december 2011 - 12:42 #17
jamen så glædelig jul..
Avatar billede thomasmyg Nybegynder
14. december 2011 - 12:47 #18
I lige måde.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Tag et kursus i Word og øg effektiviteten

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester