Sub s()
  Dim v_Rng As Range
  Set v_Rng = Selection.Range
  
  v_Msg = v_Msg & "Номер страницы:  "
  v_Msg = v_Msg & Selection.Information(wdActiveEndPageNumber) & vbCrLf
  v_Msg = v_Msg & "Номер страницы с учетом пользовательских установок:  "
  v_Msg = v_Msg & Selection.Information(wdActiveEndAdjustedPageNumber) & vbCrLf
  v_Msg = v_Msg & "Номер строки:  "
  v_Msg = v_Msg & Selection.Information(wdFirstCharacterLineNumber) & vbCrLf
  v_Msg = v_Msg & "Номер символа начиная с начала строки:  "
  v_Msg = v_Msg & Selection.Information(wdFirstCharacterColumnNumber) & vbCrLf
  v_Msg = v_Msg & "Номер символа в слове:  "
  v_Msg = v_Msg & Abs(v_Rng.StartOf(Unit:=wdWord, Extend:=wdMove))
  
  MsgBox v_Msg
End Sub