[Graham Mayor]

Try

Sub CopyFootnotes()
Dim sDoc As Document
Dim tDoc As Document
Dim sId As String
Set sDoc = ActiveDocument
Set tDoc = Documents.Add
For i = 1 To sDoc.Footnotes.Count
sId = sDoc.Footnotes(i).Index
sDoc.Footnotes(i).Range.Select
Selection.Copy
tDoc.Activate
With Selection
.Style = "Footnote Text"
.Font.Superscript = True
.TypeText sId & " "
.Font.Superscript = False
.Paste
.TypeParagraph
End With
sDoc.Activate
Next i
tDoc.Activate
End Sub


--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org




Fred Goldman wrote:
Very cool!!!

Thank you very much for writing me that macro!

Is there any way to get it to keep the formatting, like bold italics
and character styles when moving the footnotes to the new doc?

I was able to read how you looped through the footnotes, but I
couldn't understand the rest...