求教：关于标记特殊行颜色的问题。

常扬帆

我附件中，有的行只含有一个结构符号，有的行含有两个、三个……不等，现在我想，除了只含有一个结构符号的行以外，其余的行统统标记成另外一个颜色，结构符号随机排列，衷心感谢您！

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, i&, m&, n&, dic As Object, Par As Paragraph, strRngText$
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
        
    ar = Array(35, 12272, 12273, 12274, 12275, 12276, 12277, 12278, 12279, 12280, 12281, 12282, 12283, 12286, 12287)
    For i = 0 To UBound(ar): dic(ar(i)) = Empty: Next
   
    With ActiveDocument
        .Range.Font.Color = wdColorAutomatic
        For Each Par In .Paragraphs
            m = Len(Par.Range.Text)
            strRngText = Par.Range.Text
            n = 0
            For i = 1 To m
                If dic.Exists(AscW(Mid(strRngText, i, 1))) Then n = n + 1
            Next
            If n > 1 Then Par.Range.Font.Color = wdColorRed
        Next
    End With
   
    Application.ScreenUpdating = True
End Sub

gwjkkkkk

请参考附件。。。

常扬帆

gwjkkkkk 发表于 2024-1-16 20:57
请参考附件。。。

和尚不吃豆腐——怪斋！它只标记我给您的示例，我加了几条，它都不标记。您帮我看看？如果过多，速度太慢，就标记没有带符号的行。谢谢您！

常扬帆

gwjkkkkk 发表于 2024-1-16 20:57
请参考附件。。。

加了几条，忘记给您了，现在给您！

gwjkkkkk

常扬帆 发表于 2024-1-16 22:04
加了几条，忘记给您了，现在给您！

应该是这个方块的问题吧，部分与你提供类型中ascW编码是不一致的，导致产生问题.

常扬帆

对，可能是字体问题。它不是方块，是字。