Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oFN As Endnote
Dim oRng As Word.Range
Dim strText As String
strText = Selection.Text
Debug.Print Left(strText, 1)
If Left(strText, 1) Like "[\!?,.;:]" Then
  strText = Left(strText, Len(strText) - 1)
End If
Set oFN = Selection.Range.Endnotes.Add(Selection.Range, , Selection.Information(wdActiveEndPageNumber) & " " & strText & ": ")
Set oRng = oFN.Range
oRng.MoveEnd wdCharacter, -2
oRng.Font.Italic = True
oRng.Collapse wdCollapseEnd
oRng.Move wdCharacter, 2
oRng.Select
End Sub