Поиск именно в выделенном фрагменте Ворда - VBA

Формулировка задачи:

 Dim d As Long
    d = 0
 
    'поиск в содержимом выделенного текста
    With ActiveDocument.Range(Start:=Selection.Start, End:=Selection.End).Find
        .Text = "\$\{*\}"
        'эта опция отвечает за поиск с использованием подстановочных знаков
        'не работает когда установлено в положение False, или её нет вообще
        'если установлена в положение True, тогда работает
        .MatchWildcards = True
        While .Execute
            'wdBrightGreen - ярко-зеленый = 4
            'wdwdYellow - желтый = 7
            .Parent.HighlightColorIndex = 7
            d = d + 1
        Wend
    End With

здравствуйте, что-то код не работает как ожидается, как его подлечить? спасибо

Решение задачи: «Поиск именно в выделенном фрагменте Ворда»

textual
                            Листинг программы 
                        

                            Dim d As Long, ePos&
    d = 0
    ePos = Selection.End
    'поиск в содержимом выделенного текста
    With Selection.Range.Duplicate.Find
        .Text = "\$\{*\}"
        'эта опция отвечает за поиск с использованием подстановочных знаков
        'не работает когда установлено в положение False, или её нет вообще
        'если установлена в положение True, тогда работает
        .MatchWildcards = True
        Do While .Execute
            If .Parent.End > ePos Then Exit Do
            'wdBrightGreen - ярко-зеленый = 4
            'wdwdYellow - желтый = 7
            .Parent.HighlightColorIndex = 7
            d = d + 1
        Loop
    End With
                        