Объект "Документы" (издатель)

Представляет все открытые публикации. Коллекция "Документы " содержит все объекты Document , открытые в Microsoft Publisher.

Примечания

Используйте свойство "Документы " для возврата коллекции "Документы ".

Используйте метод "Добавить ", чтобы добавить новый документ в коллекцию. Новый и видимый экземпляр Publisher создается при вызове метода Add .

Используйте свойство Item (index), где index — это номер индекса или имя документа как строка, чтобы вернуть определенный объект документа.

Пример

В следующем примере перечислены все открытые публикации.

Dim objDocument As Document 
Dim strMsg As String 
For Each objDocument In Documents 
 strMsg = strMsg & objDocument.Name & vbCrLf 
Next objDocument 
MsgBox Prompt:=strMsg, Title:="Current Documents Open", Buttons:=vbOKOnly

Следующий пример добавляет новый документ в коллекцию "Документы ".

Dim objDocument As Document 
Set objDocument = Documents.Add 
With objDocument 
 .LayoutGuides.Columns = 4 
 .LayoutGuides.Rows = 9 
 .ActiveView.Zoom = pbZoomWholePage 
End With

В приведенном ниже примере отображается имя первой открытой публикации.

If Documents.Count >= 1 Then 
 MsgBox Documents.Item(1).Name 
End If 

В следующем примере проверяется имя каждого документа в коллекции "Документы ". Если имя документа Sales.doc, этому документу в семействе "Документы" присваивается объектная переменнаяobjSalesDoc.

Dim objDocument As Document 
Dim objSalesDoc As Document 
For Each objDocument In Documents 
 If objDocument.Name = "Sales.doc" Then 
 Set objSalesDoc = objDocument 
 End If 
Next objDocument

Методы

• Add

Свойства

• Application
• Count
• Item
• Parent

См. также

• Справочник по объектной модели Publisher

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.