Абсолютная позиция курсора ввода, либо символа, либо чего нибудь в Worde - Программирование

lukey · 21.02.2007, 14:15

Очень нужна помощь по VBA для Word. Есть документ который нужно перенести в таблицу. Визуально он отформатирован под таблицу, но "колонки" в нем выставлены просто позиционно на листе за счет табуляций. Причем число табуляций не везде соответствует числу колонок(пустые поля как бы пропущены). Вижу пока только определять абсолютную позицию(поинты, миллиметры) начала текста на листе и таким образом отделять колонки. Но никак не могу найти как определить координаты. Достаточно горизонтальной координаты...

Помогите!

P.S. Речь идет о госреестре цен на медпрепараты, может у кого уже есть готовый скрипт?

crawler · 21.02.2007, 14:50

Я в VBA для Word не бумбум. Но кажется мне что надо двигать курсор на начало слова, а потом юзать Selection.Information()

21.02.2007, 21:33

Application.ActiveDocument.Paragraphs(<Номер строки>).Range.Words(<Номер слова в строке>).Information(wdHorizontalPositionRelativeToTextBoundary)

Возвращает позицию слова в указанной строке. Левая граница текста является нулевой координатой.

lukey · 22.02.2007, 10:09

Пасиб, похоже на то что нужно, попробую!

Попробовал, все получилось! Еще раз большое спасибо!

21.02.2007, 14:15	# 1
lukey Newbie Регистрация: 08.10.2004 Сообщения: 13	Абсолютная позиция курсора ввода, либо символа, либо чего нибудь в Worde Очень нужна помощь по VBA для Word. Есть документ который нужно перенести в таблицу. Визуально он отформатирован под таблицу, но "колонки" в нем выставлены просто позиционно на листе за счет табуляций. Причем число табуляций не везде соответствует числу колонок(пустые поля как бы пропущены). Вижу пока только определять абсолютную позицию(поинты, миллиметры) начала текста на листе и таким образом отделять колонки. Но никак не могу найти как определить координаты. Достаточно горизонтальной координаты... Помогите! P.S. Речь идет о госреестре цен на медпрепараты, может у кого уже есть готовый скрипт?

22.02.2007, 10:09	# 4
lukey Newbie Регистрация: 08.10.2004 Сообщения: 13	Пасиб, похоже на то что нужно, попробую! Попробовал, все получилось! Еще раз большое спасибо! Последний раз редактировалось lukey; 22.02.2007 в 15:09.

21.02.2007, 14:50	# 2
crawler Full Member Регистрация: 11.12.2002 Сообщения: 864	Я в VBA для Word не бумбум. Но кажется мне что надо двигать курсор на начало слова, а потом юзать Selection.Information()

21.02.2007, 21:33	# 3
Павел Guest Сообщения: n/a	Application.ActiveDocument.Paragraphs(<Номер строки>).Range.Words(<Номер слова в строке>).Information(wdHorizontalPositionRelativeToTextBoundary) Возвращает позицию слова в указанной строке. Левая граница текста является нулевой координатой.