Makrá v OpenOffice.org – Kopírovanie tabuľky z Calcu do Writeru

Július Pastierik  /  13. 12. 2009, 19:04

Po dlhšej prestávke znovu prinášame makro pre OpenOffice.org – teraz to bude makro pre kopírovanie označenej časti zošitu Calcu do Writeru.

Už v roku 2008 sme uviedli makro pre vytváranie tabuliek v module Writer a pre kopírovanie údajov zošitu z tabuľkového procesora Calc do Writeru (Makrá v OpenOffice.org 02/2008). Na základe otázok niektorých používateľov vznikla potreba upraviť makro tak, aby dokázalo skopírovať tabuľku zo zošitu nie iba od začiatku tabuľky vo Writeri, ale od políčka, v ktorom sa nachádzame.

Kopírovanie tabuľky z Calc

Z uvedeného prinášame dnes upravenú verziu, ktorá túto skutočnosť zahŕňa. Zároveň sme však ponechali zachované aj ostatné funkcie, teda pokiaľ tabuľka neexistuje, tak sa vytvorí, kontroluje sa, čo sa má vôbec čo kopírovať atď.

Tabuľka vo Writer pred vložením

Pravdaže, v tomto prípade nemôžeme testovať zhodnosť zdrojovej a cieľovej tabuľky, pretože by to nemalo zmysel a v prípade, že kopírujeme údaje do menšieho počtu riadkov, ako je zdrojová tabuľka, zvyšné riadky sa jednoducho neskopírujú bez akéhokoľvek hlásenia.

Tabuľka vo Writer po vložení

Pretože makro je dostatočne okomentované a jeho predchádzajúcej verzii sme venovali už jeden diel seriálu o makrách, uvádzame ďalej už iba zdrojový text:

global bunky_z_calcu_do_writer(0,0)
global stlpce_z_calcu_do_writer, riadky_z_calcu_do_writer as long

sub Kopiruj_tabulku_z_Calc_do_Writer
 dim dokument, bunka as object
 dim stlpec, riadok as long
 dim sprava as string

 if ThisComponent.supportsService("com.sun.star.sheet.SpreadsheetDocument") then
  Dokument=ThisComponent.getCurrentSelection()
  stlpce_z_calcu_do_writer=dokument.getcolumns().Count
  riadky_z_calcu_do_writer=dokument.getrows().Count

  if stlpce_z_calcu_do_writer<>0 and riadky_z_calcu_do_writer<>0 then
   redim preserve bunky_z_calcu_do_writer(riadky_z_calcu_do_writer, stlpce_z_calcu_do_writer)

   for stlpec=0 to stlpce_z_calcu_do_writer-1
    for riadok=0 to riadky_z_calcu_do_writer-1
     bunka=dokument.getCellByPosition(stlpec, riadok)
     bunky_z_calcu_do_writer(riadok+1, stlpec+1)=bunka.getstring()
    next riadok
   next stlpec
  endif
  sprava="Skopírovaných "+str(stlpce_z_calcu_do_writer)+" stĺpcov a "+str(riadky_z_calcu_do_writer)+" riadkov"
  msgbox sprava
 endif
end sub

sub Vytvor_tabulku_z_Calc_do_Writer
 dim dokument, kurzor, tabulka, bunka as object
 dim stlpec, riadok, posun_stlpec, posun_riadok as long
 dim adresa as string

 if ThisComponent.supportsService("com.sun.star.text.TextDocument") and _
  stlpce_z_calcu_do_writer<>0 and riadky_z_calcu_do_writer<>0 then
  dokument=StarDesktop.CurrentComponent
  kurzor=ThisComponent.currentcontroller.getViewCursor()

  on error goto Nie_sme_v_tabulke

  tabulka=kurzor.TextTable

  adresa=kurzor.Cell.CellName ' Adresa je povedzme "C5", z toho si musíte oddeliť znak stĺpca a previesť ich na čísla – posun
  posun_stlpec=asc(left(adresa, 1))-65 ' ASCII kód znaku mínus "A" mínus jedna, aby sme dostali posun
  posun_riadok=val(right(adresa, len(adresa)-1))-1 ' Číslo riadku mínus jedna, aby sme dostali posun
 
  mame_tabulku:
  on error resume next

  for riadok=1 to riadky_z_calcu_do_writer
   for stlpec=1 to stlpce_z_calcu_do_writer
    adresa=chr(64+stlpec+posun_stlpec)&(riadok+posun_riadok)
    bunka=tabulka.getCellByName(adresa)
    bunka.String= bunky_z_calcu_do_writer(riadok, stlpec)
   next stlpec
  next riadok
 else
  msgbox "V schránke nie je žiadna tabuľka"
 endif

 exit sub

 Nie_sme_v_tabulke:
  tabulka=dokument.createInstance("com.sun.star.text.TextTable")
  tabulka.initialize(riadky_z_calcu_do_writer, stlpce_z_calcu_do_writer)
  dokument.Text.insertTextContent(kurzor, tabulka, false)
  goto mame_tabulku
end sub