VBA.Macro.Office07 Ver las fuentes en el güor’

Haciendo gala de populisimo ¨güor’”=MSO Word 2007, recordaran que escribí una entrada de un programa en Java para visualizar las fuentes instaladas [Fuentes en java], es de notar que es igual de inútil que casí cualquier cosa… pero es entretenido hacer cosas así xD.

Les digo que mi asesor de hace siglos me enseño a hacerlo en VBA pero 2003… osease que ya llovío; ahora que como me había picado el gusanito de la curiosidad lo hice en Java, pero no desistí del de VBA… y voala:

Sub texto()
' texto Macro
Dim line As Range
For Each afont In FontNames
    ActiveDocument.Content.InsertAfter afont & vbCr
Next afont
End Sub

Sub fuentes()
' fuentes Macro
Dim a As Range
Dim s As String
    For i = 1 To ActiveDocument.Paragraphs.Count
        Set a = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs.Item(i).Range.Start, End:=ActiveDocument.Paragraphs.Item(i).Range.End)
        s = a.Text
        With a
            .Font.Name = Left(s, Len(s) - 1)
        End With
    Next i
End Sub

Primero ejecutamos la macro que tiene como comentario “texto” y después la de “fuentes”; mi noobcimiento [conocimiento noob] me impido hacerlo en una sola macro.

Y aquí como va en el documento:

Y aquí funcionando:

A decir verdad no se que tan valido sea, pero esto es en Office 2007, le das clic en “Agregar nueva macro” o”Grabar macro” y despues en “Modificar” y ahi sacan el programador que llevan dentro. Es BASIC al final de todo, ¿no?