This is a handy macro to copy word under cursor to clipboard. I'm using Alt-Ins hotkey by analogy to general purpose Ctrl-Ins function.
This seems to be quite simple task, but the major problem is the tabs and this macro works fine with tabs.
Set sel = ActiveDocument.Selection
end_i = sel.CurrentColumn
begin_i = sel.CurrentColumn
line_text = UnTab(sel.Text)
if begin_i > end_i then exit sub
word = Trim(mid(line_text,begin_i,end_i-begin_i))
if word = "" then exit sub
sel.FindText(word) 'to select text in editor