VBA Word 2 простых(не для меня) задания:)

[Njos]

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

Сказали текст можно брать любой!

Заранее благодарен!!! Если можно написать макрос(ы) полностью, пожалуйста! VBA еще не изучил как следует(простите, за моё бездельничество), к сожалению завтра последний день сдачи заданий по VBA(яудент), сдать бы хотябы на 3(2 задания на 3-ку). Если если желание помоч получить 4-ку то посмотрите, пожалуйста, вот это:
3. В текущем абзаце выделить самое маленькое слово.
4.В текущем абзаце в самом коротком слове самого короткого предложении поменять порядок следования букв на обратный.
Буду признателен к тем кто выручит!!!

[Sasha_Smirnov]

Кое-что можете здесь найти: Макросы VBA Word

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

Задание следующее:
1. В текстовом документе найти первое слово, начинающееся на гласную букву.

Там (по ссылке) это есть для документа Word — но только для основного текста).

[Njos]

Там уже был, нечего не понял, куда это вставлять.

[Sasha_Smirnov]

Да как обычно — в окно поиска (сочетание клавиш Ctrl-h); там отметить флажком подстановочные знаки, затем включить запись и нажать кнопку "Найти"; запись остановить и по Alt-F11 (и потом, возможно, Ctrl-R) взять записанный код.

Пока сам не попробуешь...

[Sasha_Smirnov]

Option Explicit     'это просто полезно (объявлять все переменные)
Option Compare Text 'это принципильно важно для оператора Like


Sub ПеревернутьКратчайшееСлово()
Dim S, W, minS, minW, nS, nW: nS = 1 ': nW = 1

minS = 1000: minW = 1000 'задали заведомо большие числа (чтоб их уменьшать)
Selection.Expand wdParagraph 'расширили выделение на весь текущий абзац

    With Selection.Range    'работаем в выделенном (абзаце)
    
        For S = 1 To .Sentences.Count                           'перебор предложений
         .Sentences(S).Select       'предложение номер S выделено
                If Selection.Characters.Count < minS Then 'число символов < прежнего
                    minS = Selection.Characters.Count
                    'обновили минимум длины предложения
                    nS = S 'запомнили номер "мимиального" предложения
                End If
         
             With Selection.Range       'работаем в выделенном (предложении)
                    For W = 1 To .Words.Count                   'перебор слов
                    .Words(W).Select    'слово номер W выделено
            'СЛОВО может и не быть словом - пройдёмся по его символам (функция IsLikeAword)
                        If IsLikeAword(Selection.Text) Then
                            If Selection.Characters.Count < minW Then
                                    minW = Selection.Characters.Count
                                    'обновили минимум длины слова
                                    nW = W 'запомнили номер мимиального слова
                            End If
                        End If
                    Next                            'конец перебора слов
                    If nW = 0 Then MsgBox "В этом абзаце слов не обнаружено.": Exit Sub
            End With
        Next                                        'конец перебора предложений
    
    If MsgBox("1-е самое короткое слово самого короткого предложения, " & _
            "найденного в текущем абзаце, это «" & Trim(.Words(nW)) & "»." & _
            vbCr & vbCr & IIf(Len(Trim(.Words(nW))) > 1, "Перевернуть?", "Да?"), vbYesNo, _
            "Выбор верного пути") = vbYes Then
        MsgBox StrReverse(Trim(.Words(nW)))
    End If
    End With
End Sub


Function IsLikeAword(ByRef q As String) As Boolean
'Исходит из того, что Word делит текст на "слова" (члены семейсва Words) по разделителям,
'которые (если это не обычные пробелы с кодом 32) и сами входят в число этих самых Words.
'q = Replace(q, Chr(39), " ") 'заменяет ‹'› на пробел - иначе ‹'› включается в "слово"(!)
Dim i
    For i = 1 To Len(q)
    If Mid(q, i, 1) Like "[! A-ZА-Я ]" Then Exit Function 'найдя не пробел и не букву - вышли
    Next
IsLikeAword = True
End Function

Примечание: после Я пробел не обычный (а неразрывный [код 0160, набирать зажав левый Alt]) — но сюда он не импортируется; впрочем, много чего недодумано, всего не учесть!

В целом программа полна загадок, но она работает: