fuentes

El siguiente código te crea una tabla con el contenido de las fuentes, el texto que
muestra, no es nada coherente, solo para ver como quedan los acentos en cada fuentes,
espero que sea lo que necesitas.
*************
Sub GenFont()
Dim oF As String
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "Tabla con cuadrícula" Then
.Style = "Tabla con cuadrícula"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
Selection.Tables(1).Rows(1).HeadingFormat = True
Selection.TypeText Text:="Nombre Fuente"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="Ejemplo"
Selection.MoveRight Unit:=wdCell

For i = 1 To Application.FontNames.Count
oF = Application.FontNames(i)
Selection.Text = oF
Selection.MoveRight wdCell
With Selection
With .Font
.Name = oF
End With
.Text = "Ábaco éste es tímpano óbito pútrido"
End With
Selection.MoveRight wdCell
Next
End Sub


Suerte
Nilda Beatriz Díaz
MS - MVP
Desde el tercer planeta a partir del Sol
"Valentín" escribió en el mensaje
news:0aff01c37f29$7d366790$

Necesito hacer una macro que me muestre un texto con
todos los tipos de fuentes que tengo instaladas.