Ввод строки юзером

@Ketino · Регистрация: 21.09.2009

Студворк — интернет-сервис помощи студентам

Коллеги, помогите начинающему писателю
макросов для WORDa.
Надо запросить у юзера проверить текст в окошке с возможностью исправить.
Применил InputBox. Для двух-трех слов - то что надо.
Но у него один большой недостаток - если предложение длинное, то не виден весь текст, а только кусок и нужно - туда сюда ездить, чтобы убедиться что оно не кривое.
Т.е. мне для полного счастья нужен "многострочный ИнпутБокс, что бы весь текст был виден сразу". Текст не очень длинный - символов 200, т.е одно среднее предложение русского/не русского языка. Может присоветуете что?
Спасибо.

@Профессор · 31.10.2009, 13:14

Все просто
Создать новую форму в нее вставить многострочное текстовое поле и кнопку и обрабатывать нажатие кнопки.

@Busine2009 · 31.10.2009, 13:45

Ketino
То есть ты используешь встроенное диалоговое окно InputBox?
Я не знаю, можно ли в нём переносить текст, в Справке по VBA не нашёл.
Но ты можешь сделать своё собственное диалоговое окно InputBox - это называется создание пользовательских форм, в котором можешь придумать что-нибудь интересное.
Кидаешь на Форму Поле, щ. по нему мышью - F4. Находишь Multiline и делаешь True.

@Профессор · 31.10.2009, 14:06

Сообщение от Busine2009

Ketino
То есть ты используешь встроенное диалоговое окно InputBox?
Я не знаю, можно ли в нём переносить текст, в Справке по VBA не нашёл.
Но ты можешь сделать своё собственное диалоговое окно InputBox - это называется создание пользовательских форм, в котором можешь придумать что-нибудь интересное.
Кидаешь на Форму Поле, щ. по нему мышью - F4. Находишь Multiline и делаешь True.

Нельзя переносить текст я точно знаю, диалоговые окна так изменять нельзя, но можно создавать свои.

@Busine2009 · 31.10.2009, 14:09

Ketino
Вот Профессор говорит, что нельзя менять Встроенные диалоговые окна. Поэтому у тебя один путь - создать свою собственную форму.

@Ketino · 31.10.2009, 14:37 **[ТС]**

Сообщение от Busine2009

Ketino
Вот Профессор говорит, что нельзя менять Встроенные диалоговые окна. Поэтому у тебя один путь - создать свою собственную форму.

Мой опыт огранчивается только такой технологией : Запускаю запись макроса в Ворде-Экселе.
Делаю что-то похожее на то что мне надо. Останавливаю запись. И потом корректирую. По-этому создать форму - проблема.
Создать я создал. А как вызвать? Может тут где примерчик есть?

@Busine2009 · 31.10.2009, 14:42

Чтобы вызвать Форму, нужно создать Модуль по её вызову. Модули умеешь вставлять? И в этом модуле напиши код:

Code
1
2
3
Sub CallingForm()
UserForm1.Show
End Sub

@Ketino · 31.10.2009, 15:06 **[ТС]**

Да, форму я вызываю. Теперь есть две проблемы поменьше :
- как сделать, что бы при нажатии на мою кнопку форма закрывалась
- как выдрать из формы то, что юзер исправил в форме.
После команды Форма.Шоу я так понимаю, все данные уже потеряны. В обработчике кнопки я пытюсь сохранить тест, но , видимо переменная моя не доходит до после формы.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim pe
Dim pe2
UserForm1.Show
pe2 = UserForm1.NewTxt.Text   --- pe2 тут уже пустое
pe2=pe   - pe тут тоже пустое
Selection.Text = pe2
-----
-----
Private Sub CommandButton1_Click()
 pe = NewTxt.Text     ---- ре тут есть 
End Sub

Где я туплю?

@Busine2009 · 31.10.2009, 15:07

Я сейчас подумал, не надо никакого модуля создавать, просто в свой код, который ты использовал для вызова InputBox, вставь вместо вызова InputBox вот этот код:

Code
1
UserForm1.Show

Чтобы по нажатию кнопки Форма закрывалась:

Code
1
2
3
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Чтобы поместить данные из Формы в Переменную:
В модуле в самом при самом верху над Sub пишешь код:

Code
1
Public Имя переменной as String

@Ketino · 31.10.2009, 16:36 **[ТС]**

Спасибо - всё получилось. Помог Анлоад и Паблик

Visual Basic
1
ss = selections.Text

Предпоследний вопрос - как проверить, что юзер выделил текст (ss) вместе с "концом строки" ?

Добавлено через 1 час 3 минуты
Ну ладно - последний

Как проверить, что юзер выделил текст (ss) вместе с "концом строки" ?

@Busine2009 · 31.10.2009, 17:07

Code
1
if InStr(ss, Chr(13)) <> 0 then

если не равно нулю, значит есть знак Конец абзаца.
Ты думаешь, что я всё знаю? Я только около часа искал, как обозначается знак Конец абзаца.
Затем на др. форуме откопал InStr (недавно я участвовал в обсуждении и там узнал про InStr, вспомнил про неё и первый раз сейчас написал код с её использованием).

Новые блоги и статьи Все статьи Все блоги /
1С: Программный отбор элементов справочника Номенклатура по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника Сотрудники по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

@Ketino 8 / 8 / 0 Регистрация: 21.09.2009 Сообщений: 84

	Ввод строки юзером 31.10.2009, 12:12. Показов 1908. Ответов 10 Метки нет (Все метки) Коллеги, помогите начинающему писателю макросов для WORDa. Надо запросить у юзера проверить текст в окошке с возможностью исправить. Применил InputBox. Для двух-трех слов - то что надо. Но у него один большой недостаток - если предложение длинное, то не виден весь текст, а только кусок и нужно - туда сюда ездить, чтобы убедиться что оно не кривое. Т.е. мне для полного счастья нужен "многострочный ИнпутБокс, что бы весь текст был виден сразу". Текст не очень длинный - символов 200, т.е одно среднее предложение русского/не русского языка. Может присоветуете что? Спасибо. 0

@Профессор 7 / 7 / 0 Регистрация: 30.10.2009 Сообщений: 28
	31.10.2009, 13:14
	Все просто Создать новую форму в нее вставить многострочное текстовое поле и кнопку и обрабатывать нажатие кнопки. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	31.10.2009, 13:45
	Ketino То есть ты используешь встроенное диалоговое окно InputBox? Я не знаю, можно ли в нём переносить текст, в Справке по VBA не нашёл. Но ты можешь сделать своё собственное диалоговое окно InputBox - это называется создание пользовательских форм, в котором можешь придумать что-нибудь интересное. Кидаешь на Форму Поле, щ. по нему мышью - F4. Находишь Multiline и делаешь True. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	31.10.2009, 14:09
	Ketino Вот Профессор говорит, что нельзя менять Встроенные диалоговые окна. Поэтому у тебя один путь - создать свою собственную форму. 0