代表所有開啟的出版物。 Documents 集合包含所有在 Microsoft Publisher 中開啟的 Document 物件。
註解
使用 Documents 屬性傳回 Documents 集合。
使用 [ 新增 若要新增至集合中的新文件的方法。 呼叫 Add 方法建立 Publisher 的最新及可見執行個體。
使用 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
下列範例會將新的文件新增到 Documents 集合。
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
下列範例會檢查 Documents 集合中每個文件的名稱。 如果 Sales.doc 的文件名稱，則會在 Documents 集合中將物件變數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
方法
屬性
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。