Returns a Document object that represents a new publication.
expression.NewDocument (Wizard, Design)
expression A variable that represents an Application object.
| 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. |
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 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.