我怎样才能使这个亚洲字体突出显示宏识别单词间字符？

Question

对于我处理的大部分文档，我需要突出显示亚洲字体实例（例如 SimSun、MS Mincho）。

我将下面的代码放在一起 - 它运行良好，但它不会突出显示非亚洲单词中的亚洲字体字符（例如 "it's" 中的撇号）。

Sub HighlightAsian2019()
Dim aWord
    For Each aWord In ActiveDocument.Words
        If aWord.Font.Name = "SimSun" Then
           aWord.FormattedText.HighlightColorIndex = wdTurquoise
        End If
    Next aWord
    For Each aWord In ActiveDocument.Words
        If aWord.Font.Name = "MS Mincho" Then
           aWord.FormattedText.HighlightColorIndex = wdTurquoise
        End If
    Next aWord
End Sub

任何人都可以帮助我改进代码，以便突出显示文本中所有 SimSun 和 MS Mincho 实例吗？

任何帮助将不胜感激！

Answer 1

使用这个循环：

Sub HighlightAsian2019()

With ActiveDocument.Range

    For i = 1 To .Characters.Count
        If .Characters(i).Font.Name = "SimSun" Then
            .Characters(i).FormattedText.HighlightColorIndex = wdTurquoise
        End If
    Next

End With

End Sub

您可以使用范围的 .Characters 属性来访问字母表。为其他字体添加另一个 If 条件以检查

Answer 2

由于我没有那个特定的字体，我用其他字体进行了测试，可以尝试修改字体名称。

Sub test()
Dim Rng As Range
Set Rng = ThisDocument.Content
With Rng.Find
.ClearFormatting
.Text = ""
.Font.Name = "Kruti Dev 040 Wide"
    Do While .Execute
    Rng.FormattedText.HighlightColorIndex = wdTurquoise
    Loop
End With
End Sub

我怎样才能使这个亚洲字体突出显示宏识别单词间字符？

How can I make this Asian font highlighting macro recognize between-word characters?

vba

ms-word

asianfonts