Объектно-ориентированный подход в программировании. Проектирование и реализация приложений в среде Microsof Office. Евсеева О.Н. - 84 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

1.4. Программирование на VBA 85
3
Sub GetDocsInfo()
' Описание переменных
' Создание объекта, являющегося приложением Word
' Цикл обработки всех интересующих нас документов
' Формирование пути и имени конкретного документа
' и его открытие
' Получение информации средствами MS WORD
' Закрытие документа
' Сохранение полученной информации на рабочем листе
EXCEL
' Завершение работы
End Sub
Теперь можно приступать к написанию кода VBA. Отложим на некоторое
время описание обычных переменных. Начнем с использования Automation и
работы с приложением Word изнутри другого приложения — Excel. Сначала
опишем две переменных: переменную-объект, который в дальнейшем будет
представлять собой приложение Word, и логическую переменную,
описывающую состояние этого приложения в момент запуска процедуры (нас
интересует, выполнялся ли Word до начала работы процедуры или нет):
' Описание переменных
Dim Word_WasNotRunning As Boolean
Dim MS_Word As Object
Пока MS_Word — это всего лишь переменная. Теперь нужно выяснить,
запущено ли уже приложение Word, и если оно еще не запущено, то следует
запустить его и назначить этой переменной соответствующий объект-
приложение. Вот как это можно сделать:
' Создание объекта, являющегося приложением Word
' Проверка, выполняется ли Word
On Error Resume Next ' Перехват ошибок
Set MS_Word = GetObject(, "Word.Application")
' Если не выполняется, возвращается ошибка! Проверяем:
If Err.Number <> 0 Then
Word_WasNotRunning = True
Err.Clear ' Очищаем объект Err в случае ошибки
' запуск приложения Word
Set MS_Word = CreateObject("Word.Application")
Else
Word_WasNotRunning = False
End If
On Error GoTo 0 ' Отмена перехвата ошибок
Функция GetObject позволяет получить доступ к объекту-приложению, если
оно уже активно. Если же приложение не активно, то эта функция возвращает

Страницы