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

Не сильна в макросах, к сожалению.
Вот на просторах инета приводится такое решение для абзацев, начинающихся с определенного символа. Полагаю, как-то по аналогии, но надо как-то символ изменить на слово или фразу.

Sub ParaBold2()
Dim Symb As String
Dim Par As Paragraph

For Each Par In ActiveDocument.Paragraphs
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Symb = Selection.Text
If Symb = "В" Then
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.Font.Bold = True
End If
Selection.MoveDown Unit:=wdParagraph, Count:=1

Next Par
End Sub