Sub Sornjaki()
'
' Sornjaki Макрос
' Макрос записан 30.11.01 Ольга Денисова'
tex = Selection
p = Selection.Words.Count
MsgBox "There are " & p & " words."

For i = 1 To p

slovo = LCase(Trim(Selection.Words(i)))

'Красным цветом "было" '
If slovo = "был" Or slovo = "была" Or slovo = "были" Or slovo = "было" Then
With Selection.Words(i)
.Font.Color = wdColorRed
End With
End If

'Синим цветом - замена и контроль частоты'
If slovo = "может" Or slovo = "только" Or slovo = "момент" Or slovo = "слишком" Or slovo = "наверняка" Or slovo = "лишь" Or slovo = "наконец" Then
With Selection.Words(i)
.Font.Color = wdColorLightBlue
End With
End If

'Зелённым цветом - удалить'
If Left(slovo, 3) = "сво" Or Left(slovo, 8) = "собствен" Or slovo = "все" Or slovo = "уже" Or slovo = "же" Or slovo = "даже" Or slovo = "внезапно" Or slovo = "неожиданно" Or slovo = "вдруг" Or slovo = "еще" Then
With Selection.Words(i)
.Font.Color = wdColorBrightGreen
End With
End If

'Светло-зелёный - личные местоимения'
If Left(slovo, 2) = "он" Or slovo = "его" Or slovo = "ему" Or slovo = "им" Or slovo = "нем" Or slovo = "ей" Or slovo = "ее" Or slovo = "ею" Or slovo = "их" Or slovo = "них" Or slovo = "ими" Then
With Selection.Words(i)
.Font.Color = wdColorLightGreen
End With
End If

'Оранж. цветом "что" '
If slovo = "что" Then
With Selection.Words(i)
.Font.Color = wdColorOrange
End With
End If

'Светло-оранж. цветом "чтобы" '
If slovo = "чтобы" Or slovo = "чтоб" Then
With Selection.Words(i)
.Font.Color = wdColorLightOrange
End With
End If

'Розовым цветом "как" '
If slovo = "как" Then
With Selection.Words(i)
.Font.Color = wdColorPink
End With
End If

'Сиреневым цветом "так" '
If slovo = "так" Then
With Selection.Words(i)
.Font.Color = wdColorLavender
End With
End If

'Сиреневым цветом "это" '
If Left(slovo, 3) = "это" Or Left(slovo, 3) = "эти" Or slovo = "эта" Or slovo = "эту" Then
With Selection.Words(i)
.Font.Color = wdColorTurquoise
End With
End If

'Серым цветом - вводные слова'
If slovo = "видимо" Or slovo = "действительно" Or slovo = "однако" Or slovo = "впрочем" Or slovo = "собственно" Then
With Selection.Words(i)
.Font.Color = wdColorGray40
End With
End If

If sl & slovo = "-то" Then
With Selection.Words(i - 2)
.Italic = True
.Font.Color = wdColorLightBlue
End With

With Selection.Words(i - 1)
.Italic = True
.Font.Color = wdColorLightBlue
End With

With Selection.Words(i)
.Italic = True
.Font.Color = wdColorLightBlue
End With
End If

If slovo = "-" Then
sl = "-"
Else
sl = ""
End If

Next i
MsgBox "Все сорняки найдены"
End Sub