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

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


Код макроса такой
Цитата
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 + это выражение работает замечательно.
Помагите где капать....?