Sub Test()
Selection.EndKey unit:=wdLine
If Selection.Range.End + 1 = ActiveDocument.Range.End Then MsgBox "At end"
End Sub

Signature
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.
> In my code I have:
> Selection.EndKey unit:=wdLine
> ...this puts me at the end of that line. It's there a way to tell if
> that is the last line in the document?
> thanks.