Footnotes

[Guest]

I have a large document that I have typed over the last year. I just found
out that when I submit it, I cannot use the auto footnote function in Word.
Arghh. Any ideas on how to "undo" all the footnotes in my document without
having to re-write them all from scratch? MS Word 2003, SP2 Thanks in
advance!

 

[Stefan Blom]

You can convert your footnotes to endnotes, and then use the following
macro to convert the endnotes to plain text at the end of the document:

Sub ConvertTheEndNotes()

' Macro created 29/09/99 by Doug Robbins to replace endnotes with
'textnotes
'at end of document and
' to replace the endnote reference in the body of the document with a
'superscript number.
'
Dim aendnote As Endnote
For Each aendnote In ActiveDocument.Endnotes
ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
& vbTab & aendnote.Range
aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
Next aendnote
For Each aendnote In ActiveDocument.Endnotes
aendnote.Reference.Delete
Next aendnote
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = True
End With
With Selection.Find
.Text = "(a)([0-9]{1,})(a)"
.Replacement.Text = "\2"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

--
Stefan Blom
Microsoft Word MVP


in message
news:[email protected]...