[LUGOS] oocalc

[Janez Trenz]

Dne četrtek 21 december 2006 11:25 je Miha Tomšič napisal(a):
> Zanima me, ali je treba v Calcu kje odkljukati, da lahko celo vrstico
> odrežem z odstranjevanjem in prilepim z vrivanjem? Ali Calc tega sploh
> ne omogoča? Me sploh ne bi presenetilo...
>
> Če nisem bil dovolj jasen: rad bi z dvema potezama odrezal vrstico
> sredi tabele in jo vrinil na drug konec tabele. Trenutno moram v Calcu
> za to narediti naslednje: Označim vrstico, izrežem, odstranim
> prazno(!) vrstico, vstavim prazno(!) vrstico, prilepim. V Excelu samo
> označim, izrežem vrstico in prilepim izrezano vrstico -- ni se mi
> treba jajcati s praznimi vrsticami.
>
> Iščem kljukico "[  ] Behave as Excel" :P

Kljukice ni. Je pa... (glej spodaj ;). Kako prilepiš kakšno kombinacijo tipk 
za poganjanje makrojev, pa kako dodaš nove vnose v menije pa piše v pomoči. 
Označiš željeno vrstico, pokličeš cut_line, postaviš se na drugo vrstico in 
pokličeš paste_line. Grdo, preveč na hitro, ampak deluje. :P

sub cut_line
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Cut", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:DeleteRows", "", 0, Array())
end sub


sub paste_line
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertRows", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())


-- 
Janez Trenz  AKA  der_Alte                    o      _     _         _
alte at aufbix.org               __o     __o    /\_   _ \\o  (_)\__/o  (_)
Lancia driver :P            _`\<,   _`\<,   _>(_) (_)/<_    \_| \   _|/' \/
CNI, RHCI, NCLP, RHCE, MCP (_)/(_) (_)/(_) (_)        (_)   (_)    (_)'  _\o_