
- •Практическое занятие №1 Обработка текстовой информации средствами текстового процессора ms Word: редактирование и форматирование документов.
- •2 Перечень оборудования и программное обеспечение.
- •3 Краткие теоретические сведения.
- •Бульон с сельдереем
- •Повести покойного Ивана Петровича Белкина
- •Программа передач
- •Сводка погоды
- •Практическое занятие №2 Обработка текстовой информации средствами текстового процессора ms Word: вставка в документ различных объектов.
- •2 Перечень оборудования и программное обеспечение.
- •3 Краткие теоретические сведения.
- •Заготовительная контора «Рога и копыта»
- •Р абота с калькулятором
- •Практическое занятие №3 Выполнение расчетов средствами табличного процессора ms Excel
- •2 Перечень оборудования и программное обеспечение.
- •3 Краткие теоретические сведения.
- •Практическое занятие №4 Обработка экономической и статистической информации.
- •2 Перечень оборудования и программное обеспечение.
- •3 Краткие теоретические сведения.
- •Практическое занятие №5 Создание баз данных средствами субд ms Access
- •2 Перечень оборудования и программное обеспечение.
- •3 Краткие теоретические сведения.
- •Практическое занятие №6 Выполнение схем в графическом редакторе Microsoft Visio.
- •2 Перечень оборудования и программное обеспечение.
- •3 Краткие теоретические сведения.
- •Практическое занятие №7 Использование средств группировки, объединения, модификации объектов в Microsoft Visio
- •2 Перечень оборудования и программное обеспечение.
- •3 Краткие теоретические сведения.
- •Практическое занятие № 8 Изучение структуры инструментальной среды программирования vba
- •1 Цель занятия
- •2 Оборудование рабочего места и программное обеспечение.
- •3 Краткие теоретические сведения.
- •Стандартные пункты строки меню
- •Практическое занятие № 9 Разработка кода программного модуля и его отладка в инструментальной среде vba
- •1 Цель занятия
- •2 Оборудование рабочего места и программное обеспечение.
- •3 Краткие теоретические сведения.
- •Практическое занятие №10. Разработка и отладка программного модуля с семейством Documents и объектом Document в инструментальной среде vba.
- •1 Цель занятия
- •2 Оборудование рабочего места и программное обеспечение.
- •3 Краткие теоретические сведения.
- •4 Порядок выполнения работы
- •5 Контрольные вопросы
- •7 Задание 1:
- •Практическое занятие №11. Разработка и отладка программного модуля с семейством Paragraphs и объектом Paragraph в среде программирования vba.
- •1 Цель занятия
- •2 Оборудование рабочего места и программное обеспечение.
- •3 Краткие теоретические сведения.
- •4 Порядок выполнения работы
- •5 Контрольные вопросы
- •7 Задание 1:
- •Практическое занятие №12. Разработка и отладка программного модуля с использованием семейства Worksheets и объекта Worksheet в vba.
- •1 Цель занятия
- •2 Перечень оборудования и программное обеспечение.
- •3 Краткие теоретические сведения.
- •4 Порядок выполнения работы
- •5 Содержание отчета
- •6 Контрольные вопросы
- •Практическое занятие №13. Разработка и отладка программного модуля с использованием семейства Charts и объекта Chart в vba.
- •1 Цель занятия
- •2 Оборудование рабочего места и программное обеспечение.
- •3 Краткие теоретические сведения.
- •4 Порядок выполнения работы
- •5 Контрольные вопросы
- •7 Задание :
Практическое занятие №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")
Используемая литература.
Конспект лекций.
Вик Курилович Visual Basic for Application, стр. 80-82, 2010г.
И.Г.Фризен Офисное программирование, стр.35-44, 2011г.
4 Порядок выполнения работы
Изучить теоретические сведения и задание к работе.
Выполнить задание и сохранить его в папке на своем диске.
Ответить на контрольные вопросы.
5 Контрольные вопросы
Что представляет собой объект Paragraph?
Для чего нужна коллекция Paragraphs?
Укажите команду для VBA, с помощью которой можно добавить новый абзац в документ?
С помощью какого свойства можно изменить стиль определенного абзаца?
7 Задание 1:
Запустить текстовый процессор MS-Word.
Нажать сочетание клавиш Alt+F11 для перехода в редактор VBA.
В окне Project-Project найдите имя проекта документа, дважды щелкните правой кнопкой мыши по пункту This Document – Insert – UserForm. Появится окно формы с прикрепленным окном элементов управления .
Ознакомьтесь с заданием варианта и выполните спецификацию (описание исходных данных и результатов с указанием имен переменных и их типов).
Поместите на форму элементы управления: Label1, TextBox1, CommandButton1, CheckBox1, OptionButton1 в соответствии с условием задачи варианта. Предусмотреть ввод данных с помощью TextBox, выполнение действий над данными, вывод результата в элемент управления TextBox (свойство Text) или в Label (свойство Caption).
Создать заготовку процедуры обработки события нажатия на кнопку, дважды щелкнув на элемент управления CommandButton, внести в нее программный код модуля.
Выполнить отладку модуля с помощью меню Debug-Compile Project. Если в коде программы есть ошибки, то появится сообщение о них, ошибки надо исправить, а потом запустить модуль на исполнение командой Run (или нажать на зеленый треугольник в панели инструментов).
Сохранить файл приложения на своей учетной записи, используя тип файла с поддержкой макросов.
Написать отчет по выполненной работе в тетрадь.
Ответить письменно на контрольные вопросы
Варианты заданий
Ввести значение радиуса окружности. На форме разместите три переключателя OptionButton. При выборе первого переключателя вычислите длину окружности, при выборе второго – площадь круга, при выборе третьего – объем шара для данного радиуса. Результаты вывести в элементы управления TextBox.
Ввести два целых числа – длины сторон прямоугольника. На форме разместите три флажка. При выборе первого флажка вычислить периметр прямоугольника, при выборе второго – его площадь, при выборе третьего – длину диагонали для данных сторон. Вывести все результаты в элементы управления TextBox.
Создать калькулятор для 4-х действий над числами. Числа вводить в элементы управления TextBox, действие выбирать с помощью элемента управления OptionButton. Его свойство Caption использовать для обозначения действий: +, -, *, /. Результаты вывести в элемент управления Label.
Вычислить стоимость покупки: на форме разместить нужное количество элементов управления TextBox для ввода названия, цены и количества двух товаров. Два флажка дают возможность купить один или два товара. Результат вывести в элемент управления TextBox.
На форме разместить нужное количество элементов управления TextBox для ввода оценок по четырем предметам и названий предметов, а также 4 флажка. Вычислить средний балл для выбранных предметов, вывести результат в элемент управления Label.
Вычислить стоимость проезда студента в колледж из дома, если он может использовать один из двух возможных вариантов проезда: двумя автобусами или автобусом и маршруткой. Вариант выбрать с помощью элементов управления OptionButton, стомость проезда на автобусе и маршрутке ввести функцией InputBox. Результат вывести в элемент управления TextBox.
Значения переменных X, Y, Z ввести в элементы управления TextBox. На форме поместить три элемента управления OptionButton. При выборе первого элемента поменять местами X и Y так, чтобы они оказались упорядоченными по возрастанию, при выборе второго – поменять местами Y и Z так, чтобы они оказались упорядоченными по убыванию, при выборе третьего – все значения переменных заменить их квадратами. Результаты вывести в те же элементы управления TextBox.
Посчитать стоимость поездки на дачу. В элементы управления TextBox поместить расстояние поездки на машине и стоимость 1л бензина. На 100км пути требуется 7л бензина. Переключатели OptionButton соответствуют поездке в одну сторону или поездке туда и обратно. Результат вывести в элемент управления Label.
Ввести три переменные: X, Y, Z в элементы управления TextBox. С помощью трех флажков вычислите сумму, произведение или среднее значение этих чисел. Результаты вывести в элементы управления Label.
Для заданного значения Х можно вычислить одну из трех функций Y: Y=Ax-B, Y=Bx2+Ax-C, Y=(x-A)*(x+B) . Коэффициенты ввести функцией InputBox. Функцию выбирать с помощью элементов управления OptionButton. Результат вывести в элемент управления Label.
Задание 2:
В окне Project-Project найдите имя проекта документа, дважды щелкните левой кнопкой мыши по пункту This Document.
В окне редактора появится окно для создания макроса.
Введите код макроса:
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
Исправьте ошибки и запустите макрос на исполнение. Поясните действия операторов макроса.