Vba 将脚注导出到新文档

我需要vba代码将MSWord文档中的所有脚注复制到单独的文档中。我要按原始文件中相同的编号订购

我尝试了下面的代码，但它没有显示任何内容

    Dim s As String
    Dim ftnt As Word.Footnotes
    Dim doc As Word.Document
    Dim xRange As Range
    Dim countNum As Integer
    Set xDoc = ActiveDocument
    countNum = 0
    
    Do Until countNum = ActiveDocument.Range.Information(wdNumberOfPagesInDocument)
            Set xRange = ActiveDocument.Footnotes(countNum).Range
            s = s & vbCr & countNum & vbTab & xRange
        countNum = countNum + 1
    Loop
    Set doc = Documents.Add
    doc.Range.Text = s
    
End Sub

---

提前谢谢。

找到了我问题的答案

我遇到了错误，因为页码超过了脚注编号。所以，迭代时出现了一个问题

脚注长度为ActiveDocument.Footnotes.Count

Sub SelectA11FootnoteTexts()
    Dim s As String
    Dim ftnt As Word.Footnotes
    Dim doc As Word.Document
    Dim xRange As Range
    Dim countNum As Integer
    Set xDoc = ActiveDocument
    footNotesNum = xDoc.Footnotes.Count
    countNum = 1

    Do Until countNum > footNotesNum
          Set xRange = xDoc.Footnotes(countNum).Range
            s = s & vbCr & countNum & vbTab & xRange
        countNum = countNum + 1
    Loop
    Set doc = Documents.Add
    doc.Range.Text = s
    
End Sub

---

如果你在谷歌上搜索过它，你会在微软社区上找到它，它将为你提供提取脚注所需的所有信息。事实上，如何提取脚注和/或尾注的问题已经被多次提到。请看，例如：并且我认为您需要调整xDoc，至少如果您需要声明变量的话。