Need to delete endnotes. Help!!

[Guest]

I need to delet automatic endnotes and insert straight text notes per
publisher request. Cannot get rid of the automatic endnote features.
Thanks.

 

[Charles Kenyon]

What happens if you save your document as an rtf file?

Or do you simply mean that you don't want the notes numbering to be
superscripted, etc. If so, see
http://word.mvps.org/faqs/MacrosVBA/UnSuperscptFnotes.htm.
--
Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

 

[Suzanne S. Barnhill]

You delete a footnote or endnote by deleting its reference in the document
text. There is also a macro floating around for converting endnotes to text;
you might Google for that.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Daiya Mitchell]

I need to delet automatic endnotes and insert straight text notes per
publisher request. Cannot get rid of the automatic endnote features.
Thanks.

Here's the macro Suzanne mentioned, by Doug Robbins. I would suggest always
doing anything major like this on a copy of the document. Easier to run the
macro again later than manually update your own notes from now on.

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