Методы объекта Application
Казалось бы, объекты Application не должны иметь много методов, а среди имеющихся методов большая часть должна быть общей для приложений разных типов. Ведь специфика приложений должна проявляться на более низком уровне иерархии, когда начинается работа, например, с документами Word или рабочими книгами Excel. Но это не так. Реально методов много, а общих из них - мало. Более того, даже методы Activate, Run, Quit, имеющиеся у всех приложений, совпадающие по именам и предназначенные для решения стандартных задач (активизации приложения, запуска макроса, выхода из приложения), организованы по-разному.
Я не буду проводить подробного разбора методов этого объекта, а ограничусь лишь кратким обзором, указав для большинства методов их назначение и аргументы.
| Sub Activate() | Нет | Активизирует приложение |
| Sub AddAddress(TagID() As String, Value() As String) | Первый массив задает имена компонент адреса, второй их значения. Имена компонент фиксированы и задаются специальными константами, например, pr_given_name, pr_surname. | Добавляет новый адрес в адресную книгу |
| Sub AutomaticChange() | Нет | Выполняет автоформатирование, когда есть изменения, предлагаемые Помощником (Office Assistant). |
| Function BuildKeyCode(Arg1 As WdKey, [Arg2], [Arg3], [Arg4]) As Long | Аргументы задают комбинацию клавишей, обычно, это пара клавиш, например ALT и F1. Клавиши задаются константами перечисления WdKey. | Возвращает уникальный код каждой комбинации "горячих" клавиш. |
| Sub ChangeFileOpenDirectory(Path As String) | Путь к каталогу. | Устанавливает каталог по умолчанию, открываемый в приложении Word при выполнении команды Open. |
| Function CheckGrammar(String As String) As Boolean | Проверяемая строка. | Выполняет проверку грамматической корректности строки, указанной в аргументе. Заметьте, аналогичный метод у объектов на нижнем уровне иерархии проверяет корректность текста этих объектов. |
| Function CheckSpelling(Word As String, [CustomDictionary], [IgnoreUppercase], [MainDictionary], [CustomDictionary2], … [CustomDictionary10]) As Boolean | Первый обязательный аргумент задает проверяемую строку. Остальные необязательные аргументы задают словари и условия проверки. | Выполняет проверку орфографии строки, заданной первым аргументом. |
| Function CleanString(String As String) As String | Строка преобразования | Удаляет или преобразовывает непечатаемые и специальные символы строки, заданной своим аргументом. |
| Function DefaultWebOptions() As DefaultWebOptions | Нет | Возвращает соответствующий объект, содержащий глобальные параметры уровня приложения, используемые Word всякий раз при сохранении или открытии документа как Web-страницы. |
| Function GetAddress([Name], [AddressProperties], [UseAutoText], [ DisplaySelectDialog], [SelectDialog], [CheckNamesDialog], [RecentAddressesChoice], [UpdateRecentAddresses]) As String | Первый возможный аргумент указывает имя адресата, остальные определяют специфику поиска адреса. | Ищет адрес в адресной книге. Аргументы определяют специфику выполнения этой операции. |
| Function GetDefaultTheme(DocumentType As WdDocumentMedium) As String | Тип, заданный константой из перечисления WdDocumentMedium | Возвращает имя темы (фонового узора) по умолчанию, принятого в Word для новых документов, или сообщений Email или Web-страниц. |
| Sub GoBack(), Sub GoForward() | Нет | В активном документе передвигает вперед и назад точку вставки между тремя последними точками редактирования. |
| Sub Help(HelpType) | Константа, заданная перечислением WdHelpType | В зависимости от значения константы отображает то или иное окно справочной системы. Чаще всего, открывает окно Office Assistant со списком тем справочной системы. |
| Sub HelpTool() | Нет | Изменяет указатель мыши со стрелки на знак вопроса, что будет указывать на получение контекстно-чувствительной справки при подведении указателя к некоторому элементу активного документа. Нажатие Esc возвращает прежний вид указателя. |
| Function Keyboard([LangId As Long]) As Long | Если аргумент опущен, то возвращается значение, представляющее комбинацию чисел, определяющих язык и раскладку клавиатуры. Для установки языка и раскладки необходимо задать нужную комбинацию значений. | Устанавливает или возвращает язык и раскладку клавиатуры. |
| Function KeyString(KeyCode As Long, [KeyCode2]) As String | Первый обязательный аргумент задает код, определяющий комбинацию горячих клавиш. | Возвращает по коду строку, задающую комбинацию горячих клавиш. Функция, обратная по своему действию функции BuildKeyCode. |
| Sub ListCommands(ListAllCommands As Boolean) | Если аргумент имеет значение true, то выводится весь список команд Word, в противном случае - команд, прошедших настройку в приложении. | Создает новый документ, содержащий таблицу со списком команд Word. Полный список содержит 1175 команд. Для каждой команды указывается комбинация горячих клавиш и инструментальная панель меню. |
| Sub LookupNameProperties(Name As String) | Задает имя в адресной книге | Открывает диалоговое окно свойств для адресата, имя которого указано в аргументе метода. |
| Sub Move(Left As Long, Top As Long) | Координаты окна | Передвигает окно активного документа в позицию, указанную аргументами. |
| Function NewWindow() As Window | Нет | Создает новое окно - копию активного окна активного документа. |
| Sub OnTime(When,Name As String, [Tolerance]) | Первый аргумент задает время, второй - имя макроса. | Включает будильник и запускает макрос в заданное время. |
| Sub OrganizerCopy(Source As String, Destination As String,Name As String, Object As WdOrganizerObject) | Source - имя файла - источника, Destination - имя файла-назначения,Name - имя копируемого элемента, Object - тип копируемого элемента, задается константой. | Копирует элемент, заданный аргументомName из документа или шаблона в документ или шаблон. Копируемый элемент может быть входом AutoText, инструментальной панелью, стилем или макросом, что определяется аргументом Object. |
| Sub OrganizerDelete(Source As String,Name As String, Object As WdOrganizerObject) | Смотри описание аргументов предыдущего метода Copy. | Выполняет операцию удаления элемента. |
| Sub OrganizerRename(Source As String,Name As String, NewName As String, Object As WdOrganizerObject) | Смотри описание аргументов метода Copy. | Выполняет операцию переименования элемента. |
| Sub PrintOut([Background], [Append], [Range], [OutputFileName], [From], [To], [Item], [Copies], [Pages], [PageType], [PrintToFile], [Collate], [FileName], [ActivePrinterMacGX], [ManualDuplexPrint], [PrintZoomColumn], [PrintZoomRow], [PrintZoomPaperWidth], [PrintZoomPaperHeight]) | Аргументы соответствуют опциям в диалоговом окне Print меню File. | Печатает все части документа. |
| Function ProductCode() As String | Нет.Возвращает глобальный идентификатор - GUID приложения Word. | |
| Sub Quit([SaveChanges], [OriginalFormat], [RouteDocument]) | Задают опции в момент закрытия приложения. | Закрывает все открытые документы с их возможным сохранением и пересылкой всем участникам, совместно работающим над документами. |
| Function Repeat([Times]) As Boolean | Число повторений последней команды редактирования | Выполняет заданное число раз последнюю команду редактирования, возвращает истину в случае успеха. |
| Sub Resize(Width As Long, Height As Long) | Размеры окна приложения Word. | Изменяет размеры окна приложения Word. |
| Function Run(MacroName As String, [varg1], … [varg30]) | Имя макроса и до 30 передаваемых ему аргументов. | Запускает макрос VBA. |
| Sub ScreenRefresh() | Нет. | Запускает Fax Wizard. |
| Sub SetDefaultTheme(Name As String, DocumentType As WdDocumentMedium) | Name задает имя темы и параметры форматирования. Формат этого параметра "имя_темы nnn". Второй аргумент задает тип документа | Устанавливает для заданного типа документа тему ( фоновый узор) и способ форматирования. Смотри также описание метода GetDefaultTheme. |
| Группа DDE-методов: Sub DDEExecute(Channel As Long, Command As String) и другие методы этой группы. | Обеспечивает динамический обмен данными между приложениями. | |
| Группа методов преобразования линейных мер: Function CentimetersToPoints(Centimeters As Single) As Single Function PointsToCentimeters(Points As Single) As Single И другие методы этой группы. | Мера длины в указанных единицах. | Задает взаимное преобразование между точками и другими мерами длины. Возвращает значение меры, заданной аргументом, в других единицах. |
Группа методов преобразования линейных мер: Function CentimetersToPoints(Centimeters As Single) As Single Function PointsToCentimeters(Points As Single) As Single И другие методы этой группы. Мера длины в указанных единицах. Задает взаимное преобразование между точками и другими мерами длины. Возвращает значение меры, заданной аргументом, в других единицах. Как видите, набор методов объекта Application разнообразен. Некоторые из них вполне естественны для этого объекта, как, например, методы работы с окном приложения, другие, на мой взгляд, довольно экзотичны, - например, методы работы со строкой текста, проверяющие ее корректность. Если попытаться классифицировать эти методы, то условно их можно разбить на следующие группы, каждая из которых позволяет работать с таким объектом, как:
- Окно приложения.
- Адресная книга.
- Каталоги, используемые приложением по умолчанию.
- Форматирование, в том числе темы, используемые в Web-страницах.
- Редактирование.
- Справочная система.
- Строки.
- Средства запуска макросов, в том числе в заданное время.
- Организатор (Organizer).
- Динамический обмен данными.
