В. Программирование макроса

· Ввести код, данный ниже (пояснения даны под комментариями),

· подвести курсор к слову текста в приложении 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, если действие не может быть выполнено.