Publisher) (Documents 物件
代表所有開啟的出版物。 Documents集合包含在 Microsoft Publisher 中開啟的所有Document物件。
註解
使用 Documents 屬性可傳回 Documents 集合。
使用 [ 新增 若要新增至集合中的新文件的方法。 呼叫 Add 方法建立 Publisher 的最新及可見執行個體。
使用 Item (索引) 屬性 ,其中 index 是索引編號或檔案名稱做為 String,可傳回特定的檔物件。
範例
下列範例會列出所有開啟的發行集。
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檔的名稱,則物件變數 objSalesDoc
會設定為 Documents 集合中的該檔。
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 支援與意見反應。