Wordの脚注一覧を作成するマクロ

Sub 脚注一覧作成()
    Dim n, i As Long
    Dim rt As String
    With ActiveDocument.Content
        .InsertAfter "【脚注一覧】"
        .InsertParagraphAfter
        For n = 1 To ActiveDocument.Footnotes.Count
            With ActiveDocument.Footnotes(n)
                i = .Index
                rt = .Range.Text
            End With
            .InsertAfter i & ">" & rt
            .InsertParagraphAfter
        Next n
    End With
End Sub