Как определить позицию курсора в (VBA Word)

Формулировка задачи:

Привет АЛЛ!
Собственно вопрос в теме!
Системные(по классу) курсор даёт только доступ к виду его, а хотелось бы узнавать/посылать его, скажем, строка № символ...
Заранее благодарен ВС

Решение задачи: «Как определить позицию курсора в (VBA Word)»

textual
                            Листинг программы 
                        
                            <font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> SetCursorPos Lib <font color="teal">"user32"</font> (<font color="blue">ByVal</font> x <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> Y <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Sub</font> mouse_event Lib <font color="teal">"user32"</font> (<font color="blue">ByVal</font> dwFlags <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> dx <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> dy <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> cButtons <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> dwExtraInfo <font color="blue">As</font> <font color="blue">Long</font>)
<font color="blue">Private</font> <font color="blue">Const</font> MOUSEEVENTF_LEFTDOWN = &H2
<font color="blue">Private</font> <font color="blue">Const</font> MOUSEEVENTF_RIGHTDOWN <font color="blue">As</font> <font color="blue">Long</font> = &H8
<font color="blue">Private</font> <font color="blue">Const</font> MOUSEEVENTF_RIGHTUP <font color="blue">As</font> <font color="blue">Long</font> = &H10
<font color="blue">Private</font> <font color="blue">Const</font> MouseEVENTF_LEFTUP = &H6

<font color="blue">Sub</font> foo()

    SetCursorPos <font color="darkblue"><b>171</b></font>, <font color="darkblue"><b>321</b></font>
    mouse_event MOUSEEVENTF_LEFTDOWN, <font color="darkblue"><b>0</b></font>&, <font color="darkblue"><b>0</b></font>&, <font color="darkblue"><b>0</b></font>&, <font color="darkblue"><b>0</b></font>&
    mouse_event MouseEVENTF_LEFTUP, <font color="darkblue"><b>0</b></font>&, <font color="darkblue"><b>0</b></font>&, <font color="darkblue"><b>0</b></font>&, <font color="darkblue"><b>0</b></font>&         
<font color="blue">End</font> <font color="blue">Sub</font>