Макросы VBA Word

[gurya]

1. В текстовом документе найти первое слово начинающаеся на гласную букву
2.в текущем абзаце выделить предложение сод-е наименьшее кол-во слов
Прошу помощь написать макросы. Если не сложно, дайте объяснения к своим вариантам, я новичок в VBA.

[viter.alex]

1. Делается поиском <[аеиоуэюяё][! \?\!\.\,\:\;]*>. Подстановочные знаки включены. Поиск записать макросом.
2

Sub WordsMinimum()
    Dim i As Long 'Переменная, хранящая минимальное количество слов
    Dim oPar As Paragraph 'Переменная, для хранения текущего абзаца
    'Запись в переменную абзаца, в котором находится курсор
    Set oPar = Selection.Paragraphs.First
    
    Dim oRng As Range 'Переменная для предложений
    'Инициализация переменной. Не особенно важно,
    'что записывать в эту переменную, я предпочитаю так
    Set oRng = ActiveDocument.Content
    oRng.SetRange oPar.Range.Start, oPar.Range.Start
    
    'Цикл, для перебора предложений в абзаце.
    'Предложения определяются по знакам препинания
    Do While True
        'Расширение диапазона до следующего знака препинания
        oRng.MoveEndUntil ".?!"
        'Если слов в текущем предложении меньше, чем ранее
        If i > oRng.Words.Count Then
            i = oRng.Words.Count 'Переписываем значение переменной
            oRng.Select 'Выделяем предложение
        End If
        'Если не вышли за конец абзаца
        If oRng.End <= oPar.Range.End Then
            'Смещаем диапазон к следующему предложению
            oRng.MoveUntil " "
        Else
            'Если вышли — выход из цикла
            Exit Do
        End If
    Loop
End Sub

[Пименов Александр]

По пункту 1 я бы выбрал другой шаблон поиска:
([АЕИОУЭЮЯЁаеиоуэюяё])([А-ЯЁа-яё]{1;})
тогда будет найдено как слово начинающиеся со строчной гласной, так и с прописной гласной, так и слово состоящее из прописных букв полностью

[viter.alex]

Абсолютно верное замечание. Спасибо

[gurya]

в текущем абзаце в самом коротком слове в самом коротком предложении поменять порядок следования букв на обратный, а вот такая задача?

[Sasha_Smirnov]

Сообщение от Пименов Александр

По пункту 1

<[АЕИОУыЭЮЯЁаеиоуЫэюяё]*>
Находит в заголовке этого поста слово А (а не есть, как было бы по вашему шаблону).

[viter.alex]

Сообщение от gurya

в текущем абзаце в самом коротком слове в самом коротком предложении поменять порядок следования букв на обратный, а вот такая задача?

Я не понял, у нас тут передача "А вам слабо?" Мало того, что вы даже не благодарите за сделанную для вас работу, так ещё и в назойливой форме предлагаете следующее задание.
Отвечаю. Эта задача тоже выполнима. Как и многие другие, о которых вы пока что не имеете понятия.

Сообщение от Sasha_Smirnov

<[АЕИОУыЭЮЯЁаеиоуЫэюяё]*>
Находит в заголовке этого поста слово А (а не есть, как было бы по вашему шаблону).

Действительно. Только я не пойму как этот шаблон работает. По моим представлениям он должен находить только слова из гласных букв, но он находит все. Почему?

[Sasha_Smirnov]

Сообщение от viter.alex

Отвечаю. Эта задача тоже выполнима.

И даже есть код*!

Сообщение от viter.alex

...но он находит все. Почему?

Алекс, сам не ожидал! Жаль, ТС не оценит всю красоту момента...

Вообще-то, это подстановочный знак * так здорово работает.

________________________
* я было решил, что вполне адекватный (я ж старался!), однако вот что, зараза, он выдал:

[viter.alex]

Сообщение от Sasha_Smirnov

Вообще-то, это подстановочный знак * так здорово работает.

Понятно, что это он так работает. Но почему? Делает чужую работу, так сказать. Прямо как мы за ТС

[Sasha_Smirnov]

Тёзка, тов. gurya подаёт нам хороший пример: отдохнуть, послушать пение птиц и певиц.

<[АЕИОУыЭЮЯЁаеиоуЫэюяё]*> означает "гласная в начале слова и что угодно* в конце"

____________
* хоть бы даже и вовсе ничего: то есть та же гласная и в конце