View Single Post
  #2   Report Post  
Posted to microsoft.public.word.docmanagement
Doug Robbins - Word MVP Doug Robbins - Word MVP is offline
external usenet poster
 
Posts: 8,832
Default reformat endnote

If you run the following macro, it will convert the endnotes to textnotes at
the end of the document and it would put brackets around the endnote
reference. You should save the document before running this macro and save
it with a new name after running it in case you want to go back and make
changes to the document.

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

' to put brackets around the endnote reference in the body of the document.

'

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

.Text = "(a)([0-9]{1,})(a)"

.Replacement.Text = "(\2)"

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"jane a." jane wrote in message
...
word formatted my endnotes into superscripted numbers. i need to change
those into regular (no superscript) numbers surrounded by brackets. can
somebody please help me with this?

thank you.