word macro >> FontsShowAll

Quick and dirty word macro: show all fonts on your computer with example in a table

Word-Makro um alle Schriftarten auf dem Rechner tabellarisch aufzulisten

Normal.dot - FontsShowAll

Public Sub MAIN()  
Dim n  
Dim i  
WordBasic.FileNew
WordBasic.TableInsertTable ConvertFrom:="", NumColumns:="3", NumRows:="1", _
  InitialColWidth:="Auto"
WordBasic.TableColumnWidth ColumnWidth:="4 cm", SpaceBetweenCols:="0 cm", _
  NextColumn:=1, RulerStyle:="0"
WordBasic.TableColumnWidth ColumnWidth:="10 cm", SpaceBetweenCols:="0 cm", _
  NextColumn:=1, RulerStyle:="0"
WordBasic.TableColumnWidth ColumnWidth:="2 cm", SpaceBetweenCols:="0 cm", _
  RulerStyle:="0"
WordBasic.StartOfDocument 

n = WordBasic.CountFonts()
For i = 1 To n
  WordBasic.Font "Arial", 10
  WordBasic.Insert WordBasic.[Font$](i)
  WordBasic.NextCell
  WordBasic.Font WordBasic.[Font$](i), 12
  WordBasic.Insert WordBasic.[Font$](i)
  WordBasic.NextCell
  WordBasic.Font WordBasic.[Font$](i), 12
  WordBasic.Insert "äöüß"
  WordBasic.NextCell
Next   

End Sub