Selecting the whole word at the cursor position

[ל×ון ×’×•×œ×“× ×‘×¨×’]

Hi,

Assume my cursor is placed within a random word of a document.

I'm looking for some VBA command(s) in order to select this whole word.
(Similar to double-clicking).

The code should select the word in 3 various cursor positions:

1) Within the word (between its characters).
2) At the beginning of the word (between the first character and the leading
space).
3) At the end of the word between the last character and the following space).

I'm familiar with the code for selecting the whole line, at the cursors
position:

Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend

but could not figure out how to implement it for a single word.

As more as I think - my request sounds very similar to the Dictionary inner
implementation - saying: the recognition of a whole word from only placing
the cursor between its characters.

Farther more, if the code could return the words number - I would be able to
implement what ever I need by pointing to ActiveDocument.Words(x).

Thanks, Elm