Move Selection left : Document Selection « Word « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Word
3. Document Selection

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

 

Related examples in the same category