Макрос в Word

[SOFTOBZOR.ru]

Господа, наваял макрос, который делает выборку определенных слов.
Пример

~Вася~
текст текст текст
~Дима~
текст текст
~Оля~

Код макроса такой

Sub M1()
Selection.Find.ClearFormatting
With Selection.Find
.Text = "~(*)~" 'То что я ищу, условие
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Font.Bold = wdToggle
End Sub

Все, но при запуске макроса он не отрабатывает. А при запуске CTRL+F + это выражение работает замечательно.
Помагите где капать....?