programiranje makra v open officu

Sprogramirat moram makro, ki bo v dokumentu poiskal vse morebitne davčne številke in jim spremenil barvo ozadja v rumeno.
Davčna številka je sestavljena iz osmih številk; sedem je naključno izbranih, osma pa je izračunana po modulu 114:

* prvih sedem mest je osnovna številka, ki je naključno izbrana iz nabora številk od 1.000.000 do 9.999.999,
* na osmem mestu je kontrolna številka, izračunana po modulu 11.

Postopek izračuna kontrolne številke:

* posamezno številko osnovne številke pomnožimo s konstantnimi ponderji 8, 7, 6, 5, 4, 3 in 2,
* zmnožke seštejemo,
* seštevek delimo z 11,
* ostanek deljenja odštejemo od 11 in razlika je kontrolna številka.

Če je ostanek deljenja 1 in je razlika zato 10, je kontrolna številka 0. Če je ostanek deljenja 0 in je razlika zato 11, se ta osnovna številka izključi iz nabora možnih davčnih številk.

Primer:

* osnovna številka: 1 5 0 1 2 5 5
* konstantni ponderji: 8,7,6,5,4,3,2
* seštevek zmnožkov: 8 + 35 + 0 + 5 + 8 + 15 + 10 = 81
* seštevek delimo z 11: 7
* ostanek je: 4
* razlika do 11: 7 (kontrolna št.)
* davčna številka: 15012557