Datoformat i makro

Brugerhjælp og support til makroer i LibreOffice Basic

Moderators: Lodahl, LarsBrandi

Post Reply
vkjaersgaard
Posts: 7
Joined: Sun May 01, 2005 20:05

Datoformat i makro

Post by vkjaersgaard » Thu Nov 27, 2008 12:30

- jeg skal lave en makro, der indsætter dato i dokumenter. A la:

"Rønne, den 18. december 2008."

Men, når jeg laver makroen indsættes der et standard datoformat så det bliver til:

"Rønne, den 18-12-08"

Jeg kan sidenhen ændre den indsatte datos format med Rediger/felter osv. Men jeg kan IKKE få makroen til at gøre det...

Alternativt, hvordan/hvor kan jeg ændre datoformatet så det forbliver ændret ved al fremtidig brug?

- 1000 tak for hjælpen!
Med venlig hilsen
Verner Kjærsgaard
www.zorum.dk

lapont
Posts: 91
Joined: Fri Sep 17, 2004 10:37
Location: Nordjylland

Re: Datoformat i makro

Post by lapont » Thu Nov 27, 2008 20:07

vkjaersgaard wrote:- jeg skal lave en makro, der indsætter dato i dokumenter. A la:

"Rønne, den 18. december 2008."
Jeg kunne få den tanke, at det er en brevskabelon, du har brug for. Et datofelt (fast dato med det ønskede format) i en skabelon kan i hvert fald indsætte en korrekt formateret dato på en fast plads.
Nu vel, hvis du skal indsætte dato rundt omkring i forskellige typer af dokumenter kan det jo være en makro er sagen. Her er en (jeg vil overlade til dig selv at transformere måneden fra et tal til et navn:

Code: Select all

sub dato
rem ----------------------------------------------------------------------
dim lDato as long
dim nDag as integer
dim nMaaned as integer
dim nAar as integer

Dim oDoc as object
Dim oText as object
Dim oVCurs as object
Dim oTCurs as object
Dim sDato as string

rem ----------------------------------------------------------------------

oDoc = ThisComponent
lDato = Date()
nDag = Day(lDato)
nMaaned = Month(lDato)
nAar = Year(lDato)

sDato = "Rønne, den " + nDag + "-" + nMaaned + "-" + nAar

oText = oDoc.Text
oVCurs = oDoc.CurrentController.getViewCursor()
oTCurs = oText.createTextCursorByRange(oVCurs.getStart())
oText.insertString(oTCurs, sDato, FALSE)

end sub
Den virker i writer, men kun når datoen indsættes i den almindelige tekst d.v.s. ikke i tabeller og rammer !!!!! Hvis problemet er at indsætte datoen i satrten af et brev, vil jeg altså anbefale en skabelon.
lubuntu 14.04 LibreOffice 4.1.6.2

vkjaersgaard
Posts: 7
Joined: Sun May 01, 2005 20:05

Datoformat i makro

Post by vkjaersgaard » Thu Nov 27, 2008 21:12

SOLVED!

- 1000 tak!
Med venlig hilsen
Verner Kjærsgaard
www.zorum.dk

Post Reply

Who is online

Users browsing this forum: No registered users and 2 guests