hluachawngthu
Broken In
How can I identify fonts that can be safely deleted
from my system? Plz help.
from my system? Plz help.
Sub ListFonts()
'
' ListFonts Macro
' Macro created 27/04/2005 by tuxfan
'
Dim f As Variant
Documents.Add
With ActiveDocument.PageSetup.TextColumns
.SetCount (2)
.LineBetween = True
End With
Selection.Font.Size = 14
For Each f In FontNames
Selection.Font.Name = f
Selection.TypeText (f & vbLf)
Next
End Sub