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