endnote numbering

[Mikey]

Ok, here's the deal. I have large document with over 200
endnotes. I originally composed in in WordPerfect and
then translated it into word. Since translating it, I
have rearranged text, and added endnotes. Now the
endnotes do not run sequentially. In fact, if I place
the cursor immediately after endnote 87, for example, and
click insert endnote, the number it gives is totally
different (52) -- I can see no rational way the program
comes up with this number. Endnotes are sequential 100-
147 and then continue to 87. Nevertheless, the endnote
appears in the proper sequence in the bottom (endnote)
frame, just with the wrong number. I have checked
the "track changes" feature, and this is not the problem,
and also I've deleted all section markers and directed
the program to number throughout the document. I'm at a
loss. Would appreciate any help...

 

[Doug Robbins - Word MVP]

Here's a macro that I developed for someone who had a somewhat similar
problem with footnotes. You could modify it to do the same thing with
endnotes

' 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


--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP