changing footnotes from superscript to regular with brackets

Question

I'm writing an article for a journal that uses a bracket, non-superscript format for endnotes. How can I convert my endnotes from the default to this format?  I've tried changing styles, but this seems to have to be done manually one by one and also doesn't allow me to place brackets.  I've also tried find and replace but I can't figure out how to direct it to find all endnotes (or to put brackets around them without modifying what's inside, for that matter).  Many thanks.

Answer 1

The following macro will convert the end notes to ordinary text and modify the reference to them in the text so that it appears as (1), (2), etc.

Use it on a copy of your document so that you will still have the original for further editing if necessary.

' Macro created 29/09/99 by Doug Robbins to replace endnotes with textnotes at end of document

' 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 = False

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