С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
DreamWorcs
1 / 1 / 0
Регистрация: 20.02.2013
Сообщений: 7
1

Не соблюдается условие в Word VBA

11.03.2013, 05:07. Просмотров 417. Ответов 3
Метки нет (Все метки)

Всем здравствуйте.
У меня такая проблема, переменная kolP1 подсчитывает параграфы в документе, nP1-ввод номера параграфа, отсюда казалось бы и логическое условие:если пользователь вводит число превышающее параграфы - то соответственно тестовое сообщение, и перенаправление на повторный ввод информации:
vvod:
kolP1 = ActiveDocument.Paragraphs.Count
vvod:
nP1 = InputBox("Введите номер параграфа", "Ввод параграфа")
nP1 = Number(nP1)
If nP1 > kolP1 Then
MsgBox "Такого параграфа в документе НЕТ ", vblnformation, "Ошибка"
GoTo vvod

End If
Однако не зависимо от того соблюдается ли условие, почему то все время выскакивало окно с сообщением. Посмотрел информацию про вордовский InputBox - почему оно всегда объявляется как String, не зависимо от того присвоили ли мы числовую переменную или нет(( Тогда я решил с помощью функции Number сделать его числовым, странно но ворд эту функцию вроде бы распознает и автоматом расставляет как надо - но при компиляции говорит что такая функция "не найдена". Что мне делать?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.03.2013, 05:07
Ответы с готовыми решениями:

WORD VBA
WORD VBA - добавление данных Ребята срочно помогите, почему эта штука не добавляет данные с "пол"...

VBA В WORD
Здравствуйте. Нужно написать макрос, который "причесывает" текст по правилам оформления, но при...

MultiPage в VBA Word
Доброго времени суток. Существует ли способ программно сделать недоступной одну из страниц...

массив vba word
Добрый день. Давно перешел на vb.net и забыл навыки vba. что то я гуглю и туплю, не понимаю как...

Vba word tables
Народ помогите с такой задачей, в доке есть таблицы, мне надо удалить из каждой таблицы по 1...

3
ViterAlex
6838 / 3800 / 1553
Регистрация: 11.02.2013
Сообщений: 8,346
Завершенные тесты: 3
11.03.2013, 05:10 2
Откуда взялась функция Number? Сам придумал? Использовать нужно Val
1
DreamWorcs
1 / 1 / 0
Регистрация: 20.02.2013
Сообщений: 7
11.03.2013, 05:20  [ТС] 3
Цитата Сообщение от ViterAlex Посмотреть сообщение
Откуда взялась функция Number? Сам придумал? Использовать нужно Val
Спасибо "Val" помогла, а функция Number насколько я помню была в Exel))
0
Скрипт
5446 / 1127 / 49
Регистрация: 15.09.2012
Сообщений: 3,420
11.03.2013, 16:41 4
Для перевода текста в числа ещё используется несколько функций. Эти функции объединены в группу "Conversion Functions" (функции преобразования). Вот две такие преобразовательные функции:
CDbl - перевод текста в дробное число;
CLng - первод текста в целое число.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.03.2013, 16:41

Word и Excel VBA
Доброе время суток! Подскажите, пожалуйста, у меня два вопроса: 1. Какой код в VBA необходимо...

Переносы в Word-е VBA
Привет всем! Решаю задачу но исчерпав свое знанию в VBA нужного результата не добился, надеюсь на...

Вставка фото VBA Word
Здравствуйте! Мне нужен код, чтобы пользователь сам выбрал картинку и еще один код, чтобы эта...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru