Set wd = CreateObject("Word.Application")

Dim fonts
For Each fontID In wd.FontNames
	fonts = fonts + "*-*" + fontID
Next

WScript.Echo fonts