Sub PullMe()
Dim lCount As Long
Dim sEnd As String
Dim oDoc As Document
sEnd = "Endnotes" & vbCrLf
For lCount = 1 To ActiveDocument.Endnotes.Count
sEnd = sEnd & lCount & vbTab & ActiveDocument.Endnotes(lCount).Range.Text & vbCrLf
Next lCount
sEnd = sEnd & "Footnotes" & vbCrLf
For lCount = 1 To ActiveDocument.Footnotes.Count
sEnd = sEnd & lCount & vbTab & ActiveDocument.Footnotes(lCount).Range.Text & vbCrLf
Next lCount
Set oDoc = Documents.Add
oDoc.Range.Text = sEnd
End Sub
|
