Is this a question or an exercise in posting an incomplete sentence?
This is not intended to insult you, scare you away from posting further
questions, or as claim to superiority on my part. However, if the former
then in the future you might consider spending just a little more time
framing the question and providing a few details like what exactly is the
character set used for the brackets.
Shooting in the dark, you might try:
Sub ScratchMacro()
Dim oNote As Endnote
Dim oRng As Word.Range
Set oRng = ActiveDocument.Content
With oRng.Find
.Text = "\[*\]"
.MatchWildcards = True
While .Execute
Set oNote = ActiveDocument.Endnotes.Add(oRng, , Mid(oRng.Text, 2,
Len(oRng.Text) - 2))
oRng.Delete
oRng.Collapse wdCollapseEnd
Wend
End With
End Sub