我明白你的困扰——你写的宏能把日文标红、英文标蓝，但数字却被当成英文变成了蓝色，这显然不是你想要的结果。咱们先拆解下原代码的问题：

原宏靠「先设MS Mincho再替换为Times New Roman，保留字体的就是日文」这个逻辑来区分语言，但数字完全能被Times New Roman正常显示，所以会被判定为英文、套用蓝色样式。这种依赖字体的判断方式不够精准，咱们换个更可靠的思路：直接通过字符的Unicode编码范围来识别日文、数字和英文。

下面是修改后的宏代码，它会准确把日文、数字设为红色，英文设为蓝色，同时保留你想要的字体和字号设置：

Sub Replace_font_color()
    Dim kage As Range
    Dim taro As Document
    Dim char As Variant
    
    Set taro = ActiveDocument
    
    With taro
        For Each kage In .Words
            ' 先给英文/默认内容设置基础样式
            kage.Font.Name = "Times New Roman"
            kage.Font.Size = 13
            kage.Font.Color = vbBlue
            
            ' 遍历每个字符，按Unicode范围精准判断
            For Each char In kage.Characters
                Select Case AscW(char)
                    ' 匹配日文汉字、平假名、片假名等Unicode范围
                    Case &H4E00 To &H9FFF, &H3040 To &H30FF, &H31F0 To &H31FF, &HFF66 To &HFF9F
                        char.Font.Name = "MS Mincho"
                        char.Font.Size = 10.5
                        char.Font.Color = vbRed
                    ' 匹配阿拉伯数字的Unicode范围（0-9）
                    Case &H30 To &H39
                        char.Font.Name = "MS Mincho"
                        char.Font.Size = 10.5
                        char.Font.Color = vbRed
                    ' 其他字符保持英文默认样式
                    Case Else
                        char.Font.Name = "Times New Roman"
                        char.Font.Size = 13
                        char.Font.Color = vbBlue
                End Select
            Next char
        Next kage
    End With
End Sub

代码逻辑说明： #

• 先给每个单词设置默认的英文样式（Times New Roman、13号、蓝色）
• 逐个检查字符的Unicode编码：
  • 命中日文编码范围时，切换为MS Mincho字体、10.5号、红色
  • 命中数字编码范围时，同样套用日文的红色样式
  • 其他字符保持默认的英文样式

这样修改后，数字就会和日文一起被标红，完全符合你的预期啦。

内容的提问来源于stack exchange，提问作者Kage