Объект Documents (Word)
Коллекция всех объектов Document , которые в настоящее время открыты в Word.
Используйте свойство Documents , чтобы вернуть коллекцию Documents . В следующем примере отображаются имена открытых документов.
For Each aDoc In Documents
aName = aName & aDoc.Name & vbCr
Next aDoc
MsgBox aName
Используйте метод Add , чтобы создать пустой документ и добавить его в коллекцию Documents . В следующем примере создается новый документ на основе шаблона Обычный.
Documents.Add
Используйте метод Open , чтобы открыть файл. В следующем примере открывается документ с именем "Sales.doc".
Documents.Open FileName:="C:\My Documents\Sales.doc"
Используйте Documents (Index), где Index — это имя документа или номер индекса для возврата одного объекта Document . Следующая инструкция закрывает документ с именем "Report.doc" без сохранения изменений.
Documents("Report.doc").Close SaveChanges:=wdDoNotSaveChanges
Номер индекса представляет позицию документа в коллекции Documents . В следующем примере активируется первый документ в коллекции Documents .
Documents(1).Activate
В следующем примере перечисляется коллекция Documents , чтобы определить, открыт ли документ с именем "Report.doc". Если этот документ содержится в коллекции Документы , он активируется; В противном случае он открывается.
For Each doc In Documents
If doc.Name = "Report.doc" Then found = True
Next doc
If found <> True Then
Documents.Open FileName:="C:\Documents\Report.doc"
Else
Documents("Report.doc").Activate
End If
Справочник по объектной модели Word
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.