Основы программирования на VBA. Регеда В.В - 75 стр.

Me.CboRazd.AddItem "Схема электрическая функциональная",1
Me.CboRazd.AddItem "Схема электрическая принципиальная",2
         Me.txtOsn.Text = ""
         Me.txtListov.Text = ""
         Me.txtGrupa.Text = ""
     End Sub
     Написать в модуле формы следующий программный код, который
выполняется при нажатии на клавишу Выход, расположенную в форме.
      Private Sub cmdExit_Click()
      Dim cmdExit As Integer
      cmdExit = True
      If Len(Me.txtOsn.Text)=0 Then cmdExit = False
      If Len(Me.CboRazd.Text)=0 Then cmdExit = False
      If Len(Me.txtListov.Text)=0 Then cmdExit = False
      If Len(Me.txtGrupa.Text)=0 Then cmdExit = False
                  If cmdExit = True Then
                            Me.Hide
                  Else
      MsgBox "Введите информацию во все поля формы",_
      48, "Ошибка ввода данных"
                  End If
      End Sub
      Процедура начинается с объявления целочисленной переменной
cmdExit с начальным значением True. Далее функция Len проверяет
длину введенных строк в полях формы. Если хотя бы одно из полей будет
пустым, то на экран выводится сообщение, предупреждающее пользовате-
ля, что необходимо заполнить форму до конца.
      На этом процесс создания шаблона завершен. Сохраните изменен-
ный шаблон Лист1.dot. Выйдите из MS Word. Загрузив снова MS Word,
создайте новый документ на основе своего шаблона Лист1.dot и про-
верьте его работу.
      Лист1.dot а в раскрывающемся списке Тип файла установите
Шаблон документа. Щелкните на кнопке ОК, чтобы завершить команду.