In that case, try the following macro:
Code:
Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
For i = .Endnotes.Count To 1 Step -1
With .Endnotes(i)
.Reference.InsertAfter "<a id=""bn_" & i & """ href="" ../Text/endnotes.html#n_" & i & """>" & i & "</a>"
.Delete
End With
Next
End With
Application.ScreenUpdating = True
End Sub
For PC macro installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm
For Mac macro installation & usage instructions, see: http://word.mvps.org/Mac/InstallMacro.html