vb script to set a font as a default for word

Hi all,

i am looking for a script which set the font as default in ms word.

thanks in advance

vinny