I do not know if this will help, but under Win32::Ole for Microsoft Word there is FontNames. Here is what the Ole-Browser lists:

FontNames Property Example

This example displays the font names in the FontNames collection.

For Each aFont In FontNames
    response = MsgBox(Prompt:=aFont, Buttons:=vbOKCancel)
    If response = vbCancel Then Exit For
Next aFont
[download]

Hope this helps,

Cameron