Язык WordBasic - практический подход


Оператор ToolsProtectDocument - часть 3


EndOfLine 1
l$ = Selection$()
EditCut
If l$ > 0 Then UnIndent
End Sub
 
Она вставляет в текст строку с датой последнего внесения изменения в запись (last change, lch), затем убирается предыдущая запись и уменьшается отступ. Конечно, этот макрос можно написать короче и более “жестко”: сразу удалить строку и вставить новую дату, но мне мешает программистский менталитет (появляется возможность ошибочно удалить не ту строку и явно нужно проверять та ли строка удаляется).
 
Цветовое оформление текста
 
Оператор CharColor устанавливает цвет символов выделенного фрагмента текста соответственно заданному аргументу. Функция CharColor() возвращает код цвета выделенного текста.
 
Синтаксис:
 
CharColor <цвет>
где цвет
– числовой код для одного из следующих цветов, поддерживаемых в Word 2.0 и 6.0 для Windows:
 










































































Код цвета

Название цвета

0

Auto (цвет, заданный установкой на Control Panel)

1

Black

2

Blue

3

Cyan

4

Green

5

Magenta

6

Red

7

Yellow

8

White

9

Dark Blue

10

Dark Cyan

11

Dark Green

12

Dark Magenta

13

Dark Red

14

Dark Yellow

15

Dark Gray

16

Light Gray

 
Функция CharColor() возвращает или те же самые номера цветов, которые установлены оператором CharColor, или значение -1, если весь выделенный фрагмент текста не одного цвета. Ниже дан пример использования этой функции:
 
Sub MAIN
n = CharColor()
If n = - 1 Then Print "В выделенном фрагменте используется более чем один цвет "
End Sub
 
Следующая макрокоманда вставляет слово "Color", отформатированное для каждого из 16 возможных цветов
 
Sub MAIN
For count = 1 To 16
CharColor count
Insert "Color"
WordLeft 1, 1
CharRight
InsertPara
Next
End Sub
 
В Word 7.0 появился оператор HighlightColor цвет, позволяющий устанавливать цвет
для выделенного текста и функция HighlightColor(), возвращающая номер используемого цвета, либо признак (-1 – текст выделен разными цветами, 0 – нет выделения цветом).


Начало  Назад  Вперед