Dim myrange as Range
Set myrange = Selection.Cells(1).Range
myrange.End = myrange.End - 1
'myrange will then contain just the text in the cell without the end of cell
marker.
'For most purposes, selecting the text is not necessary and it is better to
use the Range object.
'However, if you do want to select the text use
myrange.Select
Or, if you want to select the text, use
Selection.Cells(1).Range.Select
Selection.MoveEnd wdCharacter, -1
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP, originally posted via msnews.microsoft.com