Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
В. Программирование макроса
|
|
· Ввести код, данный ниже (пояснения даны под комментариями),
· подвести курсор к слову текста в приложении Word, написанному латинскими буквами,
· использовать команду меню Сервис 
Макрос Макросы маркировать в cписке требуемый макрос Выполнить.
Описание некоторых используемых функций дано после кода макроса.
Sub macrosm() ' программирование макросаDim sw$ ' описание проверяемого слова текстаDim fc$ ' описание первой буквы проверяемого слова' текст: подчеркнуть слова из латинских букв" r = MsgBox(" lateinische Woerter" + Chr$(13) + " unterstreichen", 1) If r Then' сравнение закладок While WordBasic.CmpBookmarks(" \StartOfSel", " \EndOfDoc") < > 0 WordBasic.SelectCurWord ' выделить текущее слово' возвратить строку - выделенный фрагмент текстаsw$ = WordBasic.Selection$()fc$ = WordBasic.Mid$(sw$, 2, 1) ' возвратить символIf fc$ > = " A" And fc$ < = " z" Then ' подчеркнуть, если буквы лежат в заданном диапазонеWordBasic.Underline (-1) WordBasic.WordRight ' продвинуться дальшеEnd IfWendEnd IfEnd SubНиже приведeн список некоторых функций.
· CmpBookmarks(Закладка1$, Закладка2$) сравнивает положение двух закладок в документе. Возвращает значение, определяющее взаимное расположение сравниваемых закладок (табл. 5.1).
| Таблица 5.1. Значения, определяющие взаимное расположение закладок | |
| Значение | Положение закладок |
| Положения совпадают | |
| Закладка 1 ниже закладки 2 | |
| Закладка 1 выше закладки 2 | |
| Закладка 1 ниже и пересекается с закладкой 2 | |
| Закладка 1 выше и пересекается с закладкой 2 | |
| Закладка 1 включает закладку 2 | |
| Закладка 2 включает закладку 1 | |
| Закладки начинаются в одном месте, но закладка 1 длиннее закладки 2 | |
| Закладки начинаются в одном месте, но закладка 2 длиннее закладки 1 | |
| Закладки заканчиваются в одном месте, но закладка 1 длиннее закладки 2 | |
| Закладки заканчиваются в одном месте, но закладка 2 длиннее закладки 1 | |
| Закладка 1 ниже и смежная с закладкой 2 | |
| Закладка 1 выше и смежная с закладкой 2 | |
| Закладки не существуют |
Имена некоторых закладок - параметры функции CmpBookmarks приведены ниже:
\sel - текущее выделение или точка вставки,
\EndOfDoc - конец документа,
\Doc - целый документ, кроме символа конца документа.
· Mid$(Строка$, Начало[, Количество]) возвращает подстроку (часть строки) строки-аргумента,
· SelectCurWord выделяет текущее слово,
· Selection$() возвращает строку - выделенный фрагмент текста. Если фрагмент не выделен, то возвращает символ, следующий за курсором,
· UnderLine, Underline() для выделенного фрагмента устанавливает или отменяет оформление подчeркиванием:
o 0 - ни один из символов не оформлен подчeркиванием,
o 1 - все символы фрагмента оформлены подчeркиванием,
o -1 - часть символов оформлена подчeркиванием,
· WordLeft [НаСколько], WordLeft(НаСколько) перемещает курсор влево на указанное количество слов. Если параметр " НаСколько" не задан, то выполняется перемещение на одно слово. WordLeft() возвращает 0, если курсор не может быть перемещeн и -1, если действие не может быть выполнено,
· WordRight(НаСколько), WordRight[НаСколько] перемещает курсор вправо на указанное количество слов. Если параметр " НаСколько" не задан, то выполняется перемещение на одно слово. WordRight(), возвращает 0, если курсор не может быть перемещeн и -1, если действие не может быть выполнено.