NewDocument Method [Publisher 2003 VBA Language Reference]
Returns a Document object that represents a new publication.
expression.NewDocument(Wizard, Design)
expression Required. An expression that returns one of the objects in the Applies To list.
PbWizard
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 |
pbWizardNonedefault |
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
Applies to | Application Object