Интеркативные элементы в офисных приложениях

Sentences(11) переход к одиннадцатому предложению

После перехода к определенной части документа можно использовать объект Font, позволяющий изменять свойства шрифта. Этот объект содержит методы, находящиеся  в панели меню “Формат | Шрифт”.

Объект Range является базовым в операции редактирования. Его можно рассматривать как непрерывный фрагмент текста (никак не связанный с выделенной областью), который не зависит от положения курсора. Range включает в себя такие объекты, как Words (слова) или Sentences (предложения); при обращении к ним сам объект Range указывать не нужно, тогда как для Sections (разделы) или Paragraphs (абзацы) это делать необходимо.

Объект Range поддерживает основные методы, которыми пользуются при форматировании текста (такие, как  “Копировать”, “Вставить”, “Вырезать”, команды меню “Формат”).

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

1	ASC (X$)	Переводит двоичный код символа  в десятичное число
2	LEN (X$)	Находит длину символьной переменной, включая конечные пробелы
3	MID$ (X$, Y,Z)	Выдает последовательность Z символов из строки X$  с позиции Y
4	STR$ (X)	Преобразует значение X из числовой формы в символьную
5	CHR$ (X)	Преобразует код в символ
6	LEFT$(A$,N)	Выделяет N левых символов строки A$
7	RIGHT$ (X$,N)	Выделяет N первых символов строки  X$

 

 

 

Пример:
Primer.Sentences(2).Font.ColorIndex=wdGreen	В документе Primer во 2-м предложении устанавливает зеленый цвет шрифта
Primer.Sentences(2).Font.Size=16	В документе Primer во 2-м предложении устанавливает шрифт размером 16 пунктов
Primer.Sentences(2).Font.Underline=wdUnderlineDouble	В документе Primer во 2-м предложении устанавливает шрифт с двойным подчеркиванием
Primer.Sentences(2).Font.Name=”Arial”	В документе Primer во 2-м предложении устанавливается шрифт ”Arial”
Пример:
Primer.Range(1,15).Bold=True	Символы с 1-го по 15-й выделяется жирным шрифтом
Primer.Paragraphs(5).Range.InsertAfter «ПРИВЕТ»	В документ Primer после 5-го абзаца вставляется текст «ПРИВЕТ»
Primer.Sentences(5).InsertAfter «ПРИВЕТ»	Текст «ПРИВЕТ» вставляется  после 5-го предложения
Primer.Words(5).InsertAfter «ПРИВЕТ»	Текст «ПРИВЕТ» вставляется  после 5-го слова

 

Макросы.

Для знакомства с примерами  кодов целесообразно воспользоваться  приемом, когда вы форматируете часть  документа в режиме записи макроса, а потом анализируете код макроса и редактируете его.

Для записи макроса необходимо:

1. Выбрать в меню  “Сервис | Макрос | Начать запись”. 

2. Ввести в окне “Запись макроса” в поле “Имя макроса” имя нового макроса.

3. Выбрать в списке  “Макрос доступен для” шаблон  или документ, в котором будет  храниться макрос.

4. Ввести описание  макроса в поле “Описание”.

5. Ввести в поле  “Назначить макрос” кнопку “Панели” (для назначения макросу кнопки панели инструментов или команды меню); кнопку “Клавишам” (для назначения макросу сочетания клавиш); если макросу назначение не требуется, нажмите кнопку “OK”. Если в процессе работы вы часто используете какой-либо макрос, то целесообразно назначить ему кнопку или сочетание клавиш.

6. Выполнить действия, которые нужно включить в макрос.

Следует помнить, что  для записи действий надо использовать клавиатуру, поскольку действия, произведенные  с помощью мыши, не записываются.

7. Нажать после записи  макроса кнопку “Остановить запись”. 

Существует одна особенность  при сохранении готового документа Word, в котором находятся макросы  и процедуры. Если вы вспомните работу с макросами в Excel, то при открытии готового документа там всегда задается вопрос: “Отключать макросы при открытии или нет?”. И если вы укажете, что макросы надо отключить, то подготовленные кнопки работать не будут.

В редакторе Word, в отличие  от Excel, установлена сильная защита от макросов (макросы рассматриваются как вирусы), и при повторном открытии одного и того же документа, в котором все программы и макросы работали, запроса на включение или отключение макросов не будет, и работать также ничего не будет. Поэтому при сохранении документа в Word следует выполнить следующую последовательность действий:

1. Выбрать “Файл | Сохранить  как | Сервис”. Появится диалоговое  окно “Сохранение документа”.

2. Выбрать в меню  “Сервис” пункт “Параметры безопасности”.  Появится диалоговое окно “Безопасность”.

3. Щелкнуть по кнопке  “Защита от макросов”, чтобы  изменить уровень безопасности  файла (по умолчанию установлен  Высокий уровень безопасности, поэтому  при повторном открытии файла  ваши программы выполняться не будут).

4. Выбрать в появившемся  диалоговом окне на закладке  “Уровень безопасности” Средний  или Низкий уровень безопасности. При выборе Среднего уровня безопасности при открытии документа будет появляться запрос на включение или отключение макросов. Для того чтобы программы и макросы в документе работали, надо выбрать “Не отключать макросы”.

“Не отключать макросы”.

При выборе Низкого уровня безопасности диалоговое окно появляться не будет, и макросы будут подключаться автоматически.

5. Перейти на закладку “Надежные источники” и включить флажок “Доверять доступ к Visual Basic Project”.

 

6. Сохранить документ.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

7. VBA в приложении Power Point. Создание презентации.

Применение пользовательских форм.

В приложении Power Point с  помощью VBA можно автоматизировать множество задач. Рассмотрим применение пользовательских форм для проектирования тестов и различных задач в PowerPoint. Кроме того, имеется возможность не только ввести информацию, но и использовать элементы управления. Для этого требуется следовать двум простым правилам:

1. Макросы необходимо  назначить кнопкам панелей инструментов.

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

 

“Умеешь ли ты считать”

Создадим  презентацию, с помощью которой можно проверить и оценить навыки устного счета.

Порядок работы:

1. Открыть Power Point и  создать титульный слайд; оформить  на нем пять кнопок:

• Посредством Панели элементов:

Сложение и вычитание от 1 до 20

Сложение и вычитание  от 1 до 200

Таблица умножения

Посчитай!!!

 

•  Через панель рисования: 

2. Записать программы  вызова пользовательских форм (через контекстное меню “Исходный текст”, выделив тематические кнопки).

Тексты программ кнопок:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Private Sub CommandButton2_Click()

UserForm4.Show

End Sub

Private Sub CommandButton3_Click()

UserForm3.Show

End Sub

Private Sub CommandButton4_Click()

UserForm2.Show

End Sub

3. Настроить кнопку  “Выход” на завершение показа.

4. Спроектировать в  редакторе Visual Basic пользовательскую  форму UserForm1 “Сложение и вычитание  от 1 до 10”.

При проектировании формы  Свойство Caption для меток Label сделать пустым; отформатировать все элементы.

Далее следует описать  событийные процедуры при нажатии  на кнопки.

Объявление глобальных переменных

Public a As Integer

Public b As Integer

Public R As Integer

Public v As Integer

Public n As Integer

Public f As Integer

Программа для кнопки “Далее”

Private Sub CommandButton1_Click()

' a — переменная для первого числа

' b — переменная для второго числа

' R — переменная для получения результата

' v, n — переменные для подсчета верных

' и неверных ответов

' f — переменная оператора выбора

f = f + 1

Select Case f

Case 1

' Присваиваем значения переменным

' a и b через RND в интервале (0;9)

b = Int(10 * Rnd())

a = Int(10 * Rnd())

' Формируем в надписях – или + и =

Label3.Caption = "-"

Label5.Caption = "="

Определяем большее  из чисел, и это — первое число, меньшее — второе число:

If a > b Then

Label2.Caption = a

Label4.Caption = b

Else

Label2.Caption = b

Label4.Caption = a

End If

' Вычисляем результат

R = Abs(a - b)

Case 2

Сравниваем результат и вводимый ответ, подсчитываем количество

If Val(R) = Val(TextBox1) Then

v = v + 1

Label12.Caption = "Верно"

Else

n = n + 1

Label12.Caption = "Неверно"

End If

Case 3

CLS

Label12.Caption = ""

b = Int(10 * Rnd())

a = Int(10 * Rnd())

Label2.Caption = a

Label4.Caption = b

Label3.Caption = "+"

Label5.Caption = "="

R = a + b

Написать аналогичные  программы для следующих 9 примеров.

' Проверка результата в примере 10

Case 20

If Val(R) = Val(TextBox1) Then

v = v + 1

Label12.Caption = "Верно"

Else

n = n + 1

Label12.Caption = "Неверно"

End If

' Вводим в надписи количество верных и неверных ответов, даем напутствия

Label7.Caption = "Ваш результат"

Label8.Caption = "Верно"

Label10.Caption = Str(v)

Label9.Caption = "Неверно"

Label11.Caption = Str(n)

If v = 10 Then Label12.Caption =

" Молодец!!!" Else Label12.Caption =

"Еще поработай над счетом!!!"

Case 21

UserForm1.Hide

End Select

End Sub

Программа кнопки “Снова”

Private Sub CommandButton2_Click()

Набираем программный  код для кнопки снова (для этого  щелкнем по кнопке)

CLS

'Обнуляем переменные, подсчитывающие

результат

n = 0

v = 0

'В надписях стираем информацию

Label10.Caption = ""

Label11.Caption = ""

Label2.Caption = ""

Label4.Caption = ""

Label3.Caption = ""

Label5.Caption = ""

Label7.Caption = ""

Label8.Caption = ""

Label9.Caption = ""

f = 0

End Sub

Sub CLS()

TextBox1.Text = ""

End Sub

В рабочем состоянии  форма выглядит так:

5. Спроектировать пользовательские  формы UserForm2, UserForm3, UserForm4.

6. Записать программы  в кнопках.

Вид формы UserForm2 “Сложение  и вычитание от 1 до 200” может  быть таким:

Примерный вид формы UserForm3 “Таблица умножения”:

 

 

 

А вот такой может  быть форма UserForm4 “Посчитай”:

7. После этого проверяется работоспособность проекта и сохраняется работа.

 

 

 

 

 

 

 

 

 

 

 

 

 

8. Вывод.

В результате многолетнего труда Microsoft позиционирует свой пакет MSOffice не просто как набор прикладных программ, а как комплексную платформу для создания бизнес приложений, решающих широкий круг специализированных задач пользователей. Именно этим объясняется появлением в его составе специального выпуска для разработчиков приложений — Developer Edition.

Одновременно, VBA активно  продвигает в качестве отраслевого  стандарта для управления программируемыми приложениями, объявив о возможности его лицензирования. Сегодня уже более ста ведущих мировых фирм-разработчиков прикладных программ приобрели лицензии на него и включают VBA в состав своих программных продуктов.