Trouble with endnotes. Will not number sequentially.

[Guest]

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!

 

[Doug Robbins]

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