Как узнать, является ли выделенный текст Полем... (Word)

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Аватара пользователя
Busine2009
Сообщения: 322
Зарегистрирован: 18 июл 2009, 15:34
Контактная информация:

Вопрос в теме.
Аватара пользователя
Aent
Сообщения: 1129
Зарегистрирован: 01 окт 2006, 14:52
Откуда: Saratov,Russia
Контактная информация:

Есть ли поле в выделенном ранге: Selection.Fields.Count > 0
Можно ещё проверить, что ранг поля совпадает с выделением.
Вообще то вопрос сформулирован не чётко.
Андрей Энтелис,
aentelis.livejournal.com
Аватара пользователя
Busine2009
Сообщения: 322
Зарегистрирован: 18 июл 2009, 15:34
Контактная информация:

Aent
нет, не работает. Я делаю следующим образом: Сервис - Параметры - Вид - Коды полей.
Затем с помощью Find ищу Ref. Ref находится, но Selection не определяет, что это есть поле.
Аватара пользователя
Aent
Сообщения: 1129
Зарегистрирован: 01 окт 2006, 14:52
Откуда: Saratov,Russia
Контактная информация:

Я же и пишу что "вопрос сформулирован нечётко".
В вашем случае после того как нашли Ref:

Код: Выделить всё

Selection.MoveLeft Unit:=wdWord, Count:=2
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Если найденный Ref был кодом поля REF то Selection соответствует в вашем случае рангу кода поля.
Можно проверить что Selection.Fields(1).Type = wdFieldRef
Андрей Энтелис,
aentelis.livejournal.com
Аватара пользователя
Busine2009
Сообщения: 322
Зарегистрирован: 18 июл 2009, 15:34
Контактная информация:

Aent
Selection.Fields(1).Type = wdFieldRef
такая проверка была - но возникала ошибка.
Аватара пользователя
Aent
Сообщения: 1129
Зарегистрирован: 01 окт 2006, 14:52
Откуда: Saratov,Russia
Контактная информация:

какая ошибка?
Андрей Энтелис,
aentelis.livejournal.com
Аватара пользователя
Busine2009
Сообщения: 322
Зарегистрирован: 18 июл 2009, 15:34
Контактная информация:

Aent
гляну завтра - сегодня уже пьяный.
Ответить