Как программно в VBA рассчитать "Ширину текста"?

[IAGor1960]

Добрый всем день!

Подскажите пожалуйста, как в Word`е программно рассчитать "ширину текста"?

Например, шрифтом "Times New Roman", 14 размера, набран следующий текст "Пример текста".
Какой ширины будет этот текст при печати?

[IAGor1960]

Отвечу сам же.

Использую свойство Information объекта Word.Selection.
Можно использовать как Information(wdHorizontalPositionRel ativeToTextBoundary), так и Information(wdHorizontalPositionRel ativeToPage).

Пример функции:

Public Function Selection_TextWidth() As Double
' Возвращает ширину выделенного текста в сантиметрах.
' Выделять можно только не более 1-й строки текста и
' в выделение не должен входить символ перевода строки и/или параграф.

Dim MyRange As Range, MyRange1 As Range, clps As Range
Dim tmpStart As Double, tmpEnd As Double

Application.ScreenUpdating = 0

With Selection
Set MyRange = .Range 'Запомним область выделения для восстановления
Set MyRange1 = .Range 'Запомним область выделения для определения
'Окончания выделенной области

'Определяем Начало выделенной области
Set clps = .Range
clps.Collapse (wdCollapseStart)
clps.Select
tmpStart = PointsToCentimeters(.Information(wd HorizontalPositionRelativeToTextBou ndary))

'Определяем Окончание выделенной области
Set clps = MyRange
clps.Collapse (wdCollapseEnd)
clps.Select
tmpEnd = PointsToCentimeters(.Information(wd HorizontalPositionRelativeToTextBou ndary))
End With

Application.ScreenUpdating = 1
MyRange1.Select

Selection_TextWidth = tmpEnd - tmpStart

End Function

[Sasha_Smirnov]

Ваша тема (ширина текста, координаты выделения) на удивление популярна: http://programmersforum.ru/showthread.php?t=73854

Хотелось бы узнать, а что так торкнуло?

[IAGor1960]

Необходимость следующая:
Есть некая форма из 2-х полей.
Разделить текст на 2 части (на 2 поля), 1-я часть должна быть строго по заданной ширине.