Am editing another person's work. Need to insert more endnotes. When
inserting between endnotes 3 and 4, Word numbers new note as 1. Tried
starting over by deleting all endnotes. Now Word insists the first endnote
is 17! HELP!

By changing footnotes to endnotes in the following code, it might do the
trick (Run it on a copy of the document just in case)

' Macro created by Doug Robbins to re-insert Footnotes

Dim afnRange As Range, afntext As String, i As Integer

For i = 1 To ActiveDocument.Footnotes.Count

ActiveDocument.Footnotes(i).Reference.Select

Selection.Characters(1).Select

If Not Selection.Style = "Footnote Reference" Then

While Not Selection.Style = "Footnote Reference"

Selection.Collapse wdCollapseStart

Selection.MoveLeft wdCharacter

Selection.Characters(1).Select

Wend

Selection.Delete

End If

Set afnRange = ActiveDocument.Footnotes(i).Range

afntext = afnRange.Text

ActiveDocument.Footnotes(i).Delete

ActiveDocument.Footnotes.Add Range:=Selection.Range, Text:=afntext



Next i

--
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
"scarletgiraffe" wrote in message
...
Am editing another person's work. Need to insert more endnotes. When
inserting between endnotes 3 and 4, Word numbers new note as 1. Tried
starting over by deleting all endnotes. Now Word insists the first
endnote
is 17! HELP!