On Wed, 2006-05-31 at 22:41 +1200, Nick Rout wrote:
> On Wed, 31 May 2006 19:50:12 +1200
[snip]
> Now to see about writing a macro. A key shortcut would be the most
> efficient!
Beware of line wrapping when copying.
sub subSetDate
oDoc = thisComponent
oCell = oDoc.getCurrentSelection
oCell.value=now
oCell.setPropertyValue("NumberFormat", fnGetNumberFormatId(oDoc,"DD/MM/YY"))
end sub
function fnGetNumberFormatId(oDoc, sNumberFormat)
sCharLocale = oDoc.getPropertyValue("CharLocale")
nFormatId = oDoc.getNumberFormats.queryKey(sNumberFormat, sCharLocale, false)
if nFormatId = -1 then 'Not yet defined
nFormatId = oDoc.getNumberFormats.addNew(sNumberFormat, sCharLocale)
end if
fnGetNumberFormatId = nFormatId
end function
