Диаграмма, построенная исправленным макросом

Рис. 23

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

Отчет должен содержать программу и диаграмму.

Лабораторная работа 11 Использование vba в пакете программ word

1. Цель работы

Научиться использовать возможности VBA для расширения функций пакета Word.

2. Основные теоретические положения

В пакет Word включен язык VBA, обладающий возможностями, рассмотренными в работах 113.

3. Порядок выполнения работы

Задание

Создать программу для подсчета числа абзацев в документе Word.

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

3.1. Открыть Word.

3.2. Открыть документ Word по указанию преподавателя.

3.3. Открыть редактор VBA в Word (Сервис – Макрос – Редактор VBA).

3.4. Набрать текст процедуры.

‘Процедура для подсчета числа абзацев

‘В документе с именем Документ 1

Public Sub ПодсчетАбзацев( )

‘Активизация документа с именем «Документ 1»

Documents (“Документ 1”).Activаte

‘Проверяем, если ли выделенный текст

If Selection.Type = wdSelectionIP Then

‘выбора нет, считаем абзацы всего документа

s = ActiveDocument.ComputeStatistics(wdStatisticParagraphs)

Else

‘выбор есть, считаем абзацы в выборе

s = Selection.Range.ComputeStatistics(wdStatisticParagraphs)

End If

s1 = s

‘выбор правильного окончания сообщения

If s > 20 Then s1 = Val(Right(Str(s), 1))

Select Case s1

Case 1

MsgBox(“в документе” + Str(s) + “абзац”)

Case 2 To 4

MsgBox(“в документе” + Str(s) + “абзаца”)

Case 5 To 20, 0

MsgBox(“в документе” + Str(s) + “абзацев”)

Case Else

MsgBox(“ “)

End Select

End Sub

3.5. Изменить имя документа Word (по указанию преподавателя).

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

3.7. Выделить в документе несколько абзацев.

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

3.9. Сохранить файл с именем Абзац.

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

Распечатка программ.

Лабораторная работа 12 Создание форм в пакете Word

1. Цель работы

Научится создавать и активизировать диалоговые формы в пакете Word.

2. Основные теоретические положения

Язык VBA в пакете Word позволяет создавать и активизировать диалоговые окна (формы).

3. Порядок выполнения работы

Задания

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

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

3.1. Выполнение задания 1

3.1.1. Открыть программу VBA в файле Word с именем «Абзац» (программа создана в работе 14).

3.1.2. Выделить весь текст программы, скопировать его в документ Word и присвоить имя «Ключевые».

3.1.3. Создать процедуру для выделения жирным шрифтом ключевых слов в VBA.

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”

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

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

End Sub

3.1.4. Выделите весь текст документа «Ключевые».

3.1.5. Запустите программу КлючевыеСлова на выполнение.