makro (netestoval jsem)

Sub CursorPosit()
Dim x As Single
Dim pStr As String
x = Selection.Information(wdHorizontalPositionRelative ToPage)
pStr = "Cursor position: Horizontal(Points: " & Format(x, "##0.00") & _
" Picas: " & Format((x / 12), "##0.00") & _
" Inches: " & Format((x / 72), "##0.00") & ")"
x = Selection.Information(wdVerticalPositionRelativeTo Page)
pStr = pStr & " Veritcal(Points: " & Format(x, "##0.00") & _
" Picas: " & Format((x / 12), "##0.00") & _
" Inches: " & Format((x / 72), "##0.00") & ")"
StatusBar = pStr
End Sub