How to create a macro to give random font for each letter of a word?

[good_kid]

I want to create a macro using which all characters in the LibreOffice writer document will each get a random font.
For examples if the writer document contained the following words: ‘Hello world’ then H should get a font, e should get a different font, l should get another different font and so on…

[Zizi64]

Here is a modified sample code from the old OOo forum. That forum not exist today.

The macro can get all of existing fonts and it write some accented letters with every existing font into a new .odt document.
When you have got all of the font names into one string array, then you will able to choose one by a random index number. And then you can format the desired character by an existing, random font.

List existing Fonts and test some accented characters.odt

[Zizi64]

Here is the original macro:

http://www.pitonyak.org/AndrewFontMacro.odt