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

UptoLike

ВУЗ: 

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

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

Рубрика: 

1.4. Программирование на VBA 87
3
' Определение последней строки списка файлов
i = 4
Do
i = i + 1
Loop Until ActiveSheet.Range("B" & i) = ""
last = i - 1
' Цикл обработки всех интересующих нас документов
For i = 4 To last
' Формирование пути и имени конкретного документа
' и его открытие
' Получение информации средствами MS WORD
' Сохранение информации на рабочем листе EXCEL
Next i
Начинается тело этого цикла с формирования текстовой строки, задающей путь
и имя интересующего нас файла. Затем с помощью метода Open открываем
этот документ:
' Формирование пути и имени конкретного документа
' и его открытие
ActiveSheet.Range("B" & i).Select
f_name = BookPath & "\" & Right(ActiveCell.Value, 2)_
& "\" & ActiveCell.Value & ".DOC"
MS_Word.Documents.Open f_name
Открыв документ, можно собрать интересующие нас сведения об этом
документе с помощью обсуждавшегося в начале этого параграфа свойства
BuiltinDocumentProperties, затем определить количество вставленных
в документ рисунков, подсчитав количество полей INCLUDEPICTURE, а когда
и это будет сделано, закрыть документ:
' Получение информации средствами MS Word
With MS_Word.ActiveDocument
s_title = .BuiltinDocumentProperties(1)
d_dateCreat = .BuiltinDocumentProperties(11)
d_dateEdit = .BuiltinDocumentProperties(12)
t_time = .BuiltinDocumentProperties(13)
n_pages = .BuiltinDocumentProperties(14)
n_chars = .BuiltinDocumentProperties(30)
n_byte = .BuiltinDocumentProperties(22)
' Подсчет числа рисунков
n_pictures = 0
For Each Field In MS_Word.ActiveDocument.Fields
If InStr(1, Field.Code.Text, "INCLUDEPICTURE")_
= 2 Then

Страницы