Public Sub Font_Enumerate()
Dim i As Integer, oDoc As Document, oParagraph As Paragraph
Set oDoc = ThisDocument
oDoc.Bookmarks("\EndOfDoc").Select ' Курсор - в конец документа
For i = 1 To Application.FontNames.Count
DoEvents
oDoc.Content.InsertParagraphAfter
Set oParagraph = oDoc.Paragraphs(oDoc.Paragraphs.Count)
oParagraph.Range.Text = "Studieren, studieren, studieren (c). " & vbTab & Application.FontNames(i)
oParagraph.Range.Sentences(1).Font.Name = Application.FontNames(i)
Next i
Set oDoc = Nothing
End Sub
От Вас хотелось бы только узнать - кто автор бессмертной фразы, что генерируется кодом? )