Sub select()
Dim curSel
With Documents("yourDocument.doc")
If Selection.Information(wdAtEndOfRowMarker) = True Then
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdMove
Else
If curSel <> "" Then curSel.Select
Set curSel = Nothing
End If
End With
End Sub