Word 2007 - zjištění vodorovné pozice kurzoru na řádku

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

Funguje, moc dík. Jen ještě může to ukazovat v cm?

Pokud se body na cm přepočítavají podle vzorce 1 bod * 0.035277778 - cm tak jsem to vyřešil.
Ještě jednou dík.

To makro počítá v palcích, tak by nemělo být těžké převést palce na centimetry, ne?

Já měl za to, že proměnná x jsou body a palce jsou x/72. No, je vidět že VBA mi fakt nic neříká. A včera už byla dost pozdní hodina a dnes jsem se jak koukám ještě pořádně neprobudil.