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 .