Макрос. Автозаполнение анкеты в Word. Нужна помощь

@kotan · Регистрация: 12.09.2011

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

Делаю макрос для автоматического заполнения анкеты.
Есть куча повторяющихся строк, например фамилия, имя, отчество и т.п.
При выполнении макроса данные вставляются только в одном месте, т.е. например фамилия вставляется только один раз в первой закладке, а дальше по доку пусто.
Помоги кто знает.
Заранее спасибо.
Шаблон прилагаю

@kotan · 22.09.2011, 18:21 **[ТС]**

Сообщение от Ципихович Эндрю

IfLen(TextBox76.Text) = 0 Then ...

вот так

Visual Basic
1
2
3
4
5
6
7
Private Sub TextBox36_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox36.Text) < 1 Then MsgBox ("Ââåäèòå íîìåð ïðàâèëüíî")
Dim txt As String
Dim arr() As String
txt = TextBox36
arr = Split(txt)
TextBox37.Text = Mid$(arr(0), 1, 1) & "-" & Mid$(arr(0), 2, 2) & "-" & Mid$(arr(0), 4, 3) & "-Ä"

msgbox выскакивает, но после нажатия "ОК" включается отладчик на последней строке

@Ципихович Эндрю · 22.09.2011, 18:24

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

If Len(TextBox36.Text) < 1 Then MsgBox ("Введите номер правильно"): Exit Sub

пробуйте

@kotan · 23.09.2011, 10:05 **[ТС]**

Сообщение от Ципихович Эндрю

пробуйте

Thank YOU

Добавлено через 1 минуту
а как бы сделать аналогичный MsgBox на поле ФИО, чтобы выскакивал MsgBox, если, например, введено меньшне двух слов?

@Ципихович Эндрю · 23.09.2011, 16:30

скажу Вам по секрету проверок можно сделать миллионон, чтобы не было цифр, зяпятых, букв в английской раскладке
По поводу слов о=UBound(arr) - это и есть количество слов, но не забываем, что считает от нуля!!!!!!!!

@Busine2009 · 24.09.2011, 16:29

Сообщение от Ципихович Эндрю

в английской раскладке

правильно говорить "на английском языке".

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Массив() As String
Массив() = Split(Me.TextBox1.Text)
If UBound(Массив) < 2 Then
    MsgBox "error"
    Cancel = True
    Exit Sub
End If
End Sub

@kotan · 30.09.2011, 11:55 **[ТС]**

Встал вопрос сделать анологичную комманду по разбивке ФИО на Инициалы+ФИО, только не из одного поля, а из трех отдельных Ф+И+О.
Я пытался сделать несколько вариантов, не один не срабатывает.
Подскажите пожалуйста

@Busine2009 · 30.09.2011, 12:06

kotan,
образец, как это сделать, см. во вложенном файле.

@kotan · 30.09.2011, 15:46 **[ТС]**

Вставил код в кнопку. Тут разобрался, но не могу понять, почему срабатывает только одно условие при вставке данных? Видимо одно значение забивает другое.... не знаю что делать

Visual Basic
1
2
3
4
5
If CheckBox2.Value = True Then ActiveDocument.FormFields("ЕслиНаследство").Result = "8.   Оригінал свідоцтва про право на спадщину"
If CheckBox2.Value = False Then ActiveDocument.FormFields("ЕслиНаследство").Result = ""
 
If CheckBox3.Value = True Then ActiveDocument.FormFields("ЕслиНаследство").Result = "8.   Копія свідоцтва про право на спадщину"
If CheckBox3.Value = False Then ActiveDocument.FormFields("ЕслиНаследство").Result = ""

Добавлено через 1 минуту

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

Спасибо, все моментально получилось.
Добавлено через 48 минут
Играюсь с функцией CheckBox.
Сделал в форме два чекбокса с названиями "Оригинал" и "Копия".
Вот код:

Visual Basic
1
2
3
4
5
6
7
Private Sub CheckBox2_Click()
ActiveDocument.FormFields("ЕслиНаследство").Result = "8.   Оригінал свідоцтва про право на спадщину"
End Sub
 
Private Sub CheckBox3_Click()
ActiveDocument.FormFields("ЕслиНаследство").Result = "8.   Копія свідоцтва про право на спадщину"
End Sub

Если выбираю один из чекбоксов в Word заносится соответствующее значение, еще до того, как нажата кнопка "Внести данные", но даже если снять галочку, то значение остается и другое не получается внести, поставив галочку. Надобно чтобы значения вносились после нажатия "Внести данные", а при редактировании, если снять галочку, чтобы значение убиралось
Подскажите пожалуста где править?

Вставил код в кнопку. Тут разобрался, но не могу понять, почему срабатывает только одно условие при вставке данных? Видимо одно значение забивает другое.... не знаю что делать

Visual Basic
1
2
3
4
5
If CheckBox2.Value = True Then ActiveDocument.FormFields("ЕслиНаследство").Result = "8.   Оригінал свідоцтва про право на спадщину"
If CheckBox2.Value = False Then ActiveDocument.FormFields("ЕслиНаследство").Result = ""
 
If CheckBox3.Value = True Then ActiveDocument.FormFields("ЕслиНаследство").Result = "8.   Копія свідоцтва про право на спадщину"
If CheckBox3.Value = False Then ActiveDocument.FormFields("ЕслиНаследство").Result = ""

@Busine2009 · 30.09.2011, 15:50

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
If CheckBox2.Value = True Then
    ActiveDocument.FormFields("ЕслиНаследство").Result = "8.   Оригінал свідоцтва про право на спадщину"
ElseIf CheckBox3.Value = True Then
    ActiveDocument.FormFields("ЕслиНаследство").Result = "8.   Копія свідоцтва про право на спадщину"
Else
    ActiveDocument.FormFields("ЕслиНаследство").Result = ""
End If
End Sub

@kotan · 30.09.2011, 15:59 **[ТС]**

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

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
If CheckBox2.Value = True Then
    ActiveDocument.FormFields("ЕслиНаследство").Result = "8.   Оригінал свідоцтва про право на спадщину"
ElseIf CheckBox3.Value = True Then
    ActiveDocument.FormFields("ЕслиНаследство").Result = "8.   Копія свідоцтва про право на спадщину"
Else
    ActiveDocument.FormFields("ЕслиНаследство").Result = ""
End If
End Sub

В точку, работает как часы.
Я целый день сегодня эксперементировал и у меня еще получалось сделать так, что если выбран первый чекбокс - второй становится неактивным и наоборот, вот теперь гуглю, не могу вспомнить

@Busine2009 · 30.09.2011, 16:05

kotan,
нужно использовать не CheckBox, а OptionButton.

CheckBox - используется, когда нужно выбрать несколько пунктов;
OptionButton - используется, когда нужно выбрать один пункт.

@kotan · 30.09.2011, 16:13 **[ТС]**

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

kotan,
нужно использовать не CheckBox, а OptionButton.

CheckBox - используется, когда нужно выбрать несколько пунктов;
OptionButton - используется, когда нужно выбрать один пункт.

Переделал все на OptionButton, теперь вопрос, а как сделать если вообще нет необходимости выбирать ни "Копию" ни "Оригинал"?

@Busine2009 · 30.09.2011, 16:16

kotan,
добавить третий OptionButton.

@kotan · 30.09.2011, 16:25 **[ТС]**

ну да, конечно же это логично.
сделано, работает.
Еще раз большое спасибо!

Добавлено через 4 минуты
У меня возник встречный вопрос.
А можно ли с помощmю функций Checkbox или OptionButton спрятать/показать листы Word?

@Busine2009 · 30.09.2011, 16:28

kotan,
в Word как таковых листов нет.

Есть такие варианты:

удалить ненужные листы;
сделать текст на ненужных листах скрытым и отжать кнопку Непечатаемые символы;
использовать Уровни: т.е. можно сделать так, что будет видна только одна строка какого-то фрагмента.

@kotan · 30.09.2011, 16:31 **[ТС]**

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

kotan,
в Word как таковых листов нет.

Есть такие варианты:

удалить ненужные листы;
сделать текст на ненужных листах скрытым и отжать кнопку Непечатаемые символы;
использовать Уровни: т.е. можно сделать так, что будет видна только одна строка какого-то фрагмента.

было бы интересно рассмотреть оба варианта

@Busine2009 · 30.09.2011, 16:33

kotan,
там я ещё добавил пункт. Какие именно два?

@kotan · 30.09.2011, 16:41 **[ТС]**

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

kotan,
там я ещё добавил пункт. Какие именно два?

Интересен способ удаления ненужных листов и вариант сокрытия текста

@Ципихович Эндрю · 30.09.2011, 20:03

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

использовать Уровни: т.е. можно сделать так, что будет видна только одна строка какого-то фрагмента.

- также интересен

@kotan · 04.10.2011, 10:27 **[ТС]**

Можно еще рассчитывать на описание методов?

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	23.09.2011, 16:30
	скажу Вам по секрету проверок можно сделать миллионон, чтобы не было цифр, зяпятых, букв в английской раскладке По поводу слов о=UBound(arr) - это и есть количество слов, но не забываем, что считает от нуля!!!!!!!! 0

@kotan 182 / 1 / 0 Регистрация: 12.09.2011 Сообщений: 81
	30.09.2011, 11:55 [ТС]
	Встал вопрос сделать анологичную комманду по разбивке ФИО на Инициалы+ФИО, только не из одного поля, а из трех отдельных Ф+И+О. Я пытался сделать несколько вариантов, не один не срабатывает. Подскажите пожалуйста 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	30.09.2011, 16:05
	kotan, нужно использовать не CheckBox, а OptionButton. CheckBox - используется, когда нужно выбрать несколько пунктов; OptionButton - используется, когда нужно выбрать один пункт. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	30.09.2011, 16:16
	kotan, добавить третий OptionButton. 1

@kotan 182 / 1 / 0 Регистрация: 12.09.2011 Сообщений: 81
	30.09.2011, 16:25 [ТС]
	ну да, конечно же это логично. сделано, работает. Еще раз большое спасибо! Добавлено через 4 минуты У меня возник встречный вопрос. А можно ли с помощmю функций Checkbox или OptionButton спрятать/показать листы Word? 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	30.09.2011, 16:28
	kotan, в Word как таковых листов нет. Есть такие варианты: удалить ненужные листы; сделать текст на ненужных листах скрытым и отжать кнопку Непечатаемые символы; использовать Уровни: т.е. можно сделать так, что будет видна только одна строка какого-то фрагмента. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	30.09.2011, 16:33
	kotan, там я ещё добавил пункт. Какие именно два? 0

@kotan 182 / 1 / 0 Регистрация: 12.09.2011 Сообщений: 81
	04.10.2011, 10:27 [ТС]
	Можно еще рассчитывать на описание методов? 0