Операторы и функции настройки
В эту группу входят операторы для работы с меню, панелями инструментов и функции, возвращающие значение настроек.
Оператор 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
Выводит на экран символы отформатированные в режиме структуры документа или, если их форматирование уже показано, скрывает их. Если активный документ не в режиме просмотра структуры или главного документа, происходит ошибка.
