Занятие 8. Макропоследовательности. Запись и применение. (2 учебных часа, факультативное задание)
Цель занятия. Получение общего представления о языке Visual Basic. Изучение порядка записи макропоследовательностей. Использование макропоследовательности для создания предметного указателя.
Используемые материалы:
Файл У_Эко.doc, содержащий отрывки из публичной лекции Умберто Эко на экономическом факультете МГУ 20 мая 1998 (формат MS WORD)
Файл Ян.doc, содержащий перевод доклада Жана Боса, сотрудника Национальной библиотеки Нидерландов «Проекты сохранения культурного наследия в Нидерландах» на ежегодном собрании членов Консорциума европейских научных библиотек в 2003 (формат MS WORD)
Задание 1. Войти в меню «параметры Word». Использовать подменю «Основные параметры». Установить флажок в окне «Показывать вкладу «Разработчик» на ленте».
Открыть вкладку «Разработчик»
Рис.1 Вид вкладки «Разработчик»
Загрузить файл У_Эко.doc
Запустить команду «Запись макроса». Присвоить имя макропоследовательности «проба_а» Выполнить в режиме записи замену элементов форматирования всех арабских цифр в тексте следующим образом:
Рис.2 Замена элементов форматирования (запись макропоследовательности)
После осуществления замены остановить запись.
Загрузить файл Ян.doc. На вкладке «Разработчик» раскрыть меню «Макросы», установить курсор на имени проба_а и запустить команду выполнить. Убедиться, что макрос работает.
Снова перейти в файл У_Эко.doc.
Раскрыть меню «Макрос», установить курсор на имени «проба_а» и запустить команду «Изменить»
Результат:
Sub проба_а()
'
' проба_а Макрос
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 14
.Bold = True
.Color = wdColorGreen
End With
With Selection.Find
.Text = "^#"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
В режиме редактирования макроса сделать следующие изменения:
Строку .Text = "^#" изменить на Text = "Гипертекст"
Строку .Color = wdColorGreen на .Color = wdColorRed
Строку .MatchWholeWord = False на .MatchWholeWord = True
Перейдите в файл У_Эко (меню file, команда close and return to Microsoft Word) см. Рис. 3
Рис 3. Переход из редактируемой макропоследовательности в активный файл MS WORD.
Запустить макрос проба_а.
Записать, какие изменилось действие макроса после внесения изменений в текст.
Задание 2. Составление предметного указателя для текста У.Эко - От Интернета к Гуттенбергу: текст и гипертекст
В указатель включить двадцать элементов
Алгоритм
Бумага
Гипертекст
Гиперцепция
Грамотность
Знание
Индукция
Информация
История
Книга
Коммуникация
Компьютер
Память
Письменность
Письмо
Техника
Университет
Чтение
Экран
Энциклопедия
Записать макрос «проба_в». В него включить следующие действия:
Поиск первого вхождения элемента указателя,
Пометка элемента указателя,
переход в конец строки.
При поиске первого вхождения запрос формулировать с учетом грамматических форм, указывать направление «Вперед» см. рис 4. Поиск начинать с первой позиции первойстроки текста.
Рис.4 Вкладка «Поиск» при поиске первого вхождения элемента указателя «Книга»
Элемент указателя должен быть поставлен в словарную форму (именительный падеж, единственное число) (см. рис.5).
Рис.5 Помета элемента указателя – понятие «Книга»
Пример записанной макропоследовательности
Sub проба_б()
'
' проба_б Макрос
'
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "книг"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
ActiveWindow.ActivePane.View.ShowAll = True
ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, Entry:="книга", _
EntryAutoText:="книга", CrossReference:="", CrossReferenceAutoText:="", _
BookmarkName:="", Bold:=False, Italic:=False
Selection.EndKey Unit:=wdLine
End Sub
Назначение запускающего сочетания клавиш. После записи макропоследовательности назначить запускающее сочетание клавиш.
Порядок – кнопка «Офис», параметры Word, настройка, выпадающее меню «Часто используемые команды», макросы, кнопка «Настройка», макросы
Подобрать новое сочетание клавиш
Рис. 6 Назначение сочетания клавиш
При одновременном нажатии клавиш в окне «Новое сочетание клавиш» появится набранная комбинация. Рекомендуется подобрать такое сочетание, которое не имеет текущего значения (см. рис.6).
Пометка элементов указателя
Открыть макрос проба_б
В строку .Text = " ", вставить элемент для поиска, например, .Text = "книг"
В строках
ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, Entry:="книга", _
EntryAutoText:="книга", CrossReference:="", CrossReferenceAutoText:="", _
Установить элемент указателя в словарной форме.
Перейти в файл У_Эко.дос, установить курсор в первую позицию первой строки запустить макрос посредством назначенного набора клавиш. Повторять это действие, пока все вхождения данного элемента не будут помечены.
Раскрыть текст макроса, и в соответствующих строках, заменить поисковый термин и элемент указателя на последующие элементы. Выполнить описанный выше набор операций.
После завершения пометки всех элементов осуществить генерацию предметного указателя.
Контрольные вопросы
Дать определения понятия макропоследовательность.
Что означают в языке Visual Basic выражения true – false?
Какие изменения следует внести в текст макроса, чтобы осуществить контекстную замену знаков?
Как осуществить назначение сочетания клавиш для запуска макропоследовательности?
Литература.
Симанович С.В. Практический справочник WORD 2007. – СПб: Питер, 2008. ‑ С. 465 - 473