Замена текста в выделенном фрагменте

[Nikbor]

Надо в тексте ворд заменить одно слово на другое. Вот код, который делает это для всего текста.

Код: Выделить всё

Sub convert()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "кофе"
        .Replacement.Text = "чай"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub


А как сделать, чтобы заменял только:
1. В выделенном фрагменте текста.
2. В текущей строке
3. В текущем абзаце