Сообщение о месте в документе Ворд куда ткнули левой кнопкой мыши

Private Type POINTAPI 
    X As Long 
    Y As Long 
End Type 
 
Private Declare Function GetCursorPos _ 
        Lib "user32.dll" (lpPoint As POINTAPI) As Long 
 
Private Sub GetCursorPosition() 
    Dim iPOINT As POINTAPI 
 
    GetCursorPos iPOINT 
 
    MsgBox "X : " & iPOINT.X & vbNewLine & "Y : " & iPOINT.Y, _ 
    vbExclamation, "Координаты курсора мышки" 
End Sub

x1 = CommandButton1.Left
y1 = CommandButton1.Top
x2 = x1 + CommandButton1.Width
y2 = y2 + CommandButton1.Height

 Dim x1 As Long
 Dim y1 As Long
 Dim x2 As Long
 Dim y2 As Long
 
x1 = ActiveDocument.ContentControl.Title.Left
y1 = ActiveDocument.ContentControl.Title.Top
x2 = x1 + ActiveDocument.ContentControl.Title.Width
y2 = y2 + ActiveDocument.ContentControl.Title.Height
 
x1 = ActiveDocument.ContentControl(1).Left
y1 = ActiveDocument.ContentControl(1).Top
x2 = x1 + ActiveDocument.ContentControl(1).Width
y2 = y2 + ActiveDocument.ContentControl(1).Height
 
MsgBox$ _
x1 & Chr(13) & _
x2 & Chr(13) & _
y1 & Chr(13) & _
y2

Private Sub CommandButton1_Click()
 
 Dim x1 As Long
 Dim y1 As Long
 Dim x2 As Long
 Dim y2 As Long
 
x1 = CommandButton1.Left
y1 = CommandButton1.Top
x2 = x1 + CommandButton1.Width
y2 = y2 + CommandButton1.Height
 
MsgBox$ _
x1 & Chr(13) & _
x2 & Chr(13) & _
y1 & Chr(13) & _
y2
 
End Sub