You Look Too Cool

Sub 脚注を括弧に()
    Const kakkoLeft = "（"
    Const kakkoRight = "）"
    Dim n As Long, kosu As Long
    Dim mae, ato As String
    Dim foottext(100) As String
    Const markLeft = "<<"
    Const markRight = ">>"
    Selection.HomeKey Unit:=wdStory
    With ActiveDocument.Content
        kosu = ActiveDocument.Footnotes.Count
        For n = 1 To kosu
            With ActiveDocument.Footnotes(1)
                foottext(n) = .Range.Text
            End With
            Selection.Find.Replacement.ClearFormatting
            With Selection.Find
                .Text = "^f"
                .Replacement.Text = markLeft & n & markRight
                .Wrap = wdFindContinue '処理を継続。
                .MatchWildcards = False '特殊文字を検索。
                .MatchFuzzy = False '20201011追加
            End With
            Selection.Find.Execute Replace:=1
            Selection.Font.Superscript = False
        Next n
    End With
    For n = 1 To kosu
        mae = markLeft & n & markRight
        ato = kakkoLeft & foottext(n) & kakkoRight
        Call 長い文字列の置換(mae, ato)
    Next n
    Selection.HomeKey Unit:=wdStory
End Sub