En versiones anteriores de Word (mucho más antiguas, como en Word para Windows 2), había una función que le permitía imprimir rápidamente una lista de fuentes en su sistema. Por desgracia, esto ya no es el caso. Sin embargo, puede crear fácilmente una macro que pueda armar una lista de este tipo para usted:

Sub ListFontNames()

Dim J As Integer     Dim NewDoc As Document

' Create a new document     Set NewDoc = Documents.Add

' Add font names to document     For J = 1 To FontNames.Count         Selection.TypeText (FontNames(J))

Selection.TypeParagraph     Next J End Sub

La macro crea un nuevo documento y luego simplemente recorre la colección FontNames y agrega cada uno de los nombres al documento. La velocidad a la que funciona la macro depende de la cantidad de fuentes que haya instalado en su sistema.

Si desea algo un poco más elaborado, puede utilizar la siguiente macro. Crea un documento, pero luego coloca todos los nombres de fuentes en una tabla. En la segunda columna de la tabla, proporciona una muestra formateada de la fuente.

Sub FontExamples()

Dim J As Integer     Dim F As Integer     Dim sTemp As String     Dim sTest As String     Dim Continue As Integer     Dim rng As Range     Dim FontTable As Table     Dim NewDoc As Document

' Specify the sample text for second column     sTest = "ABCDEFG abcdefg 1234567890"



' Check to see if the user wants to proceed     F = FontNames.Count     sTemp = "There are " & F & " fonts on this system."

sTemp = sTemp & "Building the document may take quite a while."

sTemp = sTemp & "Do you want to continue?"

Continue = MsgBox(sTemp, vbYesNo, "Build Font List")



If Continue = vbYes Then         ' Put together a string that contains the table contents         sTemp = "Font Name" & vbTab & "Font Example"

For J = 1 To F             sTemp = sTemp & vbCr & FontNames(J) & vbTab & sTest         Next J

' Create a new document         Set NewDoc = Documents.Add

' Add string contents and convert to table         Set rng = Selection.Range         rng.Text = sTemp         Set FontTable = rng.ConvertToTable(Separator:=vbTab, _           AutoFitBehavior:=wdAutoFitFixed)



' Set general table properties         With FontTable             .Borders.Enable = False             .Range.Font.Name = "Arial"

.Range.Font.Size = 10             .Rows(1).Range.Font.Bold = True             .Rows(1).Range.Font.Size = 12         End With

' Go through the sample cells and format them         For J = 1 To F             FontTable.Cell(J + 1, 2).Range.Font.Name = FontNames(J)

Next J

' Sort the table         FontTable.Sort SortOrder:=wdSortOrderAscending     End If End Sub

Esta macro hace bastante más que la anterior. La tabla en sí se crea con bastante rapidez, pero puede llevar mucho tiempo recorrer cada una de las celdas de muestra y formatearla con la fuente adecuada. Es por eso que la macro le permite saber cuántas fuentes hay en su sistema antes de continuar.

Independientemente de la macro que elija utilizar, obtendrá una lista completa de fuentes para su sistema. Luego puede imprimirlo y tenerlo a mano cuando trabaje con Word.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (4358) se aplica a Microsoft Word 2007, 2010, 2013 y 2016. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Word aquí: link: / word-Printing_a_Font_List [Imprimiendo una lista de fuentes].