在Excel和Word中,我能够得到ActiveWindow。这两个对象模型都提供了我正在工作的RangeFromPoint方法。在Outlook中,Applicaion对象确实有一个ActiveWindow,但它返回一个资源管理器或检查器对象。此外,我尝试了以下代码,但是在Outlook中禁用的Word应用程序对象似乎没有提供RangeFromPoint。Word.Window = wDoc.ActiveWindow
Dim rng As Word.Range = w.RangeFromPoint(mo