Координаты текста(TextFrame)

[5tg_2C3J4_7fg_5]

Подскажите пожалуйста как можно получить координаты текста ( допустим одной буквы или слова) и приблизиться к нему (т.е увеличить то место где находится в данный момент это слово)

Вот так можно найти координаты полилинии
For Each ТочкаOBJ In myDoc.PathItems(1).PathPoints '
ЛевыйУгол = ТочкаOBJ.LeftDirection 'Левый угол
XY = ТочкаOBJ.Anchor(0) '
ПравыйУгол = ТочкаOBJ.RightDirection 'Правый угол
x = XY(0) : y = XY(1) 'координаты X и Y

IndexТочек = IndexТочек + 1


МассивТочекXY(IndexТочек, 0) = x 'Массив координат Х
МассивТочекXY(0, IndexТочек) = y 'Массив координат Y
а вот как найти координаты текста никак не могу найти, помогите пожалуйста!

 

[Fog_patch]

Ответ: Координаты текста(TextFrame)

Это можно только "посчитать". Т.е. проверить сначала высоту строки (что быстрее и легче и точнее), а потом X-значение символа (что дольше и алгоритмически и в машинном времени, а так же сложнее и приблизительнее).
(imho)