Макрос изменение текста

[Scrydz]

Нужно написать макрос, который будет выделять курсивом слова, длинна которых не превышает 7 символов.
Накатал такой макрос, но он не хочет работать..

Заранее спасибо.

[Serge_Bliznykov]

Scrydz, а зачем вставлять картинку?! Неужели трудно скопировать и вставить текст макроса?!!!

а так?

Sub HighLightShortWords()
  Dim w
  For Each w In ThisDocument.Words
    If (Len(w.Text) > 0) And (Len(w.Text) < 7) And _
             (InStr(".,:;?!", Mid(w.Text, 1, 1)) = 0) Then
      ' MsgBox "w = " & w.Text
      w.Font.Color = wdColorRed
      w.Font.Italic = True
    End If
  Next
End Sub