Método Application.NewDocument (Publisher)

Artigo
04/07/2023

Retorna um objeto Document que representa uma nova publicação.

Sintaxe

expressão. NewDocument (Assistente, Design)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Assistente	Opcional	PbWizard	O assistente a ser usado para criar a nova publicação. Pode ser uma das constantes PbWizard declaradas na biblioteca de tipos do Microsoft Publisher. O padrão é pbWizardNone.
Design	Opcional	Long	O design a ser aplicado à nova publicação.

Valor de retorno

Documento

Exemplo

Este exemplo cria uma nova publicação e edita a página mestra para que contenha o número de página em uma estrela no canto superior esquerdo da página.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

Compartilhar via