Искать в документе, но не в первом абзаце-Ворд

With ActiveDocument.Range.Find
        .Text = "\$\{*\}"
        'эта опция отвечает за поиск с использованием подстановочных знаков
        'не работает когда установлено в положение False, или её нет вообще
        'если установлена в положение True, тогда работает
        .MatchWildcards = True
        Do While .Execute
            'wdBrightGreen - ярко-зеленый = 4
            'wdwdYellow - желтый = 7
            'wdTurquoise - бирюзовый = 3
            'wdRed - красный
            .Parent.HighlightColorIndex = wdRed
            D = D + 1
        Loop
    End With

With ActiveDocument.Range( _
         Start:=ActiveDocument.Paragraphs(2).Range.Start, _
         End:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.End).Find