Obtain range of word contaning insertion point

[Nelviticus]

Is there a way to obtain the Range of the word that contains the insertion point even if it's at the end of the word?

This is what I have at the moment:

    Dim objRange As Range
    
    Set objRange = Selection.Range
    
    objRange.Expand wdWord

It works if the insertion point is at the beginning or in the middle of the word, but if it's at the end (i.e. you've just typed it) it doesn't pick it up.

Regards

Nelviticus

 

[RobBroekhuis]

Your code works if the insertion point is at the end of a WORD, just not if it's at the end of a paragraph. You can test for that using

if objrange.Characters(1)=vbCr then ...

for example, you might just move the range one character to the left in that case:

if objrange.Characters(1)=vbCr then selection.MoveLeft wdCharacter,1
objrange.expand wdWord

Of course, there are situations where this might not work. See how it does for you.


Rob

 

[Nelviticus]

Aha, excellent Rob, thank you.

N.