Поиск длины строки

[beda]

Необходимо определить длину. Сейчас это выполняется с помощью функции:
m_Window->GetPoint(&left, &top, &width, &height, range).
Ведется попытка определить размер с помощью:
GetTextExtentPoint(hdc, text.c_str(), text.length(), &stringSize).
Эти функции возвращают немного разные результаты. Причем на результат влияет шрифт и количество пробелов в строке. Наблюдения показали что word меняет длину пробела зависимости от символов которые стоят по обе стороны пробела. Есть предположение что это зависит от кернинг пар.

Может кто нить подскажет алгоритм поиска длинны строки в word. Или особенности от которых она может меняться.

[viter.alex]

А если так (длина строки, на которой стоит курсор)

Sub LineLenght()
  Dim nStart As Long
  Dim nEnd As Long
  Dim oRng As Range
  Set oRng = Selection.Bookmarks("\line").Range
  nStart = oRng.Characters.First.Information(wdHorizontalPositionRelativeToPage)
  nEnd = oRng.Characters.Last.Information(wdHorizontalPositionRelativeToPage)
  MsgBox "Длина строки равна " & PointsToMillimeters(nEnd - nStart) & " мм"
End Sub

[beda]

Хотелось бы вообще избавится от вызова com функциий word. Это связано в первую очередь с быстродействием.

[viter.alex]

Тогда почему вопрос в раздел VBA?

[beda]

Да может раздел не совсем соответствует. Но собственно меня интересует сам алгоритм по которому word рассчитывает (или расставляет) расстояние между символами. Или в общем случае как word выбирает ширину символов. (подобно особенностям поиска междустрочного интервала зависимости от размера кегля). И возможно кто то с этим сталкивался. Может можно "заставить" word с помощью VBA не менять ширину символа.

[beda]

Из рисунка видно что размеры символов для word и для api DrawText одинаковы. Отличаются лишь расстояния между символами. Скорее всего такой эффект дают кернинг пары. Попытка их учитывать с помощью Api (GetKerningPairs) не дала результатов, скорее всего word дополняет таблицу kerningPairs или определяет свою.

Возможно ли, использую VBA, получить список kerningPairs word-a для определенного шрифта?