Макросы в WORD.

Sub Autoclose()

' Выделяем всё. Аналогично нажатию СTRL + A

Selection.WholeStory

'Обновляем всё, что выделено

Selection.Fields.Update

End Sub

Имя Autoclose()позволит макросу выполняться автоматически при закрытии документа.

‘ Пример 2 Иллюстрация «Если».Запрос о необходимости обновления полей в документе

Sub primer3()

'

' primer3 Макрос

' Макрос создан 03.12.05

' задали переменную а (целого типа)

Dim a As Integer

a = MsgBox("Обновить поля ?", vbOKCancel, "это мое окно сообщения")

'При нажатии на Ok функция возвратит 1 , в другом случае 0.

'Если а=1, то выделяем все и обновляем поля

If a = 1 Then

Selection.WholeStory

Selection.Fields.Update

End If

End Sub

‘ Пример 3 Иллюстрация использования окон ввода (диалога с пользователем)

Sub запрос()

'

' запрос Макрос

' Макрос создан 03.12.08

'

'

Dim a As Double

a = (InputBox("Введите курс доллара :", "Курс"))

' вызываем InputBox для получения курса доллара

' и присваеваем его переменной a

If a > 40 Then

MsgBox ("Не покупаем!!!")

Else MsgBox ("УРА, покупаем!!!")

End If

End Sub

‘ Пример 4 Создание простого диалогового окна 1

Задание:

• Ввести число
• По нажатию кнопки прибавить к нему число 10

Действия пользователя:

• создаем форму
• «ставим» на нее элементы: 2 Label, 2 TextBox, 1 CommandBotton
• настраиваем работу кнопки CommandBotton (2 щелчка на ней → текст программы)

Private Sub CommandButton1_Click()

TextBox2 = TextBox1 + 10

End Sub

§ Создаем пустой макрос:

Load UserForm1

UserForm1.Show

Теперь можно запускать этот макрос из любого документа.

‘ Пример 5 Создание простого диалогового окна 2

Задание:

• Ввести число
• По нажатию кнопки, в зависимости от состояния флажка прибавить к нему число 10 или оставить данное число без изменений

Добавим на нашу форму флажок (Checkbox), он принимает всего 2 значения True/False, т.е:

• включен -True
• выключен -False

Можно это учесть в программе, изменив соответствующую строку на

If CheckBox1 = True Then

TextBox2 = TextBox1 + 10

Else

TextBox2 = TextBox1

End If