Ход работы.

1. При необходимости нажмите сочетание клавиш [Ctrl]+[R] для отображения окна проекта.

2. Откройте папку Modules для проекта Normal и дважды щелкните на элементе NewMacros для открытия соответствующего окна кода.

3. В процедуре Заголово_для_письма выделите и удалите операторы If и End If, добавлен­ные в ходе выполнения предыдущего задания. Кроме того, удалите пустые строки и отступы, использованные для обозначения инструкций, входящих в условную структуру, в результате код должен принять вид, который он имел непосредственно после записи макроса.

4. Выделите весь код от начала инструкции Selection.Font.Size до последней из инструкций Selection.

5. Первые две инструкции макроса можно оставить на прежнем месте, поскольку они управля­ют форматированием всех строк, которые могут быть вставлены в документ.

6. Нажмите сочетание клавиш [Ctrl]+[X] для удаления выделенных строк с помеще­нием их в буфер обмена.

7. Введите инструкцию frmLetterhead.Show, как показано ниже:

Sub Letterhead()

‘Letterhead Макрос

‘ Включение имени, адреса, номеров телефона и факса и адреса ‘электронной почты в начало создаваемого документа Selection.ParagraphFormat.Alignment=wdAlignParagraphCenter

Selection.Font.Name="Arial"

frmLetterhead.Show

End Sub

 В этой инструкции использован метод Show, обеспечивающий загрузку и ото­бражение окна диалога Заголовок письма и передачу управления программе. Обратите внимание: поскольку код условной инструкции был вырезан, мак­рос теперь содержит всего три инструкции — две для выполнения операций форматирования, а третью для отображения формы Заголовок письма в виде окна диалога.

8. Дважды щелкните на форме Заголовок письма в окне проекта для отображения формы. Когда форма будет отображена на экране, дважды щелкните на кноп­ке Создать заголовок для отображения связанного с этой кнопкой кода.

 В редакторе Visual Basic двойной щелчок на элементе управления приводит к открытию в окне кода процедуры обработки события по умолчанию для этого элемента. Для кнопки событием по умолчанию является щелчок (Click), поэтому в окне кода будут отображены первая и по­следняя строки (инструкцииSub End Sub) процедуры cmdHeading_Click.

9. Поместите курсор между строками Sub и End Sub и нажмите сочетание клавиш [Ctrl]+[V] для вставки кода из буфера обмена.

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

Private Sub cmbHeading_Click()

I

‘Вставка имени,

если установлен ‘соответствующий флажок

f chkName Then

Selection.Font.Size = 16

Selection.TypeText.Text:= «Сергей Петров»

Selection.TypeParagraph Selection.TypeParagraph

End If

I ‘Вставка адреса, если ‘установлен ‘соответствующий флажок f chkAddress Then

Selection.Font.Size = 12

Selection.TypeText Text:="650070 Кемерово"

Selection.TypeParagraph

Selection.TypeText Text:="пр. Молодёжный, д. №7, кв. №9"

Selection.TypeParagraph

Selection.TypeParagraph

End If

I

‘Вставка номера телефона и ‘факса, если установлен ‘соответствующий флажок

f chkPhones Then

Selection.TypeText Text:="тел:(3842) 31-12-34”

Selection.TypeParagraph

Selection.TypeText Text:=”факс (3842) 31-56-78”