Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

OOWriter ja makro

2 views
Skip to first unread message

Kristo

unread,
Oct 25, 2005, 9:24:05 AM10/25/05
to
Tere

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

Andres Kaju

unread,
Oct 25, 2005, 11:06:01 AM10/25/05
to

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

Kristo

unread,
Oct 26, 2005, 2:23:08 AM10/26/05
to
> Sub test
> s = Sonadega(34)
> end sub
> töötab. Miks see nii on, pole aega olnud uurida (või ei mäleta). Edasi
> leiuta ise.

Pean tunnistama, et ei suutnud välja mõelda, kuidas seda asja saaks writeris
ühe tabeli lahtris kasutada.

Kristo

Andres Kaju

unread,
Oct 29, 2005, 2:05:51 PM10/29/05
to
>
> Pean tunnistama, et ei suutnud välja mõelda, kuidas seda asja saaks writeris
> ühe tabeli lahtris kasutada.
>

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

0 new messages