Вычисление длины строки

[forumWord]

Перевод пунктов в пикселы:

Sub Макрос1()
Dim ДлинаСтроки As Double
ДлинаСтроки = PointsToPixels(Selection.Information(wdHorizontalPositionRelativeToTextBoundary))
MsgBox ДлинаСтроки
End Sub

[Вождь]

Сообщение от forumWord

в единицах длины

С forumWord и не поспоришь. Не в единицах же высоты

Все, что тут описано, рассчитано в пунктах, а преобразуется так:
Сантиметры = PointsToCentimeters(Пункты)
Пункты = CentimetersToPoints(Сантиметры)
1 см = 28.35 пт

Извиняюсь

[Пименов Александр]

Сама длина строки вычесляется размером полей, а количество знаков в строке зависит от текста, если Вам нужен только Word, без дальнейшего использования то просчитайте кол-во знаков в среднем на 10 страниц одинакового шрифта, по-знаково - это и будет средней длиной строки......