В. Программирование макроса
Date: 2015-10-07; view: 392.
· Ввести код, данный ниже (пояснения даны под комментариями),
· подвести курсор к слову текста в приложении 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 If WendEnd IfEnd SubНиже приведeн список некоторых функций.
· CmpBookmarks(Закладка1$, Закладка2$) сравнивает положение двух закладок в документе. Возвращает значение, определяющее взаимное расположение сравниваемых закладок ().
·
| Таблица 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, если действие не может быть выполнено.
| <== previous lecture | | | next lecture ==> |
| Программирование макроса | | | Сохранение макросов |