Sub Foot_EndNotesToText()
Dim oFNote As Footnote
Dim oENote As EndNote
Dim iRef As Integer
Dim sRef As String
Dim orng As Range
    For Each oFNote In ActiveDocument.Footnotes
        With oFNote
            iRef = .Index
            sRef = .Range.Text
            Set orng = .Reference
            .Delete
            orng.Text = "(reference " & iRef & ") (" & sRef & ")"
        End With
    Next oFNote
    For Each oENote In ActiveDocument.Endnotes
        With oENote
            iRef = .Index
            sRef = .Range.Text
            Set orng = .Reference
            .Delete
            orng.Text = "(reference " & iRef & ") (" & sRef & ")"
        End With
    Next oENote
End Sub