Application.NewDocument method (Publisher)

Article
09/13/2021

Returns a Document object that represents a new publication.

Syntax

expression.NewDocument (Wizard, Design)

expression A variable that represents an Application object.

Parameters

Name	Required/Optional	Data type	Description
Wizard	Optional	PbWizard	The wizard to use to create the new publication. Can be one of the PbWizard constants declared in the Microsoft Publisher type library. The default is pbWizardNone.
Design	Optional	Long	The design to apply to the new publication.

Return value

Document

Example

This example creates a new publication and edits the master page to contain a page number in a star in the upper-left corner of the page.

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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Share via