The below coding is help you and it is very easy method

Dim cursor_pos As Long
Dim doc_end As Long

cursor_pos = Selection.Start
doc_end = ActiveDocument.Range.End
doc_end = doc_end - 1

If cursor_pos = doc_end Then
MsgBox "Cursor position is at end of the document"
End If

Thanks,
nit22