Sub MarkWord()  ' каждое второе слово документа длиннее 3 сделать красным
   Dim w As Range, cout As Long

   cout = 0
   Set w = ActiveDocument.Range
   With w.Find
      .Text = "<[&#192;-&#223;&#224;-&#255;A-Za-z0-9\-]*>"
      .MatchWildcards = True
      While .Execute
         If Len(w.Text) > 3 Then cout = cout + 1
         If cout Mod 2 = 1 Then w.Font.Color = wdColorRed
      Wend
   End With
End Sub

Sub MarkWord()  ' каждое второе слово документа длиннее 3 сделать красным
   Dim w As Range, cout As Long, rngEnd As Long

   If Selection.Start = Selection.End Then Exit Sub

   'Set w = ActiveDocument.Range ' если весь документ
   Set w = Selection.Range       ' если выделенное
   rngEnd = w.End

   cout = 0
   With w.Find
      .Text = "<[А-Яа-яA-Za-z0-9\-]{4;}>"
      .MatchWildcards = True
      While .Execute
         If w.Start > rngEnd Then Exit Sub
         cout = cout + 1
         If cout Mod 2 = 0 Then w.Font.Color = wdColorRed ' w.HighlightColorIndex = wdRed ' если закраска
      Wend
   End With
End Sub