las primeras versiones de Microsoft Word contiene una función que genera una lista de impresión de todas las fuentes disponibles del programa. Esta funcionalidad no ha sido en Word en mora desde hace muchos años , pero es posible utilizar macros de Microsoft Office Word 2007 opciones de codificación para añadir usted mismo. Se trata de un poco de programación Visual Basic , pero , afortunadamente, el sitio web de Microsoft proporciona preescrito código VB para hacer exactamente esto. Instrucciones
1

Seleccione la pestaña " Developer " . Si no lo encuentra, haga clic en el botón de Office , luego " Opciones de Word ", luego " Popular ", y seleccione " Mostrar ficha Programador en la cinta de opciones . "

2 Haga clic en " Macros ". Escriba un nombre para la macro - algo así como " Lista fuentes" sería apropiado , pero se le puede llamar lo que quieras. Seleccione " normal.dotm " de las " Macros en " lista para hacer su macro disponibles sin importar lo que el documento que está editando. Por último , haga clic en "Crear" para abrir el Editor de Visual Basic .
3

Copiar la totalidad del código siguiente , a partir de la línea " ListFonts Sub ( ) " y terminando con "End Sub "y péguelo en el Editor de Visual Basic: .

ListFonts ( Sub ) guía

varFont As procesamiento macro Velocidades Variant

' y suprime pantalla
< p > Application.ScreenUpdating = False

'Crear nuevo documento

Plantilla Documents.Add : . = "normal "

' Recorrer cada fuente disponible
< p . > En cada varFont En FontNames

Selección de formato

" para el nombre de la fuente.

. Font.Name =" times new roman "

. Font.Bold = True

. Font.Underline = True

'Insertar nombre de fuente .

. TypeText varFont

' Insertar un nuevo párrafo después del . . . . Nombre de fuente

InsertParagraphAfter

Pásate al nuevo párrafo

unidad moveDown : = wdParagraph , Conde : = 1 , Extend : = wdMove
< p > ' Formato para el ejemplo de fuente.

. Font.Bold = False

. Font.Underline = False

. Font.Name = varFont
< p > ' Introduzca ejemplo de texto ( caracteres alfabéticos . )

. TypeText " abcdefghijklmnopqrstuvwxyz "

' Insertar un nuevo párrafo.

. InsertParagraphAfter

' Mover a el nuevo párrafo

unidad moveDown : . . = wdParagraph , Conde : = 1 , Extend : . Insertar ejemplo text = wdMove

' ( . caracteres numéricos)

TypeText " 0123456789 ? $% & () [ ] * _- = + /< > "

' Inserte dos nuevos párrafos y se mueven hacia abajo.

. InsertParagraphAfter

. . InsertParagraphAfter

unidad moveDown : = wdParagraph , Conde : = 1 , Extend : = wdMove

extremo con

Siguiente varFont

Application.ScreenUpdating = True

End Sub

Asegúrese de que el código copiado compensa todo el contenido de la macro - eliminar cualquier código que estaba allí desde el principio. Haga clic en los botones "OK" para completar la creación de la macro
4

Haga clic derecho en la barra de herramientas de acceso rápido - . Conjunto de iconos justo a la derecha del botón de Office que incluyen " Guardar " y" Abrir " . Haga clic en " Personalizar barra de herramientas de acceso rápido. "
5

Seleccione " Macros " de los " Comandos disponibles en " menú desplegable y, a continuación, seleccione la macro que acaba de crear en la lista que aparece. Haga clic en " Agregar ".
6

Haga clic en " Modificar " para seleccionar una imagen para el botón, a continuación, haga clic en " Aceptar". Un nuevo botón aparecerá ahora en la barra de herramientas de acceso rápido , haga clic en él se creará un nuevo documento de Word y lo rellenamos con una muestra de todas las fuentes disponibles . A continuación, puede imprimir el documento como lo haría con cualquier otro .