Application.NewDocument メソッド (Publisher)

新しい発行物を表す Document オブジェクトを返します。

構文

式。新しいドキュメント (ウィザード、 デザイン)

expressionApplication オブジェクトを 表す変数。

パラメーター

名前 必須 / オプション データ型 説明
ウィザード 省略可能 PbWizard 新しい文書の作成に使用するウィザードを指定します。 Microsoft Publisher タイプ ライブラリで宣言されている PbWizard 定数のいずれかを指定できます。 PbWizardNone は、既定では。
デザイン 省略可能 長整数型 (Long) 新しい文書に適用するデザインを指定します。

戻り値

Document

例

次の使用例は、新しい文書を作成し、ページの左上隅の星印の中にページ番号を表示するようにマスター ページを編集します。

Sub CreateNewPublication() 
 Dim AppPub As Application 
 Dim DocPub As Document 
 
 Set AppPub = New Publisher.Application 
 Set DocPub = AppPub.NewDocument 
 AppPub.ActiveWindow.Visible = True 
 
 With DocPub.MasterPages(1).Shapes.AddShape _ 
 (Type:=msoShape5pointStar, Left:=36, _ 
 Top:=36, Width:=50, Height:=50) 
 .Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0) 
 With .TextFrame.TextRange 
 .InsertPageNumber 
 .ParagraphFormat.Alignment = pbParagraphAlignmentCenter 
 With .Font 
 .Bold = msoTrue 
 .Color.RGB = RGB(Red:=255, Green:=255, Blue:=255) 
 .Size = 12 
 End With 
 End With 
 End With 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on