select the word but not the space behind it

[ykchanaed]

With Selection
..Moveend Unit:=wdWord, Count:=1
..movestart Unit:=wdWord, Count:=-1
..InsertBefore Text:="("
..InsertAfter Text:=")"
End With

I wrote the above to insert brackets to the word where the cursor locates.
But it included the space behind the word.
any way to improve it?

 

[Tony Jollans]

With Selection
..Expand Unit:=wdWord
..MoveEndWhile Cset:=" ", Count:=wdBackward
..InsertBefore Text:="("
..InsertAfter Text:=")"
End With

It's not perfect - put the cursor to the left or right of punctuation and it
will parenthesise the punctuation - but it would take more complex code to
trap that.

 

[ykchanaed]

Dear Tony,
This works fine with me.
Thanks a lot.