Před časem jsem našel na webu šikovné makro "vložit akt.datum" do vybrané buňky.Při každodením vyplňování tabulek se určitě hodí.Já ho využívám velice často a myslím,že i vám pomůže usnadnit práci.
Makro obsahuje část pro calc,ale i pro writer.
REM Makro pre vloženie aktuálneho dátumu na bunku (Calc) alebo pozíciu (Writer), kde sa nachádzame
sub Vloz_Datum
dim dokument, bunka as object
dim teraz, datum, cas as string
dim i as integer
teraz=now ' Aktuálny dátum a čas ako reťazec vo formáte "dd.mm.rrrr hh:mm:ss"
i=instr(teraz," ") ' Pozícia, kde je oddelený dátum a čas
datum=left(teraz,i-1) ' Dátum
REM Časť pre CALC
if ThisComponent.supportsService("com.sun.star.sheet.SpreadsheetDocument") then
' Funkcia vloží dátum do aktuálnej bunky zošitu v Calcu
' V Calcu je bunka, na ktorej sa nachádzame vybraná automaticky
dokument=ThisComponent.getCurrentSelection() ' Aktuálny výber
bunka=dokument.getCellByPosition(0,0) ' Aktuálna bunka
bunka.value=datevalue(datum) ' Vloženie dátumu ako hodnoty
endif
REM Časť pre WRITER
if ThisComponent.supportsService("com.sun.star.text.TextDocument") then
' Funkcia vloží dátum na aktuálnu pozíciu vo Writeri
dokument=ThisComponent.currentcontroller.getViewCursor() ' Viditeľný kurzor
dokument.collapseToEnd() ' Zrušíme prípadný výber (označený text)
teraz=dokument.getstring() ' Odpamätáme si aktuálny reťazec kde sa nachádzame s kurzorom
dokument.setstring(teraz+datum) ' a vložíme odpamätaný aktuálny reťazec + dátum
dokument.collapseToEnd() ' Skočíme na koniec vloženého dátumu
endif
end sub
Zdroj:dennik.inet.sk