Как заменить жирний текст "тис. грн." на обычний текст "тис. грн."

[Jaroslav]

Добрый день. Вопрос в теме.
Делаю так:

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Bold = wdToggle
        .Text = "тис. грн."
        .Replacement.ClearFormatting
        .Replacement.Text = "тис. грн."
        .Forward = True
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With

Но ничего не получается.

[CyberMen]

Sub Макрос1()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
  .Text = "тис. грн."
  .Replacement.Font.Bold = False
  .Format = True
  .Forward = True
  .Wrap = wdFindContinue
  .MatchCase = False
  .MatchWholeWord = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
  .Execute Replace:=wdReplaceAll
End With
Selection.Find.Text = ""
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Application.Browser.Target = wdBrowsePage
End Sub

[Jaroslav]

Спасибо, CyberMen