revise 8-31
Dim i As Integer
Dim oendNote As Endnote, myrange As Range
Dim BeforeName As String, BeforeSize As Single
ActiveDocument.Footnotes.Convert
Call accepttrack
Application.ScreenUpdating = False
Selection.EndKey wdStory
Selection.TypeText vbCrLf + "NEWLY ADDED"
Selection.Paragraphs(1).Range.Font.Bold = -1
i = 1
delay (150)
For Each oendNote In ActiveDocument.Endnotes
oendNote.Range.Copy
oendNote.Reference.Text = "[" + CStr(i) + "]"
Selection.EndKey wdStory
Selection.TypeText vbCrLf + CStr(i) + "."
Selection.PasteAndFormat (wdFormatOriginalFormatting)
delay (150)
i = i + 1
Next
Application.ScreenUpdating = True