Sub ConvertFootnotesEndnotes02()
Dim CertainFN As Footnote
  For Each CertainFN In ActiveDocument.Footnotes
    If InStr(CertainFN.Range.Text, "$$$") > 0 Then
      CertainFN.Range.Text = Replace(CertainFN.Range.Text, "$$$", "§§§")
      CertainFN.Reference.Footnotes.Convert
    End If
  Next CertainFN
lbl_Exit:
  Exit Sub
End Sub