1. Запишите макрос для обмена местами текущего слова со следующим. Для этого:
· установите курсор на первом из двух слов;
· начните запись макроса. Назовите его «Два слова»;
· передвиньте курсор на один символ вправо;
· передвиньте курсор на слово влево (Ctrl+Left);
· Выделите слово справа (Shift+Ctrl+Right);
· Вырежьте выделенное слово в буфер обмена (Ctrl+X);
· передвиньте курсор на слово вправо (Ctrl+Right);
· через пробел вставьте слово;
· Проверьте, как работает макрос;
· посмотрите текст макроса.
2. Создайте свою панель инструментов.
3. Поместите на неё кнопку для макроса «Два слова».
4. Создайте кнопку для ввода примера заголовка. Заголовок должен добавляться либо в текущий документ, либо во вновь созданный документ. Для этого:
· поместите курсор в нужное место;
· щелкните на кнопке «Кнопка» панели инструментов «Элементы управления»;
· щелкните на документе вне созданной кнопки;
· щелкните на кнопке «Флажок» панели инструментов «Элементы управления»;
· переместите созданный флажок на нужное место;
· войдите в окно свойств флажка (с помощью правой кнопки мыши или специальной кнопки на панели инструментов);
· найдите свойство «заголовок» («Caption») и исправьте значение этого свойства на «Создать новый файл»;
· войдите в окно свойств созданной кнопки (можно просто выбрать кнопку в списке объектов в окне «Свойства»);
· исправьте заголовок кнопки на «Пример заголовка»;
· для записи текста макроса при выбранной кнопке достаточно щелкнуть по кнопке «Исходный текст» панели инструментов «Элементы управления»;
· в макросе необходимо прежде всего проверить, отмечено ли значение флажка (if CheckBox1. Value). При наборе имен свойств и методов обратите внимание, что после набора ’.’ появляется всплывающее меню свойств и методов, из которого можно выбрать нужное;
· в случае, если отмечено, создать новый документ (метод ADD) и сделать его активным (метод Activate);
· Добавьте текст «Пример заголовка». Можно воспользоваться методом InsertBefore для объекта Selection;
· установите размер шрифта – 14 пт для добавленного текста (объект Selection) и выравнивание по центру;
· вернитесь в окно Word, выйдите из режима конструктора (соответствующая кнопка) и проверьте работу макроса.
5. Создайте кнопку для сохранения всех открытых документов. Сохраняться должны либо все документы, либо только те поименованные, которые не начинаются со слова «Документ». Для этого создайте флажок. Для определения количества документов воспользуйтесь свойством «Count» массива Documents, для доступа к документу – Documents(<номер>), для того, чтобы узнать имя документа, используйте свойство «Name».
6. Создайте набор элементов управления для указания даты. Включите в него:
· текстовое поле для ввода года,
· раскрывающийся список для указания месяца,
· текстовое поле для ввода числа,
· счетчик для увеличения и уменьшения числа,
· кнопку для вставки даты в текст,
· три переключателя для задания формата даты.
При этом можно придерживаться следующей последовательности действий:
7. Создание текстового поля для ввода года:
· нажмите кнопку «Поле» на панели инструментов «Элементы управления»;
· подберите размер текстового поля.
8. Создание раскрывающегося списка:
· щелкните на документе вне созданного текстового поля и затем по кнопке «раскрывающийся список» панели инструментов;
· переместите раскрывающийся список в нужное место;
· Заполните элементы раскрывающегося списка с помощью макроса. Для этого:
ü нажмите кнопку «Редактор Visual Basic» на панели инструментов «Visual Basic» или щелкните на документе вне созданных элементов и нажмите кнопку «Исходный текст» панели инструментов «Элементы управления»;
ü в появившемся окне Visual Basic (в общей области) напишите макрос. Назовите его «Заполнение_списка». Заглавная строчка будет выглядеть: Sub Заполнение_списка();
ü в макросе создайте массив из 12 строк. (Dim…(12) As String);
ü присвойте элементам массива (от 0 до 11) значения - названия месяцев;
ü присвойте свойству List() объекта ComboBox1 значение вашего массива (имя массива с круглыми скобками);
ü перейдите в окно Word и выполните макрос;
ü выйдите из режима конструктора и проверьте работу раскрывающегося списка;
ü вернитесь в режим конструктора.
9. Создание текстового поля для ввода числа:
· щелкните на документе вне созданных элементов управления и нажмите кнопку «Поле»;
· Переместите поле в нужное место.
10. Создание счетчика.
· щелкните на документе вне созданных элементов управления и нажмите кнопку «Счетчик»;
· поместите его справа от поля для ввода числа;
· войдите в окно свойств счетчика (кнопка «Свойства») и установите минимальное значение (Min) равным 1, а максимальное (Max) – равным 31;
· на изменение счетчика назначьте макрос, изменяющий значение текстового поля. Для этого:
ü нажмите кнопку «Исходный текст» панели инструментов «Элементы управления»;
ü в тексте макроса присвойте полю Value объекта CheckBox2 значение Value объекта SpinButton1.
· на изменение текстового поля назначьте макрос, изменяющий значение счетчика. Для этого выполните предыдущий пункт, но поменяйте ролями объекты: выделите текстовое поле, нажмите кнопку и т.д.
11. Создание переключателей:
· создайте один за другим три переключателя;
· с помощью окна «Свойства» измените их заголовки:
ü формат «число месяц год» (месяц – в текстовом виде)
ü формат «чч.мм.гг» (все – двумя цифрами)
ü формат «мм/чч/гггг»
· для каждого переключателя напишите макрос, назначенный на щелчок на нем (кнопка «Исходный текст»). В этих макросах свойству Value объектов Option Button# (# - номер 1,2 или 3) присвойте значение 0;
· выйдите из режима конструктора, проверьте работу переключателей и снова войдите в режим конструктора.
12. Создайте кнопку для ввода даты в текст. Задайте для нее соответствующий заголовок.
13. Напишите макрос, действующий по щелчку на этой кнопке. В этом макросе должно проверяться значение первого, второго и третьего переключателей и выполняться один из трех вариантов вставки даты в текст. Для вставки используйте метод InsertBefore объекта Selection. При этом: число можно взять из объекта TextBox2 (свойство Value), месяц – из объекта ComboBox1 (в свойстве Value будет записано название месяца, для нахождения номера можно найти элемент массива List(), значение которого совпадает с Value), год - из объекта TextBox1 (свойство Value, для нахождения двух последних цифр года используйте функцию Right(TextBox1. Value,2)).
14. Проверьте функционирование всего комплекса элементов управления.
15. Сохраните документ.
Лабораторная работа_4
