expression.NewDocument(Wizard, Design)
expression Required. An expression that returns one of the objects in the Applies To list.
Wizard Optional PbWizard. The wizard to use to create the new publication.
| PbWizard can be one of these PbWizard constants. |
| 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 default |
| pbWizardOrigami |
| pbWizardPostcards |
| pbWizardPrograms |
| pbWizardQuickPublications |
| pbWizardResumes |
| pbWizardSigns |
| pbWizardWebSites |
| pbWizardWithComplimentsCards |
| pbWizardWordDocument |
Design Optional Long. The design to apply to the new publication.
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