переход между абзацами

[Рыжик чик чик]

Помогите пожалуйста. Дан документ с тестовыми заданиями. Надо анализировать количество слов в ответах. Оно не должно превышать например 5 слов.
Как пропуская абзацы с вопросами переходить на абзацы с ответами?

[Sasha_Smirnov]

Sub Макрос1()
With Selection.Find
.MatchWildcards = True 'соответствует галочке Подстановочные знаки - см. по Ctrl-h'
.Wrap = wdFindStop  'останавливает на первом найденном соответствии шаблону'
.Text = "<[абвгде]\)" 'шаблон (маска) для поиска: буква со скобкой'
.Execute
End With
'при выполнении выделяет отдельно стоящую букву со скобкой;'
'при следующем - следующую пару буква-скобка; остановится - на последней'
End Sub

(Нет, я не знаю, как узнать, что поиск завершён.)