Extend Method Example
This example extends the selection through the next instance of a capital "R" and then decreases the selection by one character.
With Selection .Extend Character:="R" .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend End With