vbscript 检测数字和单位之间是否有空格;单位是否缩写

Posted 2021-05-21

Sub detectUnit()
arr = " millimeters , millimeter , centimeters , centimeter , meters , meter , kilometers , kilometer , grams , gram , kilograms , kilogram , liters , liter , minutes , minute , seconds , second , hours , hour , mins  , gr , hr , sec "
brr = "millimeters ,millimeter ,centimeters ,centimeter ,meters ,meter ,kilometers ,kilometer ,grams ,gram ,kilograms ,kilogram ,liters ,liter ,minutes ,minute ,seconds ,second ,hours ,hour ,mins ,gr ,hr ,sec ,mm ,mm ,cm ,cm ,m ,m ,km ,km ,g ,g ,kg ,kg ,L ,L ,min ,min ,s ,s ,h ,h ,min ,g ,h ,s "
full = Split(arr, ","): abbr = Split(brr, ",")
For i = 0 To UBound(abbr)
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        
        .MatchCase = True
        .MatchWildcards = True
        .Wrap = wdFindContinue
        .Text = "[0-9]" + abbr(i)
        Do
        DoEvents
        .Execute
        
        If .Found Then
           
                Selection.Range.HighlightColorIndex = wdRed
           
        Else
            Exit Do
        End If
        Loop
    End With
    
Next

For i = 0 To UBound(full)
With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        
        .MatchCase = True
        .MatchWildcards = False
        .Wrap = wdFindContinue
        .Text = full(i)
        Do
        .Execute
        
        If .Found Then
            If IsNumeric(Selection.Range.Previous(wdCharacter, 1)) Then
                Selection.Range.HighlightColorIndex = wdRed
            End If
        Else
        Exit Do
        End If
        Loop
    End With
Next
End Sub