Datoformat i makro

Brugerhjælp og support til makroer i LibreOffice Basic

Redaktører: Lodahl, LarsBrandi

Besvar
vkjaersgaard
Indlæg: 7
Tilmeldt: 1. maj 2005 21:05

Datoformat i makro

Indlæg af vkjaersgaard » 27. nov 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
Indlæg: 91
Tilmeldt: 17. sep 2004 11:37
Geografisk sted: Nordjylland

Re: Datoformat i makro

Indlæg af lapont » 27. nov 2008 20:07

vkjaersgaard skrev:- 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:

Kode: Vælg alt

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
Indlæg: 7
Tilmeldt: 1. maj 2005 21:05

Datoformat i makro

Indlæg af vkjaersgaard » 27. nov 2008 21:12

SOLVED!

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

Besvar

Hvem er online

Brugere der viser dette forum: Ingen og 2 gæster