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

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

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

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

@kotan · 13.09.2011, 16:10 **[ТС]**

Кнопки "Очистить" и "Выйти" прописать получается. А вот кнопка логику прописывания кода кнопки "Вставить данные" не могу понять.

@Busine2009 · 13.09.2011, 16:14

kotan,
а что не получается?

Вот так можно сократить код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Call Процедура1
End Sub
 
Private Sub CommandButton2_Click()
Call Процедура1
End Sub
 
Sub Процедура1()
 
End Sub

@kotan · 13.09.2011, 17:30 **[ТС]**

ну не могу понять как.
вот мой код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Option Explicit
 
Private Sub ComboBox1_Change()
End Sub
 
Private Sub CommandButton1_Click()
Call Ïðîöåäóðà1
ActiveDocument.FormFields("Ôàìèëèÿ").Result = Me.TextBox1.Text
ActiveDocument.FormFields("Èìÿ").Result = Me.TextBox2.Text
ActiveDocument.FormFields("Îò÷åñòâî").Result = Me.TextBox3.Text
ActiveDocument.FormFields("ÔÈÎÑîêð").Result = Me.TextBox4.Text
ActiveDocument.FormFields("ÔÈÎÐîäèò").Result = Me.TextBox5.Text
 
*и т.д...
 
Dim oTextBox As TextBox
Me.Hide
ActiveDocument.PrintPreview
ActiveDocument.ClosePrintPreview
End Sub
 
 
Private Sub CommandButton2_Click()
Unload Me
End Sub
 
Private Sub CommandButton3_Click()
Dim Ýëåìåíò As MSForms.Control
For Each Ýëåìåíò In Me.Controls
    If TypeName(Ýëåìåíò) = "TextBox" Then
        Ýëåìåíò.Text = ""
    End If
Next Ýëåìåíò
End Sub
 
 
Private Sub Image2_Click()
 
End Sub
 
Private Sub Label15_Click()
 
End Sub
 
Private Sub Label6_Click()
 
End Sub
 
Private Sub CommandButton4_Click()
Dim Ýëåìåíò As MSForms.Control
For Each Ýëåìåíò In Me.Controls
    If TypeName(Ýëåìåíò) = "TextBox" Then
        Ýëåìåíò.Text = ""
    End If
Next Ýëåìåíò
End Sub
 
Private Sub CommandButton5_Click()
Unload Me
End Sub
 
Private Sub CommandButton6_Click()
 
End Sub

6-я кнопка должна дублировать первую

@Busine2009 · 13.09.2011, 17:51

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton1_Click()
Call Процедура1
ActiveDocument.FormFields("Фамилия").Result = Me.TextBox1.Text
ActiveDocument.FormFields("Имя").Result = Me.TextBox2.Text
ActiveDocument.FormFields("Отчество").Result = Me.TextBox3.Text
ActiveDocument.FormFields("ФИОСокр").Result = Me.TextBox4.Text
ActiveDocument.FormFields("ФИОРодит").Result = Me.TextBox5.Text
 
*и т.д...
 
Dim oTextBox As TextBox
Me.Hide
ActiveDocument.PrintPreview
ActiveDocument.ClosePrintPreview
End Sub
 
Private Sub CommandButton6_Click()
Call Процедура1
End Sub
 
Sub Процедура1()
MsgBox "Процедура1"
End Sub

@kotan · 13.09.2011, 18:36 **[ТС]**

При использовании этого кода кнопка на первой вкладке все также вставляет данные из формы, при этом выводит сообщение "Процедура1", кнопка на втарой вкладке только выводит сообщение, но данные не вставляются.

@Busine2009 · 13.09.2011, 18:51

kotan,
код в обеих кнопках должен быть одинаковый. Я просто образец выложил.

@kotan · 14.09.2011, 11:20 **[ТС]**

Busine2009, Надо полностью дублировать код, который идет в первой кнопке на вторую, т.е. при создании нового поля его значение надо вставлять и во вторую кнопку? А нет ли кода, который при нажатии на вторую кнопку включает первую?

@kotan · 15.09.2011, 17:17 **[ТС]**

Уважаемый Busine2009
Подскажите пожалуйста как бы сделать такое...
Есть форма из 3-х вкладок (MultiPage) с соответствующими полями. В первой и третьей вкладках есть такие поля, которые чаще всего дублируют друг друга (типа фамилия, имя, паспортн. данные и т.п). Вопрос: можно ли как-нибудь сделать кнопку в третьей вкладке при нажатии на которую данные из полей первой вкладки копируются в соотв. поля третьей влкадки.

@Ципихович Эндрю · 15.09.2011, 17:33

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

Вопрос: можно ли как-нибудь сделать кнопку в третьей вкладке при нажатии на которую данные из полей первой вкладки копируются в соотв. поля третьей влкадки.

Добавьте кнопку в третье вкладке и повесьте на него код по выводу MsgBox, сделаете пишите, двинемся дальше

@kotan · 15.09.2011, 18:24 **[ТС]**

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

Добавьте кнопку в третье вкладке и повесьте на него код по выводу MsgBox, сделаете пишите, двинемся дальше

мы не раньше чем через месяц двинемся дальше...

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

а мне торопится некуда

@kotan · 15.09.2011, 18:55 **[ТС]**

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

а мне торопится некуда

это конечно замечательно, но у меня нет столько времени, так что если можете помочь делом, а именно объяснить чайнику как выполнить конкретную задачу, то буду признателен.

@kotan · 19.09.2011, 11:24 **[ТС]**

Повесил код на кнопку такого вида:

Visual Basic
1
2
3
Private Sub CommandButton11_Click()
MsgBox ("My Message Box Title")
End Sub

Теперь при нажатии на кнопку вылазит окошко с кнопкой ОК.

Идем дальше?

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

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

Добавьте кнопку в третье вкладке и повесьте на него код по выводу MsgBox, сделаете пишите, двинемся дальше

а где видно, что она в третье вкладке?? Весь код формы в студию

@kotan · 20.09.2011, 10:14 **[ТС]**

Вот весь код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
Option Explicit
 
Private Sub ComboBox1_Change()
End Sub
 
Private Sub CommandButton1_Click()
 
'Данные о предприятии'
ActiveDocument.FormFields("ПолноеНаименов").Result = Me.TextBox1.Text
ActiveDocument.FormFields("СокрНаименов").Result = Me.TextBox2.Text
ActiveDocument.FormFields("ЕГРПОУ").Result = Me.TextBox7.Text
ActiveDocument.FormFields("КВЭД").Result = Me.TextBox4.Text
ActiveDocument.FormFields("Документ").Result = Me.TextBox5.Text
ActiveDocument.FormFields("СерияНомер").Result = Me.TextBox6.Text
ActiveDocument.FormFields("ДатаВыдачи").Result = Me.TextBox103.Text
ActiveDocument.FormFields("КемВыдан").Result = Me.TextBox100.Text
 
'Данные о руководителе'
ActiveDocument.FormFields("РУК_ФИО").Result = Me.TextBox3.Text
ActiveDocument.FormFields("РУК_ФИОСокр").Result = Me.TextBox76.Text
ActiveDocument.FormFields("РУК_ФИОРодит").Result = Me.TextBox77.Text
ActiveDocument.FormFields("РУК_Должность").Result = Me.TextBox74.Text
ActiveDocument.FormFields("РУК_ДолжностьРод").Result = Me.TextBox78.Text
ActiveDocument.FormFields("РУК_Основание").Result = Me.TextBox75.Text
ActiveDocument.FormFields("РУК_СерияНомер").Result = Me.TextBox107.Text
ActiveDocument.FormFields("РУК_ДатаВыдачи").Result = Me.TextBox108.Text
ActiveDocument.FormFields("РУК_КемВыдан").Result = Me.TextBox105.Text
ActiveDocument.FormFields("РУК_ИНН").Result = Me.TextBox109.Text
ActiveDocument.FormFields("РУК_Адрес").Result = Me.TextBox111.Text
ActiveDocument.FormFields("РУК_МестоРождения").Result = Me.TextBox112.Text
ActiveDocument.FormFields("РУК_ДатаРождения").Result = Me.TextBox113.Text
ActiveDocument.FormFields("РУК_ЧастьУК").Result = Me.TextBox114.Text
 
'Юридический адрес'
ActiveDocument.FormFields("Страна").Result = Me.TextBox14.Text
ActiveDocument.FormFields("Область").Result = Me.TextBox15.Text
ActiveDocument.FormFields("Город").Result = Me.TextBox16.Text
ActiveDocument.FormFields("Район").Result = Me.TextBox17.Text
ActiveDocument.FormFields("Улица").Result = Me.TextBox18.Text
ActiveDocument.FormFields("Дом").Result = Me.TextBox19.Text
ActiveDocument.FormFields("Офис").Result = Me.TextBox20.Text
ActiveDocument.FormFields("Индекс").Result = Me.TextBox28.Text
ActiveDocument.FormFields("АС").Result = Me.TextBox85.Text
 
'Почтовый адрес'
ActiveDocument.FormFields("ПОЧТАДР_Страна").Result = Me.TextBox22.Text
ActiveDocument.FormFields("ПОЧТАДР_Область").Result = Me.TextBox23.Text
ActiveDocument.FormFields("ПОЧТАДР_Город").Result = Me.TextBox24.Text
ActiveDocument.FormFields("ПОЧТАДР_Район").Result = Me.TextBox25.Text
ActiveDocument.FormFields("ПОЧТАДР_Улица").Result = Me.TextBox26.Text
ActiveDocument.FormFields("ПОЧТАДР_Дом").Result = Me.TextBox27.Text
ActiveDocument.FormFields("ПОЧТАДР_Офис").Result = Me.TextBox21.Text
ActiveDocument.FormFields("ПОЧТАДР_Индекс").Result = Me.TextBox29.Text
ActiveDocument.FormFields("ПОЧТАДР_АС").Result = Me.TextBox30.Text
 
'Контактные данные'
ActiveDocument.FormFields("Телефон1").Result = Me.TextBox82.Text
ActiveDocument.FormFields("Телефон2").Result = Me.TextBox86.Text
ActiveDocument.FormFields("email").Result = Me.TextBox83.Text
ActiveDocument.FormFields("Факс").Result = Me.TextBox84.Text
ActiveDocument.FormFields("КонтЛицо").Result = Me.TextBox87.Text
 
'Банковские реквизиты'
ActiveDocument.FormFields("НаименованиеБанка").Result = Me.TextBox80.Text
ActiveDocument.FormFields("МФО").Result = Me.TextBox79.Text
ActiveDocument.FormFields("Счет").Result = Me.TextBox81.Text
 
'НДС'
ActiveDocument.FormFields("НДСНомер").Result = Me.TextBox88.Text
ActiveDocument.FormFields("НДССвидетельство").Result = Me.TextBox89.Text
 
'Лицензия'
ActiveDocument.FormFields("ЛИЦЕНЗНазв").Result = Me.TextBox90.Text
ActiveDocument.FormFields("ЛИЦЕНЗСерия").Result = Me.TextBox91.Text
ActiveDocument.FormFields("ЛИЦЕНЗНомер").Result = Me.TextBox92.Text
ActiveDocument.FormFields("ЛИЦЕНЗДатаВыдачи").Result = Me.TextBox93.Text
ActiveDocument.FormFields("ЛИЦЕНЗКемВыдана").Result = Me.TextBox94.Text
ActiveDocument.FormFields("ЛИЦЕНЗСрокДо").Result = Me.TextBox95.Text
 
'Заполняется хранителем'
ActiveDocument.FormFields("НомерСчета").Result = Me.TextBox36.Text
ActiveDocument.FormFields("НомерДог").Result = Me.TextBox37.Text
ActiveDocument.FormFields("ДатаДог").Result = Me.TextBox38.Text
ActiveDocument.FormFields("ДатаРег").Result = Me.TextBox39.Text
ActiveDocument.FormFields("Специалист").Result = Me.TextBox40.Text
 
'Доп.информация'
ActiveDocument.FormFields("ДопИстория").Result = Me.TextBox98.Text
ActiveDocument.FormFields("ДопИнфо").Result = Me.TextBox99.Text
ActiveDocument.FormFields("Капитал").Result = Me.TextBox96.Text
ActiveDocument.FormFields("Филиалы").Result = Me.TextBox104.Text
 
'Данные распорядителя счета'
ActiveDocument.FormFields("УП_ФИЗ_Фамилия").Result = Me.TextBox42.Text
ActiveDocument.FormFields("УП_ФИЗ_Имя").Result = Me.TextBox43.Text
ActiveDocument.FormFields("УП_ФИЗ_Отчество").Result = Me.TextBox44.Text
ActiveDocument.FormFields("УП_ФИЗ_СерияНомер").Result = Me.TextBox45.Text
ActiveDocument.FormFields("УП_ФИЗ_Документ").Result = Me.TextBox46.Text
ActiveDocument.FormFields("УП_ФИЗ_КемВыдан").Result = Me.TextBox47.Text
ActiveDocument.FormFields("УП_ФИЗ_ДатаВыдачи").Result = Me.TextBox48.Text
ActiveDocument.FormFields("УП_ФИЗ_ИНН").Result = Me.TextBox49.Text
ActiveDocument.FormFields("УП_ФИЗ_Гражданство").Result = Me.TextBox50.Text
ActiveDocument.FormFields("УП_ФИЗ_МестоРождения").Result = Me.TextBox51.Text
ActiveDocument.FormFields("УП_ФИЗ_Адрес").Result = Me.TextBox52.Text
ActiveDocument.FormFields("УП_ФИЗ_ДатаВыдачиДок").Result = Me.TextBox54.Text
ActiveDocument.FormFields("УП_ФИЗ_СрокДо").Result = Me.TextBox55.Text
ActiveDocument.FormFields("УП_ФИЗ_ДатаРождения").Result = Me.TextBox70.Text
ActiveDocument.FormFields("УП_ФИЗ_Должность").Result = Me.TextBox71.Text
 
'Управляющий счетом'
ActiveDocument.FormFields("УП_ЮР_ПолноеНаименов").Result = Me.TextBox56.Text
ActiveDocument.FormFields("УП_ЮР_СокрНаименов").Result = Me.TextBox57.Text
ActiveDocument.FormFields("УП_ЮР_ЕГРПОУ").Result = Me.TextBox58.Text
ActiveDocument.FormFields("УП_ЮР_Адрес").Result = Me.TextBox59.Text
ActiveDocument.FormFields("УП_ЮР_Факс").Result = Me.TextBox60.Text
ActiveDocument.FormFields("УП_ЮР_Телефон").Result = Me.TextBox61.Text
ActiveDocument.FormFields("УП_ЮР_КонтактноеЛицо").Result = Me.TextBox62.Text
ActiveDocument.FormFields("УП_ЮР_Лицензия").Result = Me.TextBox63.Text
ActiveDocument.FormFields("УП_ЮР_Номер").Result = Me.TextBox64.Text
ActiveDocument.FormFields("УП_ЮР_Серия").Result = Me.TextBox65.Text
ActiveDocument.FormFields("УП_ЮР_ДатаВыдачи").Result = Me.TextBox66.Text
ActiveDocument.FormFields("УП_ЮР_КемВыдана").Result = Me.TextBox67.Text
ActiveDocument.FormFields("УП_ЮР_СрокДо").Result = Me.TextBox68.Text
 
 
Dim oTextBox As TextBox
Me.Hide
ActiveDocument.PrintPreview
ActiveDocument.ClosePrintPreview
End Sub
 
 
Private Sub CommandButton10_Click()
Unload Me
End Sub
 
 
 
Private Sub CommandButton11_Click()
MsgBox ("My Message Box Title")
End Sub
 
 
Private Sub CommandButton2_Click()
Unload Me
End Sub
 
Private Sub CommandButton3_Click()
Dim Элемент As MSForms.Control
For Each Элемент In Me.Controls
    If TypeName(Элемент) = "TextBox" Then
        Элемент.Text = ""
    End If
Next Элемент
End Sub
 
 
Private Sub Image2_Click()
 
End Sub
 
Private Sub Label15_Click()
 
End Sub
 
Private Sub Label6_Click()
 
End Sub
 
Private Sub CommandButton4_Click()
Dim Элемент As MSForms.Control
For Each Элемент In Me.Controls
    If TypeName(Элемент) = "TextBox" Then
        Элемент.Text = ""
    End If
Next Элемент
End Sub
 
Private Sub CommandButton5_Click()
Unload Me
End Sub
 
Private Sub CommandButton7_Click()
'
' ПечатьВсе Макрос
' Макрос записан 14.09.2011 Admin
'
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=2, Pages:="1-4,7,8", PageType:= _
        wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
        True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
        PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
 
End Sub
 
Private Sub Label2_Click()
 
End Sub
 
Private Sub Руководитель_Click()
 
End Sub
 
Private Sub CommandButton9_Click()
Dim Элемент As MSForms.Control
For Each Элемент In Me.Controls
    If TypeName(Элемент) = "TextBox" Then
        Элемент.Text = ""
    End If
Next Элемент
End Sub
 
Private Sub TextBox700_Change()
 
End Sub

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

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

сделать кнопку в третьей вкладке при нажатии на которую данные из полей первой вкладки копируются в соотв. поля третьей влкадки.

я подзабыл, у полей сквозная нумерация, тогда на код кнопки вешайте
как Вам нужно, например
текст1 = текст с нужного поля

@kotan · 20.09.2011, 21:03 **[ТС]**

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

я подзабыл, у полей сквозная нумерация, тогда на код кнопки вешайте
как Вам нужно, например
текст1 = текст с нужного поля

о да спасибо, как раз сегодня до этого додумался и уже сделал!
правда есть одно НО....
есть в форме поле "ФИО" в первой вкладке, а в другой поля разделены на "Имя", "Фамилия" и "Отчество" не знаю как прописать, чтобы в поля в третьей вкладке вставлялся нужный текст до и после пробела, т.е. если в поле "ФИО" написано "Иванов Иван Иванович", надо чтобы этот текст дробился на "Иванов", "Иван" и "Иванович" в соответствующие поля.

@Ципихович Эндрю · 21.09.2011, 11:09

кусочек для затравки, поиграйтесь, специально чуть-чуть в сторону от Вашего вопроса
Сидоров Иван Петрович - И.П.Сидоров

Visual Basic
1
2
3
txt = "Фамилия Имя Отчество"
arr = Split(txt)
Инициал_имя_Инициал_отчество_Фамилия = Mid$(arr(1), 1, 1) & "." & Mid$(arr(2), 1, 1) & "." & arr(0)

@kotan · 22.09.2011, 10:00 **[ТС]**

Кстати, зта функция так же весьма полезна, спасибо!
НО... У меня видимо глюки.
Прописываю код под свою форму таким образом:

Visual Basic
1
2
3
4
5
Private Sub CommandButton12_Click()
txt = TextBox3
arr = Split(txt)
TextBox76.Text = Mid$(arr(1), 1, 1) & "." & Mid$(arr(2), 1, 1) & "." & arr(0)
End Sub

Не работает, сразу ошибка "Variable not defined".

Но если делаю новую, чистую форму лишь на одну кнопку, то все работает:

Visual Basic
1
2
3
4
5
Private Sub CommandButton1_Click()
txt = TextBox1
arr = Split(txt)
TextBox2.Text = Mid$(arr(1), 1, 1) & "." & Mid$(arr(2), 1, 1) & "." & arr(0)
End Sub

Единственное включается отладка, если поле остается пустым.
Подскажите, где накосячил?

@Busine2009 · 22.09.2011, 11:33

kotan,
в самом верху находится Option Explicit, который требует, чтобы переменные объявляли.
Надо объявить txt и arr

На форме может не быть TextBox76

Новые блоги и статьи Все статьи Все блоги /
20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.
Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .

@kotan 182 / 1 / 0 Регистрация: 12.09.2011 Сообщений: 81
	13.09.2011, 16:10 [ТС]
	Кнопки "Очистить" и "Выйти" прописать получается. А вот кнопка логику прописывания кода кнопки "Вставить данные" не могу понять. 0

@kotan 182 / 1 / 0 Регистрация: 12.09.2011 Сообщений: 81
	13.09.2011, 18:36 [ТС]
	При использовании этого кода кнопка на первой вкладке все также вставляет данные из формы, при этом выводит сообщение "Процедура1", кнопка на втарой вкладке только выводит сообщение, но данные не вставляются. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	13.09.2011, 18:51
	kotan, код в обеих кнопках должен быть одинаковый. Я просто образец выложил. 1

@kotan 182 / 1 / 0 Регистрация: 12.09.2011 Сообщений: 81
	14.09.2011, 11:20 [ТС]
	Busine2009, Надо полностью дублировать код, который идет в первой кнопке на вторую, т.е. при создании нового поля его значение надо вставлять и во вторую кнопку? А нет ли кода, который при нажатии на вторую кнопку включает первую? 0

@kotan 182 / 1 / 0 Регистрация: 12.09.2011 Сообщений: 81
	15.09.2011, 17:17 [ТС]
	Уважаемый Busine2009 Подскажите пожалуйста как бы сделать такое... Есть форма из 3-х вкладок (MultiPage) с соответствующими полями. В первой и третьей вкладках есть такие поля, которые чаще всего дублируют друг друга (типа фамилия, имя, паспортн. данные и т.п). Вопрос: можно ли как-нибудь сделать кнопку в третьей вкладке при нажатии на которую данные из полей первой вкладки копируются в соотв. поля третьей влкадки. 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,334
	15.09.2011, 18:28
	а мне торопится некуда 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	22.09.2011, 11:33
	kotan, в самом верху находится Option Explicit, который требует, чтобы переменные объявляли. Надо объявить txt и arr На форме может не быть TextBox76 0