Sub ConvertFootnotesEndnotes02()
Dim CertainFN As Footnote
    For Each CertainFN In ActiveDocument.Footnotes
    Selection.Find.Style = ActiveDocument.Styles("Endnote")
    With Selection.Find
    .Text = "$$$" 
    .Replacement.Text = "§§§"
             CertainFN.Range.Footnotes.Convert
    End With
           Next CertainFN
lbl_Exit:
    Exit Sub
 End Sub