Листинг 1. Использование объекта Application и его свойств

Свойства объекта Word.Application

Свойства любого объекта делятся на две группы:

· свойства-участники – это объекты, вложенные в данный объект;

· терминальные свойства – это обычные переменные VBA, характеризующие данный объект.

Перечислим основные свойства объекта Application (см. таб. 5.1.3).

Таблица 5.1.3. Основные свойства объекта Word.Application

Свойство	Тип	Значение
ActiveDocument	Object	Активный документ
ActivePrinter	String	Имя активного принтера
ActiveWindow	Object	Активное окно
Count	Long	Число объектов коллекции
Name	String	Имя объекта
Path	String	Драйвер и путь к папке, в которой сохранен объект
Selection	Object	Текущий выделенный фрагмент
StatusBar	String	Сообщение строки состояния
Visible	Boolean	Отображается объект на экране или нет

Несколько слов об общих объектах. Единую систему организации панелей меню и инструментальных кнопок обеспечивает объект CommandBar, справок – объект Assistant, поиска – объект FileSearch, объект VBE позволяет работать с единым редактором языка программирования. Центральными объектами Word являются коллекции Documents (документы) и Templates (шаблоны), точнее, составляющие их элементы – сами документы и шаблоны. Рассмотрим кратко объекты "второго плана".

Рассмотрим пример, в котором действует корневой объект Application и объекты, встроенные в него, один из них – FileSearch. На самом деле нельзя привести ни одного работающего примера, в котором явно или неявно не присутствовал бы объект Application. Напомним, что при использовании глобальных объектов объект Application разрешается опускать в цепочках вызовов, но обращение к любому объекту явно или неявно начинается с объекта Application.

Содержательно в предлагаемом примере решается следующая задача. По открытому документу определяется каталог. Затем в нем отыскиваются все файлы *.rtf и их имена добавляются в загруженный для записи файл. Процедура, реализующая решение данной задачи, приведена в листинге 1 (см. здесь).

Sub Example1() Dim DocPath As String Dim Answer DocPath = Documents("word.rtf").Path ‘определяем путь загружаемого файла Documents.Open (DocPath & "\55.rtf") ‘загружаем другой для записи With Application.FileSearch.LookIn = DocPath.FileName = "*.rtf" If.Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then Answer = MsgBox("Найдено " &.FoundFiles.Count & " файла(ов)." & "Добавить их имена в документ?", vbYesNo) If Answer = vbYes Then For i = 1 To.FoundFiles.Count ActiveDocument.Paragraphs.Add ActiveDocument.Range.InsertAfter.FoundFiles(i) Next i End If Else MsgBox "Нет файлов, соответствующих шаблону поиска." End If End WithEnd Sub

В данном примере используются три свойства-участника объекта Application: FileSearch, Documents и ActiveDocument. Все они возвращают объект соответствующего класса. Наряду с ними у объекта Application довольно много терминальных свойств. Они применяются реже, но играют важную роль, позволяя управлять внешним видом приложения и другими его характеристиками:

Application.DisplayStatusBar = False Application.DisplayRecentFiles = False

Изменяя свойства DisplayStatusBar и DisplayRecentFiles, мы выключаем панель статуса и показ в меню File файлов последнего использования.

Дата добавления: 2014-01-05