amor
Вот этота процедура покрасит все слова с ошибкой на листе "Лист1" в красный цвет:
| Код | Sub s_01()
Dim v_Rng As Range, v_Cell As Range
Dim v_Str As String, v_Word As String
Dim v_Start As Long, v_WordLen As Long
Dim n As Integer
Set v_Rng = Sheets("Лист1").UsedRange
For Each v_Cell In v_Rng
v_Str = v_Cell.Text
If Application.CheckSpelling(v_Str, , True) = False Then
For n = 0 To UBound(Split(v_Str))
v_Word = Split(v_Str)(n)
v_WordLen = Len(v_Word)
If Application.CheckSpelling(v_Word, , True) = False Then
Do
v_Start = InStr(v_Start + 1, v_Str, v_Word)
If v_Start = 0 Then Exit Do
v_Cell.Characters(v_Start, v_WordLen).Font.ColorIndex = 3
v_Start = v_Start + v_WordLen
Loop
End If
Next n
End If
Next
End Sub |
|