Макрос в Word

  • Автор темы SOFTOBZOR.ru
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

SOFTOBZOR.ru

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

~Вася~
текст текст текст
~Дима~
текст текст
~Оля~
Код макроса такой
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 + это выражение работает замечательно.
Помагите где капать....?
 
Статус
Закрыто для дальнейших ответов.