|
Примеры написания некоторых макросов
Sub Primer1()
' Макрос переводящий шрифт строки в жирный с подчеркиванием
' Поместить курсор в начало текущей строки
Selection.HomeKey Unit:=wdLine
' Выделить текущую строку
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
' Установить для выделенной строки шрифт полужирный
Selection.Font.Bold = wdToggle
' и подчеркнутый
Selection.Font.Underline = wdUnderlineSingle
' Поместить курсор в начало текущей строки
Selection.HomeKey Unit:=wdLine
End Sub
Sub Primer2()
' Макрос, изменяющий для текущего абзаца регистр букв (строчные в прописные)
' Поместить курсор в начало текущей строки
Selection.HomeKey Unit:=wdLine
' Выделить текущий параграф
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
' Изменить регистр букв на прописные
Selection.Range.Case = wdUpperCase
' Поместить курсор в начало текущей строки
Selection.HomeKey Unit:=wdLine
End Sub
Sub Primer3()
' Макрос, заменяющий в тексте русские буквы на латинские
' Определить массивы русских букв и их латинских эквивалентов
Dim Rus(33) As String, Lat(33) As String
Rus(1) = "а"
Lat(1) = "a"
Rus(2) = "б"
Lat(2) = "b"
Rus(3) = "в"
Lat(3) = "w"
Rus(4) = "г"
Lat(4) = "g"
Rus(5) = "д"
Lat(5) = "d"
Rus(6) = "е"
Lat(6) = "e"
Rus(7) = "ж"
Lat(7) = "g"
Rus(8) = "з"
Lat(8) = "z"
Rus(9) = "и"
Lat(9) = "i"
Rus(10) = "й"
Lat(10) = "y"
' и так далее
' В цикле по всему алфавиту
For i = 1 To 33
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
' Заменить русскую букву ее латинским эквивалентом
With Selection.Find
.Text = Rus(i)
.Replacement.Text = Lat(i)
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub
Пример шаблона
Варианты заданий
Таблица 1. Индивидуальные задания к лабораторной работе №2
№
вар
| Схема
| Макрос
| Документ на бланке
|
| ... расположения помещений первого этажа первого учебного корпуса РГГМУ
| … исправляющий текст текущего слова, набираемый на латинской раскладке
| Уведомление об академической задолженности – студентам, имеющим двойки хотя бы по одному экзамену
|
| ... расположения помещений второго этажа первого учебного корпуса РГГМУ
| … исправляющий текст текущего слова, набираемый на русской раскладке
| Поздравление с отлично сданной сессией – студентам, имеющим все пятерки
|
| ... расположения помещений третьего этажа первого учебного корпуса РГГМУ
| … переводящий символы слова, стоящего перед курсором, в прописные
| Напоминание об очередном экзамене – всем студентам, имеющим зачет
|
| ... расположения помещений первого этажа второго учебного корпуса РГГМУ
| … переводящий символы текущего абзаца в прописные
| Сообщение о начислении стипендии – студентам, сдавшим экзамен без троек
|
| ... расположения помещений второго этажа второго учебного корпуса РГГМУ
| … сортирующий выделенный текст по возрастанию терминов, записанных курсивом
| Выдачу направления на первый экзамен – студентам, имеющим двойку или пропуск первого экзамена
|
| ... расположения помещений третьего этажа второго учебного корпуса РГГМУ
| … сортирующий выделенный текст по убыванию терминов, записанных жирным шрифтом
| Выдачу направления на второй экзамен – студентам, имеющим двойку за второй экзамена и сдавшим первый экзамен
|
| ... размещения компьютеров в учебном классе
| … переводящий текст, записанный русскими буквами на их латинские аналоги (Б – B, Ф – F, и т.д)
| Выдачу направления на третий экзамен – студентам, имеющим двойку за третий экзамен и сдавшим хотя бы один экзамен
|
| ... размещения мебели в Вашей рабочей комнате
| … переводящий текст, записанный латинскими буквами на их русские аналоги (B - Б, F - F, и т.д). Замечание: начните с букв русского языка, которые изображаются в латинице двумя и более символами, напр. sch – ш,
| Предупреждение об отчислении – студентам, имеющим более двух двоек
|
| ... электропроводки в Вашей квартире
| … преобразующий текст текущего абзаца в таблицу из трех столбцов, причем в каждую клетку таблицы попадает одно слово.
| Приглашение зайти в деканат – студентам, не сдавшим курсовую работу
|
| ... дороги от метро к первому корпусу РГГМУ
| … преобразующий текст текущего абзаца в таблицу из пяти столбцов, причем в каждую клетку таблицы попадает одно слово
| Поздравление с Днем защитника Отечества – всем юношам
|
| ... дороги от метро ко второму корпусу РГГМУ
| … исправляющий текст текущего слова, набираемый на латинской раскладке
| Поздравление с 8 марта – всем девушкам
|
| ... дороги от Вашего дома до ближайшей станции метро
| … исправляющий текст текущего слова, набираемый на русской раскладке
| Предупреждение о наличии задолженности по предмету
|
| … план помещений кафедры МИТ
| … переводящий символы слова, стоящего перед курсором, в прописные
| Предупреждение о наличии задолженности по двум предметам
|
| … план столовой I корпуса
| … переводящий символы текущего абзаца в прописные
| Напоминание о сдаче паспортных данных
|
| … план столовой II корпуса
| … сортирующий выделенный текст по возрастанию терминов, записанных курсивом
| Приглашение на Олимпиаду по информатике
|
| … план Вашего рабочего кабинета
| … сортирующий выделенный текст по убыванию терминов, записанных жирным шрифтом
| Поздравление с победой в Олимпиаде по информатике
| Лабораторная работа № 3
Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:
|