Презентация на тему Макросы вmicrosoft word

знаками препинания и/или пробелами (т. е. любыми разделителями).

As Object, j2 As Object
Set j2 = ActiveDocument.Words(1) 'запоминаем

первое слово, чтобы было с чем сравнивать
For Each j In ActiveDocument.Words
'если это не один из знаков препинания и не знак абзаца
If InStr(".,^;""`~!@#$%^&?*()-+{}[]()|\/'<>:" & Chr(13), Trim(j)) = 0 Then
If Len(Trim(j)) < Len(Trim(j2)) Then 'если слово короче, чем то, что в памяти
Set j2 = j 'заменить слово в памяти на новое (более короткое)
End If
End If
Next j
…

'Если длина сравниваемого слова равна

длине кратчайшего слова
If Len(Trim(j)) = Len(Trim(j2)) Then
'То выделяем это слово жёлтым цветом
j.HighlightColorIndex = wdYellow
End If
Next j
Beep 'Звуковой сигнал
Unload Form1 'Выгружаем форму
End Sub