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

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

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

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

@kotan · 22.09.2011, 13:56 **[ТС]**

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

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

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

Не срабатывает

Visual Basic
1
2
3
4
5
6
Dim txt As String
Dim arr As String
txt = TextBox3
arr = Split(txt)
TextBox76.Text = Mid(arr(1), 1, 1) & "." & Mid(arr(2), 1, 1) & "." & arr(0)
End Sub

@Busine2009 · 22.09.2011, 15:01

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

TextBox76

а такой TextBox есть на форме?

@kotan · 22.09.2011, 15:24 **[ТС]**

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

а такой TextBox есть на форме?

да, конечно

@Busine2009 · 22.09.2011, 15:27

kotan,
а что выделяется во время ошибки?

@kotan · 22.09.2011, 15:28 **[ТС]**

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

kotan,
а что выделяется во время ошибки?

как раз 5-я строка, где TextBox76 - Expected array

@Busine2009 · 22.09.2011, 15:57

kotan,
объявите массив, как он и должен объявляться:

Visual Basic
1
Dim Arr() As String

@kotan · 22.09.2011, 16:23 **[ТС]**

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

kotan,
объявите массив, как он и должен объявляться:

Visual Basic
1
Dim Arr() As String

Спасибо!!! Заработало. А как бы сделать чтобы это поле автоматически заполнялось от ведомого при вводе, так сказать без кнопки.

@Busine2009 · 22.09.2011, 16:33

kotan,
а где код можно посмотреть. Просто не понятно, что надо сделать.

@kotan · 22.09.2011, 16:42 **[ТС]**

вот код:

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
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
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()
TextBox71.Text = TextBox74
TextBox45.Text = TextBox107
TextBox48.Text = TextBox108
TextBox47.Text = TextBox105
TextBox51.Text = TextBox112
TextBox52.Text = TextBox111
TextBox70.Text = TextBox113
TextBox49.Text = TextBox109
 
Dim txt As String
Dim arr() As String
txt = TextBox3
arr = Split(txt)
TextBox42.Text = arr(0)
TextBox43.Text = arr(1)
TextBox44.Text = arr(2)
End Sub
 
Private Sub CommandButton12_Click()
Dim txt As String
Dim arr() As String
txt = TextBox3
arr = Split(txt)
TextBox76.Text = Mid(arr(1), 1, 1) & "." & Mid(arr(2), 1, 1) & "." & arr(0)
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
 
Private Sub MultiPage1_Change()
 
End Sub

на картинке показал как хотелось бы сделать

исходя из этого, кода, который вы довели до ума:

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

@Busine2009 · 22.09.2011, 16:55

Visual Basic
1
2
3
Private Sub TextBox1_Change()
Me.TextBox2.Text = Me.TextBox1.Text
End Sub

где TextBox1 - текстбокс, куда печатаем с клавиатуры.

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

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

txt = TextBox3

не уверен, что так надо писать также пробуйте txt = TextBox3.Text

@kotan · 22.09.2011, 17:26 **[ТС]**

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

Visual Basic
1
2
3
Private Sub TextBox1_Change()
Me.TextBox2.Text = Me.TextBox1.Text
End Sub

где TextBox1 - текстбокс, куда печатаем с клавиатуры.

не пойму как прикрутить это к этому коду:

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

но только без кнопки

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

так сделали без кнопки, чем похо?

@Dmitrij02 · 22.09.2011, 17:35

А мне кажется, что здесь закладки вообще не нужны, там же всё в таблицах, определяй их как объекты и вперед

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

не буду спорить, где Вы увидели закладки, таблицы?

@kotan · 22.09.2011, 17:39 **[ТС]**

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

@Busine2009 · 22.09.2011, 17:47

Сработает при выходе из TextBox3.

Visual Basic
1
2
3
4
5
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim arr() As String
arr = Split(Me.TextBox3.Text)
TextBox76.Text = Mid(arr(1), 1, 1) & "." & Mid(arr(2), 1, 1) & "." & arr(0)
End Sub

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

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

Я наверное неправильно выразился.

там ещё и рисунок был в посте 49, тоже не правильно нарисовал? или аппетит пришёл во время еды??
ну вот же есть без кнопки

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

Private Sub TextBox1_Change()
Me.TextBox2.Text = Me.TextBox1.Text
End Sub

только в эту часть Me.TextBox1.Text то что содержит уже фамилию и инициалы, но только по моему не Change
надо, а когда теряет фокус, читайте что-то похожее где есть слово фокус

ОПЕРЕДИЛИ

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

Фантастика, сработало!!!!

Добавлено через 17 секунд
Busine2009,
Ципихович Эндрю,
Спасибо

Добавлено через 13 минут
А как бы подцепить MsgBox, чтобы не включался отладчик, если поле оставить пустым?

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

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

Новые блоги и статьи Все статьи Все блоги /
Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .	Красочные поля с номером страницы svg+background-image russiannick 04.11.2026 Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .	Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .	Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .
Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .	За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .	Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	22.09.2011, 15:27
	kotan, а что выделяется во время ошибки? 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	22.09.2011, 16:33
	kotan, а где код можно посмотреть. Просто не понятно, что надо сделать. 0

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	22.09.2011, 17:28
	так сделали без кнопки, чем похо? 0

@Dmitrij02 168 / 4 / 1 Регистрация: 09.07.2011 Сообщений: 34
	22.09.2011, 17:35
	А мне кажется, что здесь закладки вообще не нужны, там же всё в таблицах, определяй их как объекты и вперед 0

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	22.09.2011, 17:37
	не буду спорить, где Вы увидели закладки, таблицы? 0

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

@kotan 182 / 1 / 0 Регистрация: 12.09.2011 Сообщений: 81
	22.09.2011, 18:04 [ТС]
	Фантастика, сработало!!!! Добавлено через 17 секунд Busine2009, Ципихович Эндрю, Спасибо Добавлено через 13 минут А как бы подцепить MsgBox, чтобы не включался отладчик, если поле оставить пустым? 0

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	22.09.2011, 18:07
	IfLen(TextBox76.Text) = 0 Then ... 0