Convert footntoes to plain text

[Fred Goldman]

Is there any way to copy footntoes to a new document and kee their numbers?
Whenever I try to copy it all the footnote numbers revert to one.

 

[grammatim]

What exactly are you trying to do? If you just change your footnotes
to endnotes, they'll gather at the end, and you can put a page break
before the first one and print them out as a unit.

Or, you could move all the notes to a new docuiment and turn on
paragraph numbering.

 

[Fred Goldman]

I need to move them to a new docuemnt. Using numbering won't work because
most of the footnotes have multiple paragraphs.

 

[grammatim]

What are you moving? If you select the footnote reference in the text,
Copy it, and Paste it into the new document, the whole footnote will
simply appear as the next numbered footnote in the sequence. (Unless,
of course, you have turned on restart numbering on each page!)

 

[Fred Goldman]

Right, but I don't want it to be a footnote anymore, so I put the cursor in
the footnotes pane and press Ctrl+A. Then I copy them. When pasting them into
a new doc all the footnotes start with one.

I would like to import these footnotes as a totally seperate text into a
layout program, but I don't to have to renumber them.

 

[grammatim]

Sorry, I'm not understanding. They were footnotes; you don't want them
to be footnotes; yet you want them to be numbered.

 

[Graham Mayor]

I don't thing there is any simple way to achieve this, but a macro should do
the trick. Run the following on the document that contains the footnotes. It
will write the footnotes to a new document.

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

http://www.gmayor.com/installing_macro.htm


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Fred Goldman]

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...

 

[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

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>