ドキュメント オブジェクト (発行元)

開いているすべてのパブリケーションを表します。 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 の場合は、オブジェクト変数 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 のサポートおよびフィードバックを参照してください。

  • Last updated on