Move Selection left
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