在Word里，如何获得鼠标下的文字(100分)

在Word里，当鼠标双击时，可以选中下面的文字，我希望模拟这个操作，获得鼠标下的文字，如何做。
（当然不能模拟双击事件，因为那样有可能能鼠标下是一个连接，就会引发其他事件了）

procedure TForm1.Button2Click(Sender: TObject);
var
word_app:OleVariant;
Word_doc:OleVariant;
begin
try
word_app:=Getactiveoleobject('word.application');
except
word_app:=createoleobject('word.application');
end;
word_app.visible:=true;
word_doc:=Word_app.documents.open('C:/1.doc');
word_app.Selection.text;//你选中的内容
end;

问题理解有误，我希望是得到鼠标正下方的
文字，它可能是被选中的，也可能没有选中。