Word script - replace text with certain highlight color

replaceByHighlightColor.vba

Sub replaceHighlights()

    'Always start at the top of the document
    Selection.HomeKey Unit:=wdStory
    
    ' wdPink - @@
    ' wdBrightGreen - @@@
    
    With Selection.Find
        .Text = "@"
        Do While .Execute
             If Selection.Find.Found Then
                    If Selection.Range.HighlightColorIndex = wdBrightGreen Then
                        ''==================================
                        '' Do your footnote magic here
                        ''==================================
                        Selection.Range.Text = "@@@"
                    End If
                    wUnits = Selection.Move(wdWord, 1)
                End If
        Loop
    End With

End Sub