Extend selection until a space?

[Ed]

I'm using Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend.
Is there an easy way to extend the selection until it hits a space? Or do
you have to extend, check the selection to see if it has encountered a
space, if not then loop?

Ed

 

[Dave Lett]

Hi Ed

Have a look at the MoveEndUntil method. YOu might end up with something like the following

Selection.MoveEndUntil Cset:=" ", Count:=10

HTH
Dave

 

[Mark Tangard]

Ed,

No need to loop. You can use:

Selection.MoveEndUntil CSet:=" "

Note that this extends the selection through the character immediately
*before* the space. To include the space itself, you'll need to add

Selection.MoveEnd Unit:=wdCharacter, Count:=1

 

[Ed]

Perfect, Mark! Thank you.

Ed

Ed,

No need to loop. You can use:

Selection.MoveEndUntil CSet:=" "

Note that this extends the selection through the character immediately
*before* the space. To include the space itself, you'll need to add

Selection.MoveEnd Unit:=wdCharacter, Count:=1

 

[Ed]

Perfect, Dave! Thank you.

Ed