Application.NewDocument 方法 (Publisher)

返回一个 代表 新出版物的 Document 对象。

语法

表达式。NewDocument (向导， 设计)

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Wizard	可选	PbWizard	创建新出版物时要使用的向导。 可以是 Microsoft Publisher 类型库中声明的 PbWizard 常量之一。 默认值为 pbWizardNone 。
设计	可选	Long	应用于新出版物的设计方案。

返回值

文档

示例

本示例创建一个新的出版物并编辑母版页，使页面左上角的星形中包含页码。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。