3.2. Выполнение задания 2

3.2.1. Создать новый файл Word с именем «Форма».

3.2.2. Скопировать на лист Word программу из задания 1.

3.2.3. Перейти в редактор VBA: Сервис – Макрос – Редактор VBA.

3.2.4. Создать форму: Insert (вставить) – UserForm.

3.2.5. Установить в форме элементы управления согласно образцу рис. 24.

Форма для управления выделением ключевых слов

Рис. 24

3.2.6. Дважды щелкнуть по кнопке Сохранить и в открывшемся окне кода ввести текст программы:

Private Sub CommandButton1_Click( )

‘Зададим признак нажатия кнопки Сохранить

UserForm1.Tag = “1”

‘закроем форму

UserForm1.Hide

End Sub

3.2.7. Создать модуль: Insert (вставить) – Module.

3.2.8. Создать процедуру: Insert (вставить) – Procedurе, ввести имя ПоискКлючевыхСлов.

3.2.9. Ввести текст программы:

Public Sub ПоискКлючевыхСлов( )

‘Описание массива для записи ключевых слов

Dim KeyWord( 11 ) As String

‘Проверка, выделен ли текст

If Selection.Start = Selection.End Then

MsgBox(“Не выделен фрагмент текста”)

Exit Sub

End If

‘Заполнение массива ключевыми словами

KeyWord(0) = “Sub” : KeyWord(1) = “Function”: KeyWord(2) = “End”

KeyWord(3) = “If” : KeyWord(4) = “Then” : KeyWord(5) = “Else”

KeyWord(6) = “EndIf” : KeyWord(7) = “Dim”: KeyWord(8) = “While”

KeyWord(9) = “Wend” : KeyWord(10) = “Select” : KeyWord(11) = “GoTo”

‘Вывод формы на экран

UserForm1.Show

‘Проверка, нажата ли кнопка Сохранить

If UserForm1.Tag = “1” Then

‘Проверка, нужно ли выделение полужирным шрифтом

If UserForm1.OptionButton1.Value = True Then

‘Выделение полужирным шрифтом

For I = 1 To 11

With Selection.Find

.Forward = True

.MatchWholeWord = True

.Text = KeyWord( I )

With.Replacement

.Font.Bold = True

End With

.Execute Replace:= wdReplaceAll

End With

Next

‘Выделение курсивом

ElseIf

UserForm1.OptionButton2.Value = True Then

For I = 1 To 11

With Selection.Find

.Forward = True

.MatchWholeWord = True

.Text = KeyWord( I )

With.Replacement

.Font.Italic = True

.Font.ColorIndex = 3

End With

.Execute Replace:= wdReplaceAll

End With

Next

‘Выделение подчеркиванием

Else

For I = 1 To 11

With Selection.Find

.Forward = True

.MatchWholeWord = True

.Text = KeyWord( I )

With.Replacement

.Font.Underline = True

End With

.Execute Replace:= wdReplaceAll

End With

Next

End If

End If

End Sub

3.2.10. Щелкнуть по пиктограмме Сохранить.

3.2.11. Запустить программу на выполнение (F5).

3.2.12. Перейти на лист Word, выделить текст, вернуться в VBA, F5.

3.2.13. В открывшейся форме выбрать любую опцию, щелкнуть по кнопке Сохранить.

4. Отчет по работе

Распечатка формы, программы, результатов выделения ключевых слов.