sub lahtrisseKirjutamine
  Dim Doc As Object
  Dim Sheet As Object
  Dim Cell As Object
  Doc = StarDesktop.CurrentComponent 'Tööraamat/dokument, kui käivitada töölehelt.
  Sheet = Doc.Sheets(0) 'esimene tööleht
  Cell = Sheet.getCellByPosition(0, 0) 'veerg, rida
  Cell.String = "Kuku"
end sub