Макрос работает с параграфом, в котором находится курсор (или если параграф выделен).
Макрос
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