Application.NewDocument Method (Publisher)
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 Publisher type library and shown in the following table. The default is pbWizardNone.
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.
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