Программа "Приглашение на родительское собрание"

'3. Добавляем в выпадающий список данные из массива "myArray".
Me.ComboBox1.List = myArray()

Option Explicit
Option Base 1
' переменные формы приложения
Public фистудента1 As String
Public дата1 As String
Public место1 As String
Public кабинет1 As String
Public кафедра1 As String
Public фиозавкафедрой1 As String
Public группа1 As String
Public фиокуратора1 As String
' переменные формы шаблона документа
Public фистудента As String
Public дата As String
Public место As String
Public кабинет As String
Public кафедра As String
Public фиозавкафедрой As String
Public группа As String
Public фиокуратора As String
Dim book(8) As String
Dim dataMas(8) As String
Dim i As Integer
Sub Печать() 'процедура печати бланка
'Заносим информацию в массивы bookmarmas, datamas
book(1) = "фистудента": dataMas(1) = фистудента
book(2) = "дата": dataMas(2) = дата
book(3) = "место": dataMas(3) = место
book(4) = "кабинет": dataMas(4) = кабинет
book(5) = "кафедра": dataMas(5) = кафедра
book(6) = "фиозавкафедрой": dataMas(6) = фиозавкафедрой
book(7) = "группа": dataMas(7) = группа
book(8) = "фиокуратора": dataMas(8) = фиокуратора
'заполнение полей квитанции:
For i = 1 To 8
ActiveDocument.FormFields(ActiveDocument.Bookmarks(book(i)).Name).Result = dataMas(i)
Next
ActiveDocument.PrintPreview 'Выполняется предварительный просмотр печати.
'Для того чтобы реально распечатать документ, применяется метод PrintOut объекта Application (см. Help)
UserForm1.Hide
End Sub

Private Sub CommandButton1_Click()
фистудента = фистудента
дата = дата
место = место
кабинет = кабинет
кафедра = кафедра
фиозавкафедрой = фиозавкафедрой
группа = группа
фиокуратора = фиокуратора
Call Печать
End Sub
 
Private Sub Label5_Click()
 
End Sub
 
Private Sub CommandButton2_Click()
Unload Me
End Sub
 
'Процедуры присваивания переменным формы приложения введенных значений в текстовые поля формы.
 
Private Sub textBox1_change()
фистудента = TextBox1.Value
End Sub
 
Private Sub textBox2_change()
дата = TextBox2.Value
End Sub
 
Private Sub textBox3_change()
место = TextBox3.Value
End Sub
 
Private Sub textBox4_change()
кабинет = TextBox4.Value
End Sub
 
Private Sub textBox5_change()
кафедра = TextBox5.Value
End Sub
 
Private Sub textBox6_change()
фиозавкафедрой = TextBox6.Value
End Sub
 
Private Sub textBox7_change()
группа = TextBox7.Value
End Sub
 
Private Sub textBox8_change()
фиокуратора = TextBox8.Value
End Sub
 
Private Sub фистудента_Click()
 
End Sub