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?
Annonceindlæg tema
Forsvar & beredskab
Cybersikkerhed, realtidsdata og robuste it-systemer er blevet fundamentet for moderne forsvar.
25. november 2011 - 12:53
#1
Via VBA er det muligt..
25. november 2011 - 13:10
#2
Okay super, kan du komme med et eks.?
25. november 2011 - 13:17
#3
Skal det skrives i selve dokumentet - eller vises som "Message"?
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
25. november 2011 - 15:43
#5
Det skal skrives i selve dokumentet.
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
25. november 2011 - 16:30
#7
Hvor skal jeg skrive det henne? I et VB script eller???
25. november 2011 - 17:34
#8
Alt+f11 / VBA_vinduet / ThisDocument
25. november 2011 - 17:45
#9
Hvad skal jeg skrive i mit dokument for at få alderen frem?
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.
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?
25. november 2011 - 22:58
#12
Stopper her -
25. november 2011 - 23:06
#13
Hvorfor?
25. november 2011 - 23:28
#14
Fordi du har fået et eksempel.
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.
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".
14. december 2011 - 12:42
#17
jamen så glædelig jul..
14. december 2011 - 12:47
#18
I lige måde.
Tag et kursus i Word og øg effektiviteten