Исправить ошибку - VBA

Формулировка задачи:

Ребят, помогите найти ошибку и исправить, макрос не работает, ругается на FontNames Задание: После листа «Лист 1» вставить в книгу рабочий лист «Шрифты». На нем, для каждого из установленных в системе шрифтов вывести:

в столбце А – порядковый номер шрифта,
в столбце В – название шрифта,
в столбце С – фразу "Факультет ПИ" данным шрифтом 12 пт,
в столбце D – фразу "Кафедра САиОИ" данным шрифтом 12 пт.

Для столбцов А-D установить автоматический выбор ширины столбца. (Использовать коллекции FontNames, LandscapeFontNames, PortraitFontNames объекта Word.Application).

Sub makr3()
Sheets.Add After:=Sheets(1)
Sheets(2).Name = "Шрифты"
Sheets("Шрифты").Activate
    
Dim s As String
Dim i As Integer
For i = 1 To Word.Application.FontNames.Count
    Cells(i, 1) = i
    Cells(i, 2) = FontNames(i)
    Cells(i, 3) = "Факультет ПИ"
    s = FontNames
    Cells(i, 3).Font.Size = 12
    Cells(i, 3).Font.Name = s
    Cells(i, 4) = "Кафедра САиОИ"
    s = FontNames(i)
    Cells(i, 4).Font.Size = 12
    Cells(i, 4).Font.Name = s
Next i
Columns("A:D").AutoFit
End Sub

Решение задачи: «Исправить ошибку»

textual
                            Листинг программы 
                        
                            Лист 1