Mega Code Archive

 

Categories / VisualBasic Script / Word

 

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