次の方法で共有


Documents オブジェクト (Publisher)

開いているすべてのパブリケーションを表します。 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されている場合、オブジェクト変数 objSalesDocDocuments コレクション内のそのドキュメントに設定されます。

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 のサポートおよびフィードバックを参照してください。