Office - Macro tipo fuentes por favor,necesito ayuda

Por favor,tengo un problema.Desearia escribir un texto con todos los tipos diferentes de fuentes de texto,pero lo quiero hacer automaticamente con una macro.Es decir escribir por ejemplo la palabra prueba en todos los tipos de fuentes,y en distintas filas de celdas cada una de ellas,para elegir despues la que mas me guste.

Muchisimas gracias

'Macro para Word (en excel no sé cómo hacerlo...)

Const TEXTO = "prueba"

Sub PruebaFuentes()
For Each F In FontNames
With Selection
.Font.Name = F
.TypeText Text:=TEXTO
.Font.Name = "Arial"
.TypeText " :: " & F & vbCrLf
End With
Next F
End Sub

'Saludos desde Buenos Aires, JuanC 2004