kerrypnx
4/3/2018 - 2:45 AM

endnote2Ref

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