Makro za slovar besed

[Robert Ludvik]

Zdravo
Kot zanimivost in za arhiv posiljam makro, ki dela:
Ce pisete nekaj v OOo Writerju in imate vkljuceno preverjanje 
crkovanja in program najde neznano besedo (ki je ni v bazi 
crkovalnika) in jo podcrta z rdeco vijugasto crto, lahko tako neznano 
besedo dodate v svoj slovar (standard.dic) in sicer tako, da jo 
kliknete z desno tipko miske in izberete Dodaj -> standard.dic. Tako 
jo program od takrat naprej prepozna.
To moznost ljudje uporabljajo predvsem za generiranje 'specialnih' baz 
(slovarjev) besed. V spodnjem primeru je primer od cloveka, ki se 
ukvarja z medicino in zato je izhodna datoteka medical.txt.
Tale makro torej iz vasega osebnega slovarja izvozi besede, ki se niso 
v slovarju uradno izdanega crkovalnika v TXT datoteko. To datoteko bi 
lahko poslali nekomu, ki bi stvar pregledal in to dodal v bazo besed.

Posiljam tudi na lugos-slo, morda se tam najde kaksen interesent, ki 
bi to zbiral in nad zbranim bedel :-)

Lp
Robert Ludvik



Sub ExporteDicos

NomFichierExport="c:\temp\medical.txt"

MesDics=CreateUnoService("com.sun.star.linguistic2.DictionaryList")
lesDicos=mesDics.getDictionaries

leDico=LesDicos(0)
lesEntrees=ledico.getEntries

open NomFichierExport for output as #1
     print #1,ubound(lesEntrees)+1
     for i=0 to ubound(lesEntrees)
         print #1, lesEntrees(i).getDictionaryWord
     next i
close #1

msgbox "ok"

End Sub