vba - 如何使这个亚洲字体突出显示宏识别字间字符？

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

您可以使用.CharactersRange 的属性来访问字母表。添加另一个 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