Основы офисного программирования и язык VBA


Пример 1.5


Public Sub WorkWithDocuments()

'Работа с коллекцией документов

Dim N As Long, I As Byte

Dim PathDir As String

PathDir = "e:\O2000\CD2000\Ch1\"

With Documents

N = .Count

Debug.Print "Число документов в коллекции Documents " & _

"при открытии приложения Word = ", N

' Добавление 2-х новых документов (второй представляет шаблон)

.Add

.Add NewTemplate:=True

'Добавление двух существующих документов

.Open (PathDir & "DocThree")

.Open (PathDir & "DocFive")

N = .Count

Debug.Print "Число документов после 4-х вызовов методов " _

& "Add и Open =", N

Debug.Print "Имена документов в коллекции:"

For I = 1 To .Count

Debug.Print .Item(I).Name

Next

'Закрытие двух документов и, следовательно, удаление их из коллекции

.Item(2).Close

.Item(3).Close

N = .Count

Debug.Print "Число документов после двух вызовов " _

& "метода Close =", N

Debug.Print "Имена документов, оставшихся в коллекции:"

For I = 1 To .Count

Debug.Print .Item(I).Name

Next

End With

End Sub




Начало  Назад  Вперед



Книжный магазин