wdWord and wdExtend commands not working in Excel Macro

Solution 1:

Explicitly show the enumeration type:

WApp.Selection.MoveLeft Unit:=WdUnits.wdWord, Count:=1, Extend:=WdMovementType.wdExtend

OR

You can use the values of these enumerations. wdWord's value is 2 (see WdUnits enumeration (Word))

Name          Value         Description
wdWord        2             A word

while wdExtend's value is 1 WdMovementType enumeration (Word)

Name          Value         Description
wdExtend      1             The end of the selection is extended to the end of the specified unit.

Your code will be:

WApp.Selection.MoveLeft Unit:=2, Count:=1, Extend:=1