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

       

Операторы и функции настройки



В эту группу входят операторы для работы с меню, панелями инструментов и функции, возвращающие значение настроек.
 
Оператор ListCommands
 
Эта команда, не имеющая атрибутов, создаёт новый документ и строит таблицу, в которой перечисляются все встроенные команды Word 6.0/7.0. Эта таблица будет также содержать все быстрые клавиши и назначения меню, присвоенные этим командам.
 
 
Функция CountToolbars
 
Возвращает число инструментальных панелей, перечисленных в диалоговом окне Toolbars (меню View). Обратите внимание, что не во всех обстоятельствах перечислены все инструментальные панели. Например, инструментальная панель редактирования макрокоманд появляется в диалоговом окне Toolbars только когда окно редактирования макрокоманд открыто.
 
Синтаксис:


 
CountToolbars([Контекст])
 
где аргумент Контекст задаёт, о каких инструментальных панелях идёт речь:
0 – активные панели инструментов, базирующиеся на шаблоне Normal;
1 или опущен – панели инструментов, доступные в текущий момент в зависимости от настроек (если есть) или других глобальных шаблонов.
 
Функция CountToolbarButtons
 
Синтаксис: CountToolbarButtons(Toolbar$ [,Контекст])
 
Возвращает число кнопок на указанной инструментальной панели. При этом пробелы и окна со списками считаются за кнопки.
 
Аргументы:
Имя_панели$       имя панели, в том виде как оно появляется в диалоговом окне Toolbars (меню View);
Контекст           значения, как и у функции CountToolbars.
 
Функция ToolbarName$
 
Синтаксис:
 
ToolbarName$(Toolbar [, Context])
 
Пример.
 
Получим список имён инструментальных панелей с числом кнопок на каждой из них. Так как число кнопок известно, синтаксис может быть изменён, чтобы узнать число кнопок на конкретной панели.
 
Sub MAIN
For i = 1 To CountToolbars(0)
имя$ = ToolbarName$(i)
кнопок = CountToolbarButtons(имя$)
Insert имя$ + "," + Str$(кнопок) + Chr$(13)

Next i
End Sub
 
Выполнение этой макрокоманды на моей машине дало следующий результат:
 
Standard, 29
Formatting, 22
Borders, 11
Database, 14
Drawing, 30
Forms, 11
Macro, 17
Microsoft, 8
Word for Windows 2.0, 29
Tip Wizard, 3
Translate, 9
 
Оператор MenuMode
 
Активирует линейку меню. MenuMode соответствует нажатию клавиши ALT или F10 на клавиатуре.
 
Синтаксис:
 
MenuMode
 
Пример.
 
Функция CountMenus
 
Синтаксис:
 
CountMenus(Type [, Context])
 
Аргументы:
Type – тип меню для подсчёта:
0 – меню на линейке меню, когда документ открыт;
1 – меню на линейке меню, когда нет открытых документов;
2 – краткие меню.
Context – задаёт, какие меню подсчитываются:
0 – меню, которые доступны, когда документ базируется на шаблоне Normal.dot;
1 или опущено – меню, которые доступны в текущий момент (их число зависит от установок при настройке, если они были сделаны, от активного глобального шаблона и от шаблона Normal.dot.
 
Пример:
 
Определить число меню, доступных пользователю, когда активен документ, базирующийся на шаблоне NORMAL.DOT.
 
Sub MAIN
NumMenus = CountMenus(0, 0)
MsgBox "Документ имеет " + Str$(NumMenus) + " доступных меню."
End Sub
 
Оператор OutlineShowFormat
 
Выводит на экран символы отформатированные в режиме структуры документа или, если их форматирование уже показано, скрывает их. Если активный документ не в режиме просмотра структуры или главного документа, происходит ошибка.
 

Содержание раздела