Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RFpro.ru: Программирование на Basic / VBA


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный хостинг на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Гаряка Асмик
Статус: Специалист
Рейтинг: 3178
∙ повысить рейтинг »
Vasiliy83
Статус: Бакалавр
Рейтинг: 1547
∙ повысить рейтинг »
Megaloman
Статус: Профессионал
Рейтинг: 1158
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / Basic/VBA

Номер выпуска:1007
Дата выхода:15.04.2010, 12:30
Администратор рассылки:Калашников О.А., Руководитель
Подписчиков / экспертов:350 / 101
Вопросов / ответов:1 / 1

Вопрос № 177788: Уважаемые эксперты подскажите, мне надо проверить поле типа макробуттон находится внутри Вордовской таблицы, если да, тогда сделать его скрытым, но увы его просто удаляет, почему?????? Вот мой код: If Код_обрабатываемого_поля Like "MACR...



Вопрос № 177788:

Уважаемые эксперты подскажите, мне надо проверить поле типа макробуттон
находится внутри Вордовской таблицы, если да, тогда сделать его скрытым, но увы его просто удаляет, почему??????
Вот мой код:
If Код_обрабатываемого_поля Like "MACROBUTTON*" Then
Pos_начала_обрабатываемого_поля = ActiveDocument.Fields(Обрабатываемое_поле_номер).Code.Start
Pos_конца_обрабатываемого_поля = ActiveDocument.Fields(Обрабатываемое_поле_номер).Code.End
Set Fields_обрабатываемое = ActiveDocument.Range(Start:=Pos_начала_обрабатываемого_поля, End:=Pos_конца_обрабатываемого_поля) 'создать объект с именем ...
If Fields_обрабатываемое.Information(wdWithInTable) = True Then
Fields_обрабатываемое.Font.Hidden = True 'поле удаляется, а не делается скрытым, почему?????????77
End If
End If

Отправлен: 10.04.2010, 12:27
Вопрос задал: Ципихович Эндрю, Посетитель
Всего ответов: 1
Страница вопроса »


Отвечает Тимошенко Дмитрий, Студент :
Здравствуйте, Ципихович Эндрю.
Как выяснилось в мини-форуме - поле все-таки не удалялось, а делалось каким-то "странно" скрытым. Если включить непечатаемые символы, то при показе кодов полей - все отображается нормально (поле подчеркнуто пунктиром, как скрытое), а вот если отображать значения - Word вообще ничего не показывает, хотя по-идее должен отображать значение поля подчеркнутое пунктиром.
Решение заключалось в следующем исправлении кода:
Pos_начала_обрабатываемого_поля = ActiveDocument.Fields(Обрабатываемое_поле_номер).Code.Start - 1
Pos_конца_обрабатываемого_поля = ActiveDocument.Fields(Обрабатываемое_поле_номер).Code.End + 1
Таким образом в Range попадают ограничивающие поле символы "{}" и Word начинает себя вести, так как от него ожидают.

Ответ отправил: Тимошенко Дмитрий, Студент
Ответ отправлен: 12.04.2010, 21:13
Номер ответа: 260783

Оценка ответа: 5

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 260783 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

  • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)

    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.


    © 2001-2010, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2010.6.14 от 03.03.2010

    В избранное