Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Практические по ИТ.docx
Скачиваний:
0
Добавлен:
01.05.2025
Размер:
466.45 Кб
Скачать

Практическое занятие №11. Разработка и отладка программного модуля с семейством Paragraphs и объектом Paragraph в среде программирования vba.

1 Цель занятия

Получить первичные навыки работы в среде программирования VBA с семейством Paragraphs и объектом Paragraph.

2 Оборудование рабочего места и программное обеспечение.

Персональный компьютер.

Microsoft Office Word 2007

3 Краткие теоретические сведения.

Для автоматизации работы с абзацами следует использовать коллекцию Paragraphs, которая содержит все абзацы конкретного документа. Доступ к нужному абзацу осуществляется с помощью объекта Paragraph, являющегося конкретным абзацем документа.

Существует еще несколько объектов, которые позволяют выполнять те или иные действия над абзацами. Например объект ParagraphFormat позволяет управлять форматированием абзацев.

Коллекция Paragraphs содержит все абзацы (объекты Paragraph) конкретного документа.

Методы коллекции Paragraphs:

Add – добавляет пустой абзац в документ

Reset – удаляет форматирование абзаца, выполненное без применения стилей

Свойства объекта ParagraphFormat:

Alignmentопределяет вариант выравнивания абзацев (wdAlignParagraphLeft, wdAlignParagraphCenter, wdAlignParagraphRight, wdAlignParagraphJustify)

FirstLineIndent – определяет отступ первой строки в пунктах

LeftIndent – определяет величину первой строки в пунктах

LineSpasing – задает величину межстрочного интервала для абзаца

SpaceAfter – задает интервал после заданного абзаца

SpaceBefore – определяет интервал перед заданным интервалом

Style – определяет стиль заданного абзаца.

Hyphenation – задает режим автоматической расстановки переносов.

Для организации разветвления в пользовательских формах предусмотрены такие элементы управления, как независимые переключатели CheckBox (флажок) и зависимые переключатели OptionButton. Для проверки выбора любого переключателя используют свойство Value (True – выбран, False – не выбран).Например:

If OptionButton1.Value = True Then MsgBox (" Выбран переключатель OptionButton1")

Используемая литература.

  1. Конспект лекций.

  2. Вик Курилович Visual Basic for Application, стр. 80-82, 2010г.

  3. И.Г.Фризен Офисное программирование, стр.35-44, 2011г.

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

  1. Изучить теоретические сведения и задание к работе.

  2. Выполнить задание и сохранить его в папке на своем диске.

  3. Ответить на контрольные вопросы.

5 Контрольные вопросы

  1. Что представляет собой объект Paragraph?

  2. Для чего нужна коллекция Paragraphs?

  3. Укажите команду для VBA, с помощью которой можно добавить новый абзац в документ?

  4. С помощью какого свойства можно изменить стиль определенного абзаца?

7 Задание 1:

  1. Запустить текстовый процессор MS-Word.

  2. Нажать сочетание клавиш Alt+F11 для перехода в редактор VBA.

  3. В окне Project-Project найдите имя проекта документа, дважды щелкните правой кнопкой мыши по пункту This Document – Insert – UserForm. Появится окно формы с прикрепленным окном элементов управления .

  4. Ознакомьтесь с заданием варианта и выполните спецификацию (описание исходных данных и результатов с указанием имен переменных и их типов).

  5. Поместите на форму элементы управления: Label1, TextBox1, CommandButton1, CheckBox1, OptionButton1 в соответствии с условием задачи варианта. Предусмотреть ввод данных с помощью TextBox, выполнение действий над данными, вывод результата в элемент управления TextBox (свойство Text) или в Label (свойство Caption).

  6. Создать заготовку процедуры обработки события нажатия на кнопку, дважды щелкнув на элемент управления CommandButton, внести в нее программный код модуля.

  7. Выполнить отладку модуля с помощью меню Debug-Compile Project. Если в коде программы есть ошибки, то появится сообщение о них, ошибки надо исправить, а потом запустить модуль на исполнение командой Run (или нажать на зеленый треугольник в панели инструментов).

  8. Сохранить файл приложения на своей учетной записи, используя тип файла с поддержкой макросов.

  9. Написать отчет по выполненной работе в тетрадь.

  10. Ответить письменно на контрольные вопросы

Варианты заданий

  1. Ввести значение радиуса окружности. На форме разместите три переключателя OptionButton. При выборе первого переключателя вычислите длину окружности, при выборе второго – площадь круга, при выборе третьего – объем шара для данного радиуса. Результаты вывести в элементы управления TextBox.

  2. Ввести два целых числа – длины сторон прямоугольника. На форме разместите три флажка. При выборе первого флажка вычислить периметр прямоугольника, при выборе второго – его площадь, при выборе третьего – длину диагонали для данных сторон. Вывести все результаты в элементы управления TextBox.

  3. Создать калькулятор для 4-х действий над числами. Числа вводить в элементы управления TextBox, действие выбирать с помощью элемента управления OptionButton. Его свойство Caption использовать для обозначения действий: +, -, *, /. Результаты вывести в элемент управления Label.

  4. Вычислить стоимость покупки: на форме разместить нужное количество элементов управления TextBox для ввода названия, цены и количества двух товаров. Два флажка дают возможность купить один или два товара. Результат вывести в элемент управления TextBox.

  5. На форме разместить нужное количество элементов управления TextBox для ввода оценок по четырем предметам и названий предметов, а также 4 флажка. Вычислить средний балл для выбранных предметов, вывести результат в элемент управления Label.

  6. Вычислить стоимость проезда студента в колледж из дома, если он может использовать один из двух возможных вариантов проезда: двумя автобусами или автобусом и маршруткой. Вариант выбрать с помощью элементов управления OptionButton, стомость проезда на автобусе и маршрутке ввести функцией InputBox. Результат вывести в элемент управления TextBox.

  7. Значения переменных X, Y, Z ввести в элементы управления TextBox. На форме поместить три элемента управления OptionButton. При выборе первого элемента поменять местами X и Y так, чтобы они оказались упорядоченными по возрастанию, при выборе второго – поменять местами Y и Z так, чтобы они оказались упорядоченными по убыванию, при выборе третьего – все значения переменных заменить их квадратами. Результаты вывести в те же элементы управления TextBox.

  8. Посчитать стоимость поездки на дачу. В элементы управления TextBox поместить расстояние поездки на машине и стоимость 1л бензина. На 100км пути требуется 7л бензина. Переключатели OptionButton соответствуют поездке в одну сторону или поездке туда и обратно. Результат вывести в элемент управления Label.

  9. Ввести три переменные: X, Y, Z в элементы управления TextBox. С помощью трех флажков вычислите сумму, произведение или среднее значение этих чисел. Результаты вывести в элементы управления Label.

  10. Для заданного значения Х можно вычислить одну из трех функций Y: Y=Ax-B, Y=Bx2+Ax-C, Y=(x-A)*(x+B) . Коэффициенты ввести функцией InputBox. Функцию выбирать с помощью элементов управления OptionButton. Результат вывести в элемент управления Label.

Задание 2:

  1. В окне Project-Project найдите имя проекта документа, дважды щелкните левой кнопкой мыши по пункту This Document.

  2. В окне редактора появится окно для создания макроса.

  3. Введите код макроса:

Sub Work_With_Paragraph()

Dim WorkDoc As Document 'задаем объектную переменную

Dim NewParagraph As Paragraph

Set WorkDoc = Documents.Add()

Set NewParagraph = WorkDoc.Paragraphs.Add

NewParagraph.Alignment = wdAlignParagraphJustify

NewParagraph.FirstLineIndent = 43

NewParagraph.Hyphenation = True

NewParagraph.Style = "Заголовок 1"

End Sub

  1. Исправьте ошибки и запустите макрос на исполнение. Поясните действия операторов макроса.