Интересная задача! Заметила, что этот запрос довольно популярен в интернете, но статей с описанием нормальных, красивых способов практически нет! А те, которые есть, написаны криво и непонятно.
Итак, как же сделать тест в Word Office? Пошаговая инструкция:
1. Добавьте вкладку "Разработчик" на панель задач
Зайдите в Файл -> Параметры -> Настроить ленту
Поставьте галочку напротив "Разработчик"
2. Создание теста
Перейдите во вкладку "Разработчик" в вашей ленте. Используйте инструменты ActiveX для создания вашего теста. Чтобы переназвать элементы из OptionButton1 и тд, кликайте правой кнопкой мыши по ним и выбирайте "свойства". Далее в графе "Caption" изменяем название на нужное нам.
У вас может получиться примерно что-то такое:
Пока что ничего не работает, но сейчас мы это исправим.
3. Создания макроса для проверки теста
Заходим во вкладку Visual Basic на панели разработчика. Нажимаем "This Document"
В вылезшем окне пишем:
• Если вы использовали ComboBox:
Private Sub ComboBox1_Change()
End Sub
Private Sub Document_Open()
ComboBox1.Clear
ComboBox1.AddItem "птица" 'сюда мы вставляем то, что
ComboBox1.AddItem "рыба" 'хотим добавить в наш ComboBox
End Sub
• Далее идет код для кнопки, проверяющей наш тест:
(указан для моего конкретного теста)
Private Sub CommandButton1_Click()
Dim s As Integer
s = 0
If ThisDocument.OptionButton1.Value = True Then s = s + 1
If ThisDocument.ComboBox1.Text = "птица" Then s = s + 1
If ThisDocument.CheckBox1.Value = True And ThisDocument.CheckBox2.Value = True And ThisDocument.CheckBox3.Value = False Then s = s + 1
MsgBox "Вы набрали " & s , , "Проверка теста"
End Sub
Вот и все! Так выглядит наш тест:
И напоследок: не забудьте проверить, чтобы ваш файл был сохранен в разрешении .docm