Sub DeleteRestOfLine() ' Paul Beverley - Version 09.06.17 ' Deletes from the beginning of current word to the end of the line Selection.Expand wdWord Selection.MoveStartUntil cset:=" ", Count:=wdBackward Selection.MoveStart , -1 Selection.Collapse wdCollapseStart Selection.MoveEndUntil cset:=vbCr, Count:=wdForward Selection.Delete End Sub