Авто цвет японских символов

Question

Я написал макрос, чтобы обнаружить японский шрифт в документе, а затем сделать его красным, в то время как текст на английском языке Engli sh.

Он работает, за исключением числовых символов, таких как 0123456789. Числа не обрабатываются как на японском, но на английском sh, поэтому цифры все еще синие, а не красные, как я ожидал.

Sub Replace_font_color()   
    Dim kage As Range
    Dim taro As Document

    Set taro = ActiveDocument     

    With taro
        For Each kage In .Words
            kage.Font.Name = "MS Mincho"
            'Replace all text by MS Mincho Font

            kage.Font.Name = "Times New Roman"
            'Replace all text font by Times New Roman font
            'Since Japanese characters can't be replaced by non Japanese font
            'so the Japanese characters remain in MS Minchon font

            If kage.Font.Name = "MS Mincho" Then
                kage.Font.Name = "MS Mincho"
                kage.Font.Size = 10.5
                kage.Font.Color = vbRed
            End If

            If kage.Font.Name = "Times New Roman" Then
                kage.Font.Name = "Times New Roman"
                kage.Font.Size = 13
                kage.Font.Color = vbBlue
            End If
        Next
    End With    
End Sub

Перед выполнением Macro

После выполнения Макрос