Методические рекомендации

Федеральное агентство по образованию

федеральное государственное образовательное учреждение

Тольяттинский политехнический колледж

МЕТОДИЧЕСКИЕ РЕКОМЕНДАЦИИ

К практической работе №10

по дисциплине «Пакеты прикладных программ»

2008

“Утверждаю”

Заместитель директора по

учебной работе ТПК _________________

“__”_______________ 200__ г.

Одобрено ПЦК по

специальности «Информатика и ВТ»

Зав. ПЦК_________

Методические указания составлены в соответствии с рабочей программой по дисциплине «Пакеты прикладных программ» Специальности 230105 «Программное обеспечение вычислительной техники и АС», утвержденной зам. Директора по учебной работе

Составитель: .
Преподаватель специальных и общеобразовательных дисциплин Тольяттинского политехнического колледжа.

Рецензент:

Методические указания к выполнению практической работы

VBA и WORD. Создания шаблона документа при помощи форм

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

Создайте шаблон документа, в котором создайте незаполненную таблицу, состоящую из трех строк и одного столбца. Сконструируйте форму, на которой расположите рамку, два переключателя, поле, список и кнопку (Рис. 1) Используя окно Properties, установите у элементов управления формы значения свойств, как показано в табл. 1

Таблица 1. Значения свойств, установленных в окне Properties

Элемент управления	Свойство	Значение
Рамка	Caption	Форма обращения
Переключатель_1	Name	optSir
Caption	Господин
Переключатель_2	Name	optMiss
Caption	Госпожа
Поле	Name	txtMessage
Список_1	Name	txtAddress
Список_2	Name	txtSignature
Кнопка	Name	OK
Caption	cmdOK

В модуле формы наберите следующий код:

Private Sub cmdOk_Click()

If OptSir. Value Then

ActiveDocument. Tables(1).Cell(1, 1).Range. Text = "Уважаемый господин, "& txtAddress. Text

Else

ActiveDocument. Tables(1).Cell(1, 1).Range. Text = "Уважаемая госпожа, "& txtAddress. Text

End If

ActiveDocument. Tables(1).Cell(2, 1).Range. Text = txtMessage. Text

ActiveDocument. Tables(1).Cell(3, 1).Range. Text=”С уважением, ” & txtSignature. Text

End Sub

Private Sub UserForm_Initialize()

txtAddress. Clear

txtAddress. AddItem "Трифонов"

txtAddress. AddItem "Соколов"

txtAddress. AddItem "Орлова"

txtAddress. ListIndex = 2

txtSignature. Clear

txtSignature. AddItem "Иванов"

txtSignature. AddItem "Петров"

txtSignature. AddItem "Сидорова"

txtSignature. ListIndex = 0

End Sub

Запустите форму при помощи кнопки В поле текст сообщения введите, например:

сообщаем вам, что сумма вашего платежа в этом месяце составляет 1500 рублей

Проект готов

Практическое задание

Создать формы заполнения бланков следующих документов: Приказ об увольнении и Приказ о приеме на работу (см. образец)