Получить ширину выделенного текста Word

[GeoZ]

Здравствуйте
Подскажите, как в Ворде (VBA) возможно получить ширину выделенного текста (Document.Selection) в пикселях/твипах/сантиметрах/точках (любых графических единицах) — (если это вообще возможно).
Спасибо

[forumWord]

GeoZ
В сантиметрах. Если убрать:

PointsToCentimeters

то в пунктах.

Sub Макрос1()
Dim x As Single
x = Selection.Information(wdHorizontalPositionRelativeToPage)
Selection.MoveRight
MsgBox PointsToCentimeters(Selection.Information(wdHorizontalPositionRelativeToPage) - x)
End Sub

[GeoZ]

Спасибо за помощь!!