Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
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