Datoformat i makro

[vkjaersgaard]

- 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!

[lapont]

- 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.

[vkjaersgaard]

SOLVED!

- 1000 tak!