Có bao nhiêu Fonts chữ đã được cài vào trong máy tính?

Bạn có muốn biết có bao nhiêu Fonts chữ đã được cài vào trong máy tính và hình dáng của các fonts đó như thế nào? Thực hiện trong Word ta sẽ có được điều này
Đoạn mã VBA tôi sưu tầm và viết bổ sung (đoạn mã nằm giữa đoạn có dấu *:
‘ Số fonts đã được cài trong máy vi tính
‘***************************************
Sub So_fonts()
Dim i As Integer
Dim strFontName As String
For i = 1 To Application.FontNames.Count
strFontName = Application.FontNames(i)

Selection.Font.Name = "Times New Roman"

Selection.TypeText i & ") "
Selection.Font.Name = strFontName
Selection.TypeText strFontName & "." & Chr(13)
Next i
MsgBox "May vi tinh cua ban da cai " & i & " fonts", vbOKOnly
End Sub
‘*******************************************
Cách thực hiện:
- Mở Word vừa thực hiện nhấn phím: Alt+F11, sau đó nhấn phím F7.
- Chép và dán đoạn mã VBA ở trên vào khung soạn thảo code.
- Trong khung soạn thảo code bạn nhấn phím F5 và OK là đã có số fonts trong file Word (Hoặc thực hiện lện Run của Macro cũng được)

---

---