Selline mure, et Writeris oleks vaja kasuta summa sõndes funktisooni.
Otsimise peale leidsin:
http://openoffice-et.sourceforge.net/abimaterjalid/summa.txt
Asi töötab kenasti calcis. Aga writeris ei tee piuksu ka mitte. Kas ei peagi
antud makro writeris töötama või ei saa asjaga mina hakkama?
Kristo
Töötab küll, aga Writeris (nagu Wordis) ei saa funktsioone alati otse
välja kutsuda. Näiteks skeem
Sub test
s = Sonadega(34)
end sub
Function Sonadega(arv)
....
end function
töötab. Miks see nii on, pole aega olnud uurida (või ei mäleta). Edasi
leiuta ise.
Andres
Pean tunnistama, et ei suutnud välja mõelda, kuidas seda asja saaks writeris
ühe tabeli lahtris kasutada.
Kristo
Nonii, sai huvi pärast see asi tööle pandud. Tekstidokumendis on üks
tabel 2 rea ja veeruga. Esimeses veerus on numbrid. sub main kirjutab
teise veeru esimesse lahtrisse esimese veeru esimese lahtri väärtuse
sõnades.
<---- lõika siit ----
Sub Main
doc = ThisComponent ' jooksev dokument
tables = doc.getTextTables()
table = tables(0) ' võtame selle ainsa tabeli
cell = table.getCellByName("A1")
stext = sonadega(Int(cell.getText().getString()))
wordcell = table.getCellByName("B1")
wordcell.getText().setString(stext)
end sub
Function sonadega(arv)
...
bla-bla
...
End Function
<-------- ja siit ----------
Andres