Макрос. Автозаполнение анкеты в 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 ...

Новые блоги и статьи Все статьи Все блоги /
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .

@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