How can I make a macro that works with fonts?

Question

Word

Write a macro in which different font formats are sequentially sorted and displayed in Word automatically.

Answer 1

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

From you I would only like to know - who is the author of the immortal phrase, what is generated by the code? )

Answer 2

Sub мой_макрос()
    For i = 1 To FontNames.Count
         Selection.Font.Name = FontNames(i)
         Selection.TypeText (vbCr + FontNames(i))
    Next i
End Sub