FONTを調べる

Sub FONT調べる()
'
' FONT調べる Macro
    Dim chrCount, N As Integer
    Dim LID As Integer
    Dim Fname, oldFname, myStr As String
    chrCount = ActiveDocument.Characters.Count
    N = chrCount
    '最後の文字の処理をします。
    ActiveDocument.Characters(N).Text = ActiveDocument.Characters(N).Text + ""
    oldFname = ActiveDocument.Characters(N).Font.Name
    Do
        'LIDが1041なら日本語
        'LIDが1033なら英語？
        LID = ActiveDocument.Characters(N).LanguageID
        myStr = ActiveDocument.Characters(N).Text
        If LID = 1041 Or LID = 1033 Then
        
        Else
            MsgBox (LID)
        End If
        Fname = ActiveDocument.Characters(N).Font.Name
        'Symbol,SimHei,Century,ＭＳ 明朝
        If Fname <> oldFname Then
            ActiveDocument.Characters(N).Text = ActiveDocument.Characters(N).Text + ""
            oldFname = Fname
        End If
        'MsgBox (Asc(myStr))
        If myStr = Chr(13) Then
            ActiveDocument.Characters(N).Text = "" + ActiveDocument.Characters(N).Text + ""
        End If
        N = N - 1
    Loop Until N = 0
    ActiveDocument.Characters(1).Text = "" + ActiveDocument.Characters(1).Text
    
End Sub