Word VBA: Количество слов которые начинаются и заканчиваются на букву "b"

[chris_dzn]

Кто может помочь?
Нужен код VBA Word который будет считать количество слов которые начинаются и заканчиваются буквой "b" или "B" в заданном нами параграфе.

[Администратор]

Макрос работает с параграфом, в котором находится курсор (или если параграф выделен).

Макрос

Sub Макрос()

    Dim word As Range, counter As Long
   
    ' Цикл по словам в абзаце. Но для ворда словом являются и запятые, точки, знак абзаца,
        ' поэтому нужно об этом знать.
    For Each word In Selection.Paragraphs(1).Range.Words
        ' Trim - убираем правый пробел из слова.
        ' LCase - делаем в слове буквы маленькими, чтобы написать в коде одно условие,
            ' а не два: для больших и маленьких букв.
        If LCase(RTrim(word.Text)) Like "b*b" Then
            counter = counter + 1
        End If
    Next word
   
    MsgBox "Кол-во слов: " & counter
   
End Sub

[свернуть]

[chris_dzn]

Спасибо, всё работает!