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, la siguiente macro de VBA creará un documento que contiene una lista completa de fuentes, en orden ordenado:

Sub ListAllFonts()

Dim J As Integer Dim FontTable As Table 'Start off with a new document Set NewDoc = Documents.Add 'Add a table and set the table header Set FontTable = NewDoc.Tables.Add(Selection.Range, FontNames.Count + 1, 2)

With FontTable     .Borders.Enable = False     .Cell(1, 1).Range.Font.Name = "Arial"

.Cell(1, 1).Range.Font.Bold = 1     .Cell(1, 1).Range.InsertAfter "Font Name"

.Cell(1, 2).Range.Font.Name = "Arial"

.Cell(1, 2).Range.Font.Bold = 1     .Cell(1, 2).Range.InsertAfter "Font Example"

End With 'Go through all the fonts and add them to the table For J = 1 To FontNames.Count     With FontTable         .Cell(J + 1, 1).Range.Font.Name = "Arial"

.Cell(J + 1, 1).Range.Font.Size = 10         .Cell(J + 1, 1).Range.InsertAfter FontNames(J)

.Cell(J + 1, 2).Range.Font.Name = FontNames(J)

.Cell(J + 1, 2).Range.Font.Size = 10         .Cell(J + 1, 2).Range.InsertAfter "ABCDEFG abcdefg 1234567890"

End With Next J FontTable.Sort SortOrder:=wdSortOrderAscending End Sub

Una vez que la macro termine de ejecutarse, tendrá 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 (405) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Printing_a_Font_List [Imprimiendo una lista de fuentes].