Select the word under cursor

Select the word under cursor

Macro {
  description="Select/deselect the word under the cursor";
  area="Editor"; key="CtrlM";
  action=function()
    Keys"RCtrl9 CtrlRight CtrlLeft"
    Keys(Object.Selected and "CtrlU" or "CtrlShiftRight")
    Keys"Ctrl9"
  end;
}