Sub CursorPosition()
Dim Row As Variant
Dim Col As Variant
Dim Page As Variant
Dim msg As String
Row = ActiveWindow.Selection.Information(wdFirstCharacterLineNumber)
Col = ActiveWindow.Selection.Information(wdFirstCharacterColumnNumber)
Page = ActiveWindow.Selection.Information(wdActiveEndPageNumber)
msg = "Column = " & Col & vbCrLf & "Line = " & Row _
& vbCrLf & "Page = " & Page
MsgBox msg, vbInformation + vbOKOnly, "Cursor Position"
End Sub