Application.NewDocument Method

  • Article
Publisher Developer Reference

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.
Design Optional Long The design to apply to the new publication.

Return Value
Document

Remarks

The Wizard parameter can be one of the PbWizard constants declared in the Microsoft Office Publisher type library and shown in the following table. The default is pbWizardNone.

Remarks

pbWizardAdvertisements
pbWizardAirplanes
pbWizardBanners
pbWizardBrochures
pbWizardBusinessCards
pbWizardBusinessForms
pbWizardCalendars
pbWizardCatalogs
pbWizardCertificates
pbWizardEnvelopes
pbWizardFlyers
pbWizardGiftCertificates
pbWizardGreetingCards
pbWizardInvitations
pbWizardJapaneseAdvertisements
pbWizardJapaneseAirplanes
pbWizardJapaneseBanners
pbWizardJapaneseBrochures
pbWizardJapaneseBusinessCards
pbWizardJapaneseBusinessForms
pbWizardJapaneseCalendars
pbWizardJapaneseCatalogs
pbWizardJapaneseCertificates
pbWizardJapaneseEnvelopes
pbWizardJapaneseFlyers
pbWizardJapaneseGiftCertificates
pbWizardJapaneseGreetingCards
pbWizardJapaneseInvitations
pbWizardJapaneseLabels
pbWizardJapaneseLetterheads
pbWizardJapaneseMenus
pbWizardJapaneseNewsletters
pbWizardJapaneseOrigami
pbWizardJapanesePostcards
pbWizardJapanesePrograms
pbWizardJapaneseSigns
pbWizardJapaneseWebSites
pbWizardLabels
pbWizardLetterheads
pbWizardMenus
pbWizardNewsletters
pbWizardNone
pbWizardOrigami
pbWizardPostcards
pbWizardPrograms
pbWizardQuickPublications
pbWizardResumes
pbWizardSigns
pbWizardWebSites
pbWizardWithComplimentsCards
pbWizardWordDocument

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.

Visual Basic for Applications 
  Sub CreateNewPublication()
    Dim AppPub As Application
    Dim DocPub As Document

Set AppPub = New Publisher.Application
Set DocPub = AppPub.<strong>NewDocument</strong>
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

See Also