输入一个鼠标屏幕坐标，得到Word文档页码和位置的函数

招标实现一个函数，现金结付，有意者请发邮件到：13910666569@139.com 或直接拨打电话：13910666569
CanvertScreenPointToDocPosition(
             ByVal iapp As Word.Application,  '输入，Word.Application 
             ByVal idoc As Word.Document, '输入，Word.Document
             ByVal iScreenPointX As Integer, '输入，鼠标屏幕坐标，X
             ByVal iScreenPointY As Integer, '输入，鼠标屏幕坐标，Y
             ByRef oPageNum As Integer, '  输出，鼠标映射到文档所在的页码
             ByRef oDocPositionX As Single,' 输出，鼠标映射到文档所在页码的X方向位置，单位MM
             ByRef oDocPositionY As Single)'输出，鼠标映射到文档所在页码的Y方向位置，单位MM --------------------编程问答-------------------- 帮顶一下。。。。。。 --------------------编程问答-------------------- 可以考虑用AutoHotKey脚本实现。

补充：VB ,  VBA